MODULE alipar_module
!==============================================================================
! TLUSTY ALI (Accelerated Lambda Iteration) 方法参数模块
! 原始文件：ALIPAR.FOR
! 
! 包含加速 Lambda 迭代方法的参数和数组
!==============================================================================

    USE impli_module
    USE basics_module
    USE iterat_module
    IMPLICIT NONE
    
    !==========================================================================
    ! 公共变量块 - FIXALP (固定 ALI 参数)
    !==========================================================================
    
    ! 吸收、发射、散射数组
    REAL(dp) :: ABSO(MFREQ)
    REAL(dp) :: EMIS(MFREQ)
    REAL(dp) :: SCAT(MFREQ)
    
    ! 重新发射相关数组（温度相关）
    REAL(dp) :: REIT(MDEPTH)
    REAL(dp) :: REIN(MDEPTH)
    REAL(dp) :: REIM(MDEPTH)
    REAL(dp) :: REIP(MLVEXP,MDEPTH)
    
    ! 平均重新发射数组
    REAL(dp) :: AREIT(MDEPTH)
    REAL(dp) :: AREIN(MDEPTH)
    REAL(dp) :: AREIM(MDEPTH)
    REAL(dp) :: AREIP(MLVEXP,MDEPTH)
    
    ! 校正重新发射数组
    REAL(dp) :: CREIT(MDEPTH)
    REAL(dp) :: CREIN(MDEPTH)
    REAL(dp) :: CREIM(MDEPTH)
    REAL(dp) :: CREIP(MLVEXP,MDEPTH)
    
    ! 交叉重新发射数组
    REAL(dp) :: REIX(MDEPTH)
    REAL(dp) :: CREIX(MDEPTH)
    
    ! 重新发射导数数组
    REAL(dp) :: REDX(MDEPTH)
    REAL(dp) :: REDT(MDEPTH)
    REAL(dp) :: REDN(MDEPTH)
    REAL(dp) :: REDM(MDEPTH)
    REAL(dp) :: REDP(MLVEXP,MDEPTH)
    
    ! 重新发射导数负值数组
    REAL(dp) :: REDXM(MDEPTH)
    REAL(dp) :: REDTM(MDEPTH)
    REAL(dp) :: REDNM(MDEPTH)
    REAL(dp) :: REDMM(MDEPTH)
    REAL(dp) :: REDPM(MLVEXP,MDEPTH)
    
    ! 重新发射导数正值数组
    REAL(dp) :: REDTP(MDEPTH)
    REAL(dp) :: REDNP(MDEPTH)
    REAL(dp) :: REDXP(MDEPTH)
    REAL(dp) :: REDMP(MDEPTH)
    REAL(dp) :: REDPP(MLVEXP,MDEPTH)
    
    ! He 重新发射数组
    REAL(dp) :: HEIT(MDEPTH)
    REAL(dp) :: HEIN(MDEPTH)
    REAL(dp) :: HEIM(MDEPTH)
    REAL(dp) :: HEIP(MLVEXP,MDEPTH)
    
    ! He 重新发射负值数组
    REAL(dp) :: HEITM(MDEPTH)
    REAL(dp) :: HEINM(MDEPTH)
    REAL(dp) :: HEIMM(MDEPTH)
    REAL(dp) :: HEIPM(MLVEXP,MDEPTH)
    
    ! He 重新发射正值数组
    REAL(dp) :: HEITP(MDEPTH)
    REAL(dp) :: HEINP(MDEPTH)
    REAL(dp) :: HEIMP(MDEPTH)
    REAL(dp) :: HEIPP(MLVEXP,MDEPTH)
    
    ! 能量相关数组
    REAL(dp) :: EHET(MDEPTH)
    REAL(dp) :: EHEN(MDEPTH)
    REAL(dp) :: ERET(MDEPTH)
    REAL(dp) :: EREN(MDEPTH)
    REAL(dp) :: EHEP(MLVEX3,MDEPTH)
    REAL(dp) :: EREP(MLVEX3,MDEPTH)
    
    ! APT 相关数组
    REAL(dp) :: APT(MLVEXP,MDEPTH)
    REAL(dp) :: APN(MLVEXP,MDEPTH)
    REAL(dp) :: AAPT(MLVEX3,MDEPTH)
    REAL(dp) :: AAPN(MLVEX3,MDEPTH)
    REAL(dp) :: CAPT(MLVEX3,MDEPTH)
    REAL(dp) :: CAPN(MLVEX3,MDEPTH)
    
    ! APP 相关数组
    REAL(dp) :: APP(MLVEXP,MLVEXP,MDEPTH)
    REAL(dp) :: AAPP(MLVEX3,MLVEX3,MDEPTH)
    REAL(dp) :: CAPP(MLVEX3,MLVEX3,MDEPTH)
    
    ! ALI 标志和参数
    REAL(dp) :: QTLAS
    INTEGER :: IFALI,IFPOPR,irprec,ifprec,itold1,itold2,itlas
    
END MODULE alipar_module