88 lines
2.7 KiB
Fortran
88 lines
2.7 KiB
Fortran
PARAMETER (MLIN0 =1200000,
|
|
* MGRIEM = 10,
|
|
* MNLT = 2000,
|
|
* MSPHE2 = 20,
|
|
* MLIN = 190000,
|
|
* MPRF = MLIN0)
|
|
C
|
|
PARAMETER (MLINM0 =9000000,
|
|
* MLINM =1000000,
|
|
* MMLIST = 3)
|
|
C
|
|
REAL*4 EXCL0(MLIN0),
|
|
* EXCU0(MLIN0),
|
|
* GF0(MLIN0),
|
|
* EXTIN(MLIN0),
|
|
* BNUL(MLIN0),
|
|
* GAMR0(MPRF),
|
|
* GS0(MPRF),
|
|
* GW0(MPRF),
|
|
* WGR0(4,MGRIEM),
|
|
* EXCLM(MLINM0,MMLIST),
|
|
* GFM(MLINM0,MMLIST),
|
|
* EXTINM(MLINM0,MMLIST),
|
|
* GRM(MLINM0,MMLIST),
|
|
* GSM(MLINM0,MMLIST),
|
|
* GWM(MLINM0,MMLIST),
|
|
* GVDWH2(MLINM0,MMLIST),
|
|
* GEXPH2(MLINM0,MMLIST),
|
|
* GVDWHE(MLINM0,MMLIST),
|
|
* GEXPHE(MLINM0,MMLIST)
|
|
C
|
|
COMMON/LINTOT/FREQ0(MLIN0),
|
|
* EXCL0,
|
|
* EXCU0,
|
|
* GF0,
|
|
* EXTIN,
|
|
* BNUL,
|
|
* INDAT(MLIN0),
|
|
* INDNLT(MLIN0),
|
|
* ILOWN(MLIN0),
|
|
* IUPN(MLIN0),
|
|
* IJCONT(MLIN0),
|
|
* INDLIN(MLIN),
|
|
* INDLIP(MLIN),
|
|
* NLIN0,NLIN,IRLIST,
|
|
* NNLT,NGRIEM
|
|
C
|
|
COMMON/MOLTOT/FREQM(MLINM0,MMLIST),
|
|
* EXCLM,
|
|
* GFM,
|
|
* EXTINM,
|
|
* GRM,GSM,GWM,
|
|
* GVDWH2,GEXPH2,GVDWHE,GEXPHE,
|
|
* INDATM(MLINM0,MMLIST),
|
|
* INMLIN(MLINM,MMLIST),
|
|
* INMLIP(MLINM,MMLIST),
|
|
* NLINM0(MMLIST),
|
|
* NLINML(MMLIST),
|
|
* NLINMT(MMLIST),
|
|
* IUNITM(MMLIST),
|
|
* INACTM(MMLIST),
|
|
* IVDWLI(MMLIST),
|
|
* NMLIST
|
|
CHARACTER*40 AMLIST(0:MMLIST)
|
|
COMMON/LISPAR/AMLIST,
|
|
* IBIN(0:MMLIST)
|
|
C
|
|
COMMON/LINPRF/GAMR0,
|
|
* GS0,
|
|
* GW0,
|
|
* WGR0,
|
|
* IPRF0(MPRF),
|
|
* ISPRF(MPRF),
|
|
* IGRIEM(MPRF),
|
|
* ISP0(MSPHE2),NSP
|
|
C
|
|
COMMON/LINNLT/ABCENT(MNLT,MDEPTH),
|
|
* SLIN(MNLT,MDEPTH)
|
|
C
|
|
COMMON/LINDEP/PLAN(MDEPTH),
|
|
* STIM(MDEPTH),
|
|
* EXHK(MDEPTH)
|
|
C
|
|
COMMON/LINCTR/DFRCON,IJCNTR(MLIN),IJCMTR(MLINM,MMLIST)
|
|
COMMON/MLINRE/FRLASM(MMLIST),ALASTM(MMLIST),TMLIM(MMLIST),
|
|
* NXTSEM(MMLIST),IPRSEM(MMLIST),IREADM(MMLIST)
|
|
|