MODULE lindat_module
!==============================================================================
! SYNSPEC 谱线数据模块
! 原始文件：LINDAT.FOR
! 
! 包含谱线数据参数和数组
!==============================================================================

    USE params_module
    IMPLICIT NONE
    
    !==========================================================================
    ! 谱线参数
    !==========================================================================
    INTEGER, PARAMETER :: MLIN0 = 1200000
    INTEGER, PARAMETER :: MGRIEM = 10
    INTEGER, PARAMETER :: MNLT = 2000
    INTEGER, PARAMETER :: MSPHE2 = 20
    INTEGER, PARAMETER :: MLIN = 190000
    INTEGER, PARAMETER :: MPRF = MLIN0
    
    INTEGER, PARAMETER :: MLINM0 = 9000000
    INTEGER, PARAMETER :: MLINM = 1000000
    INTEGER, PARAMETER :: MMLIST = 3
    
    !==========================================================================
    ! REAL*4 类型数组
    !==========================================================================
    REAL*4 :: EXCL0(MLIN0), EXCU0(MLIN0), GF0(MLIN0)
    REAL*4 :: EXTIN(MLIN0), BNUL(MLIN0)
    REAL*4 :: GAMR0(MPRF), GS0(MPRF), GW0(MPRF)
    REAL*4 :: WGR0(4,MGRIEM)
    REAL*4 :: EXCLM(MLINM0,MMLIST), GFM(MLINM0,MMLIST)
    REAL*4 :: EXTINM(MLINM0,MMLIST), GRM(MLINM0,MMLIST)
    REAL*4 :: GSM(MLINM0,MMLIST), GWM(MLINM0,MMLIST)
    REAL*4 :: GVDWH2(MLINM0,MMLIST), GEXPH2(MLINM0,MMLIST)
    REAL*4 :: GVDWHE(MLINM0,MMLIST), GEXPHE(MLINM0,MMLIST)
    
    !==========================================================================
    ! 公共变量块 - 总谱线 (LINTOT)
    !==========================================================================
    REAL(dp) :: FREQ0(MLIN0)
    INTEGER :: INDAT(MLIN0), INDNLT(MLIN0)
    INTEGER :: ILOWN(MLIN0), IUPN(MLIN0), IJCONT(MLIN0)
    INTEGER :: INDLIN(MLIN), INDLIP(MLIN)
    INTEGER :: NLIN0, NLIN, IRLIST, NNLT, NGRIEM
    
    !==========================================================================
    ! 公共变量块 - 分子谱线 (MOLTOT)
    !==========================================================================
    REAL(dp) :: FREQM(MLINM0,MMLIST)
    INTEGER :: INDATM(MLINM0,MMLIST)
    INTEGER :: INMLIN(MLINM,MMLIST), INMLIP(MLINM,MMLIST)
    INTEGER :: NLINM0(MMLIST), NLINML(MMLIST), NLINMT(MMLIST)
    INTEGER :: IUNITM(MMLIST), INACTM(MMLIST), IVDWLI(MMLIST)
    INTEGER :: NMLIST
    CHARACTER*40 :: AMLIST(0:MMLIST)
    
    !==========================================================================
    ! 公共变量块 - 线表参数 (LISPAR)
    !==========================================================================
    INTEGER :: IBIN(0:MMLIST)
    
    !==========================================================================
    ! 公共变量块 - 谱线轮廓 (LINPRF)
    !==========================================================================
    INTEGER :: IPRF0(MPRF), ISPRF(MPRF), IGRIEM(MPRF)
    INTEGER :: ISP0(MSPHE2), NSP
    
    !==========================================================================
    ! 公共变量块 - NLTE 谱线 (LINNLT)
    !==========================================================================
    REAL(dp) :: ABCENT(MNLT,MDEPTH), SLIN(MNLT,MDEPTH)
    
    !==========================================================================
    ! 公共变量块 - 线深度 (LINDEP)
    !==========================================================================
    REAL(dp) :: PLAN(MDEPTH), STIM(MDEPTH), EXHK(MDEPTH)
    
    !==========================================================================
    ! 公共变量块 - 线中心 (LINCTR)
    !==========================================================================
    REAL(dp) :: DFRCON
    INTEGER :: IJCNTR(MLIN), IJCMTR(MLINM,MMLIST)
    
    !==========================================================================
    ! 公共变量块 - 分子线读取 (MLINRE)
    !==========================================================================
    REAL(dp) :: FRLASM(MMLIST), ALASTM(MMLIST), TMLIM(MMLIST)
    INTEGER :: NXTSEM(MMLIST), IPRSEM(MMLIST), IREADM(MMLIST)
    
END MODULE lindat_module