MODULE odfpar_module
!==============================================================================
! TLUSTY ODF (Opacity Distribution Functions) 参数模块
! 原始文件：ODFPAR.FOR
! 
! 包含不透明度分布函数相关的参数和数据
!==============================================================================

    USE impli_module
    USE basics_module
    IMPLICIT NONE
    
    !==========================================================================
    ! ODF 参数
    !==========================================================================
    INTEGER, PARAMETER :: MFODF  = 180       ! ODF 最大频率数
    INTEGER, PARAMETER :: MHOD   = 3         ! H-ODF 维数
    INTEGER, PARAMETER :: MFRO   = MFREQL    ! ODF 频率范围
    INTEGER, PARAMETER :: MDODF  = 3         ! ODF 导数维数
    INTEGER, PARAMETER :: MKULEV = 7000      ! 最大 Kuler 能级数
    INTEGER, PARAMETER :: MLINE  = 1140000   ! 最大谱线数
    INTEGER, PARAMETER :: MCFE   = 7824000   ! 最大碰撞拟合元素数
    
    !==========================================================================
    ! REAL*4 类型数组
    !==========================================================================
    REAL*4 :: SIGFE
    
    !==========================================================================
    ! 公共变量块 - ODFION
    !==========================================================================
    INTEGER :: INODF1(MION)
    INTEGER :: INODF2(MION)
    INTEGER :: INBFCS(MION)
    INTEGER :: IKOBS(MION)
    
    !==========================================================================
    ! 公共变量块 - ODFCTR
    !==========================================================================
    REAL(dp) :: FRODF(MLEVEL)
    INTEGER :: NFRODF(MHOD)
    INTEGER :: INDODF(MLEVEL)
    INTEGER :: JNDODF(MTRANS)
    
    !==========================================================================
    ! 公共变量块 - ODFFRQ
    !==========================================================================
    REAL(dp) :: FROS(MFRO,MHOD)
    REAL(dp) :: WNUS(MFRO,MHOD)
    REAL(dp) :: XDO(3,MHOD)
    INTEGER :: KDO(4,MHOD)
    
    !==========================================================================
    ! 公共变量块 - ODFMOD
    !==========================================================================
    INTEGER :: I1ODF(MLEVEL)
    INTEGER :: I2ODF(MLEVEL)
    INTEGER :: NQLODF(MLEVEL)
    
    !==========================================================================
    ! 公共变量块 - ODFSTK
    !==========================================================================
    REAL(dp) :: XKIJ(MHOD,NLMX)
    REAL(dp) :: WL0(MHOD,NLMX)
    REAL(dp) :: FIJ(MHOD,NLMX)
    
    !==========================================================================
    ! 公共变量块 - SPLCOM
    !==========================================================================
    REAL*4 :: SIGFE_ARR(MDODF,MCFE)
    REAL(dp) :: FRS1
    REAL(dp) :: FRS2
    REAL(dp) :: DXNU
    REAL(dp) :: XJID(MDEPTH)
    INTEGER :: JIDI(MDEPTH)
    INTEGER :: JIDR(MDODF)
    INTEGER :: JIDS
    INTEGER :: JIDN
    INTEGER :: NFRS1
    INTEGER :: NFTT
    
    !==========================================================================
    ! 公共变量块 - OPALIM
    !==========================================================================
    INTEGER :: M1FILE(NLMX,MHOD)
    INTEGER :: M2FILE(NLMX,MHOD)
    INTEGER :: IMERG
    
    !==========================================================================
    ! 公共变量块 - OPLIMT
    !==========================================================================
    REAL(dp) :: ALLIM1
    REAL(dp) :: ABLIM1
    REAL(dp) :: ABLIM2
    REAL(dp) :: ABLIM3
    
    !==========================================================================
    ! 公共变量块 - LEVCOM
    !==========================================================================
    REAL(dp) :: EMKU(MLEVEL,2)
    REAL(dp) :: YMKU(MLEVEL,2)
    REAL(dp) :: XEV(MLEVEL,MION)
    REAL(dp) :: XOD(MLEVEL,MION)
    REAL(dp) :: EU(2*MLEVEL)
    INTEGER :: JEN(2*MLEVEL)
    REAL(dp) :: EEV(MKULEV)
    REAL(dp) :: AEV(MKULEV)
    REAL(dp) :: SEV(MKULEV)
    REAL(dp) :: WEV(MKULEV)
    REAL(dp) :: EOD(MKULEV)
    REAL(dp) :: AOD(MKULEV)
    REAL(dp) :: SOD(MKULEV)
    REAL(dp) :: WOD(MKULEV)
    INTEGER :: KSEV(MKULEV)
    INTEGER :: KSOD(MKULEV)
    INTEGER :: NEVKU(MION)
    INTEGER :: NODKU(MION)
    INTEGER :: NLEVKU
    INTEGER :: NLINKU
    INTEGER :: KEVE
    INTEGER :: KODD
    
END MODULE odfpar_module