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