35 lines
1.4 KiB
Fortran
35 lines
1.4 KiB
Fortran
PARAMETER (MFODF = 180,
|
|
* MHOD = 3,
|
|
* MFRO = MFREQL,
|
|
* MDODF = 3,
|
|
c * MKULEV= 2,
|
|
c * MLINE = 2,
|
|
c * MCFE = 2 )
|
|
* MKULEV= 7000,
|
|
* MLINE = 1140000,
|
|
* MCFE = 7824000 )
|
|
C
|
|
REAL*4 SIGFE
|
|
C
|
|
COMMON/ODFION/INODF1(MION),INODF2(MION),INBFCS(MION),
|
|
* IKOBS(MION)
|
|
C
|
|
COMMON/ODFCTR/FRODF(MLEVEL),NFRODF(MHOD),INDODF(MLEVEL),
|
|
* JNDODF(MTRANS)
|
|
COMMON/ODFFRQ/FROS(MFRO,MHOD),WNUS(MFRO,MHOD),XDO(3,MHOD),
|
|
* KDO(4,MHOD)
|
|
COMMON/ODFMOD/I1ODF(MLEVEL),I2ODF(MLEVEL),NQLODF(MLEVEL)
|
|
COMMON/ODFSTK/XKIJ(MHOD,NLMX),WL0(MHOD,NLMX),FIJ(MHOD,NLMX)
|
|
COMMON/SPLCOM/SIGFE(MDODF,MCFE),
|
|
& FRS1,FRS2,DXNU,XJID(MDEPTH),JIDI(MDEPTH),JIDR(MDODF),
|
|
& JIDS,JIDN,NFRS1,NFTT
|
|
COMMON/OPALIM/M1FILE(NLMX,MHOD),M2FILE(NLMX,MHOD),IMERG
|
|
COMMON/OPLIMT/ALLIM1,ABLIM1,ABLIM2,ABLIM3
|
|
COMMON/LEVCOM/EMKU(MLEVEL,2),YMKU(MLEVEL,2),
|
|
& XEV(MLEVEL,MION),XOD(MLEVEL,MION),EU(2*MLEVEL),
|
|
& JEN(2*MLEVEL),
|
|
& EEV(MKULEV),AEV(MKULEV),SEV(MKULEV),WEV(MKULEV),
|
|
& EOD(MKULEV),AOD(MKULEV),SOD(MKULEV),WOD(MKULEV),
|
|
& KSEV(MKULEV),KSOD(MKULEV),NEVKU(MION),NODKU(MION),
|
|
& NLEVKU,NLINKU,KEVE,KODD
|