93 lines
4.1 KiB
Fortran
93 lines
4.1 KiB
Fortran
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
|