11 lines
519 B
Fortran
11 lines
519 B
Fortran
COMMON/FREQSY/FREQ(MFREQ),W(MFREQ),WLAM(MFREQ),
|
|
* FRX1(MFREQ),FRX2(MFREQ),BNUE(MFREQ),
|
|
* FRQOBS(MFREQ),WLOBS(MFREQ),
|
|
* FREQC(MFREQC),WLAMC(MFREQC),
|
|
* IJCINT(MFREQ)
|
|
COMMON/CRSAVG/FRECR(MCROSS,MFCRA),CROSR(MCROSS,MFCRA),
|
|
* CRMX(MCROSS),NFCR(MCROSS),IASV
|
|
COMMON/CRSAVQ/FRECQ(MPHOT,MFCRA),QHOT(MPHOT,MFCRA),
|
|
* AQHT(MPHOT),EQHT(MPHOT),GQHT(MPHOT),
|
|
* CRMY(MPHOT),NFQHT(MPHOT),NQHT
|