73 lines
2.7 KiB
Fortran
73 lines
2.7 KiB
Fortran
MODULE iterat_module
|
||
!==============================================================================
|
||
! TLUSTY 迭代控制参数模块
|
||
! 原始文件：ITERAT.FOR
|
||
!
|
||
! 包含迭代相关的参数和公共变量块
|
||
!==============================================================================
|
||
|
||
USE impli_module
|
||
IMPLICIT NONE
|
||
|
||
!==========================================================================
|
||
! 迭代参数
|
||
!==========================================================================
|
||
INTEGER, PARAMETER :: MITER = 200 ! 最大迭代次数
|
||
INTEGER, PARAMETER :: MLAMBD = 100 ! Lambda 迭代最大维数
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - Lambda 迭代
|
||
!==========================================================================
|
||
INTEGER :: NLAMBD
|
||
INTEGER :: IFFIX(MITER)
|
||
INTEGER :: NETEXP(MITER)
|
||
INTEGER :: NETFIX(MITER)
|
||
INTEGER :: IETEXP(MITER,MLAMBD)
|
||
INTEGER :: IETFIX(MITER,MLAMBD)
|
||
INTEGER :: NITLAM(MITER+1)
|
||
INTEGER :: IELCOR
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - 矩阵链
|
||
!==========================================================================
|
||
INTEGER :: INHE0(MITER)
|
||
INTEGER :: INRE0(MITER)
|
||
INTEGER :: INPC0(MITER)
|
||
INTEGER :: INDL0(MITER)
|
||
INTEGER :: INSE0(MITER)
|
||
INTEGER :: INMP0(MITER)
|
||
INTEGER :: NN00(MITER)
|
||
INTEGER :: NDRE0(MITER)
|
||
LOGICAL :: LCHMAT
|
||
LOGICAL :: LIROST
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - 加速参数
|
||
!==========================================================================
|
||
REAL(dp) :: ORELAX
|
||
INTEGER :: ITEK,IACC,IACC0,IACD
|
||
INTEGER :: KANT(MITER)
|
||
INTEGER :: KSNG
|
||
LOGICAL :: LSNG(MTOT)
|
||
LOGICAL :: LASO
|
||
LOGICAL :: LRES2
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - ALI 加速参数
|
||
!==========================================================================
|
||
INTEGER :: ILAM,IACPP,IACC0P,IACDP
|
||
LOGICAL :: LAC2P
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - Lambda 迭代加速
|
||
!==========================================================================
|
||
INTEGER :: IACLT,IACLDT
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - 链 AD
|
||
!==========================================================================
|
||
REAL(dp) :: CHMAXT
|
||
INTEGER :: NLAMT,ILDER,IBPOPE
|
||
|
||
END MODULE iterat_module
|