37 lines
1.5 KiB
Fortran
37 lines
1.5 KiB
Fortran
MODULE synthp_module
|
||
!==============================================================================
|
||
! SYNSPEC 光谱合成参数模块
|
||
! 原始文件：SYNTHP.FOR
|
||
!
|
||
! 包含光谱合成相关的频率和交叉截面参数
|
||
!==============================================================================
|
||
|
||
USE params_module
|
||
IMPLICIT NONE
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - 频率 (FREQSY)
|
||
!==========================================================================
|
||
REAL(dp) :: FREQ(MFREQ), W(MFREQ), WLAM(MFREQ)
|
||
REAL(dp) :: FRX1(MFREQ), FRX2(MFREQ), BNUE(MFREQ)
|
||
REAL(dp) :: FRQOBS(MFREQ), WLOBS(MFREQ)
|
||
REAL(dp) :: FREQC(MFREQC), WLAMC(MFREQC)
|
||
INTEGER :: IJCINT(MFREQ)
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - 平均截面 (CRSAVG)
|
||
!==========================================================================
|
||
REAL(dp) :: FRECR(MCROSS,MFCRA), CROSR(MCROSS,MFCRA)
|
||
REAL(dp) :: CRMX(MCROSS)
|
||
INTEGER :: NFCR(MCROSS), IASV
|
||
|
||
!==========================================================================
|
||
! 公共变量块 - 平均 Q (CRSAVQ)
|
||
!==========================================================================
|
||
REAL(dp) :: FRECQ(MPHOT,MFCRA), QHOT(MPHOT,MFCRA)
|
||
REAL(dp) :: AQHT(MPHOT), EQHT(MPHOT), GQHT(MPHOT)
|
||
REAL(dp) :: CRMY(MPHOT)
|
||
INTEGER :: NFQHT(MPHOT), NQHT
|
||
|
||
END MODULE synthp_module
|