16 lines
764 B
Fortran
16 lines
764 B
Fortran
PARAMETER (MRCORE=20,
|
|
* MKU=MDEPTH+MRCORE,
|
|
* MEXT=MKU)
|
|
COMMON/COMANG/BMU(MKU,MDEPTH),WMUJ(MKU,MDEPTH),WMUH(MKU)
|
|
COMMON/CORADI/RD(MDEPTH),RCORE,RFNORM,PIM(MKU),RAD1(MDEPTH),
|
|
* DELZ(MKU,MDEPTH),NUD(MKU),NUDF(MKU),KMU,NREXT,
|
|
* NRCORE,NFIRY,NDF
|
|
COMMON/CORAF/DELZF(MEXT,MDEPF ),DFRQF(MEXT,2*MDEPF )
|
|
COMMON/COVEL/VEL(MDEPTH),DFRQ(MKU,2*MDEPTH),DVD(MDEPTH),
|
|
* XMDOT,XMD4,BETAV,VINF
|
|
COMMON/EXTMOD/FFQ(MOPAC),FFQV(MOPAC),RDF(MDEPF ),DENSF(MDEPF ),
|
|
* VELF(MEXT,MDEPF ),DRAY(MEXT,2*MDEPF ),
|
|
* KRAY(MEXT,2*MDEPF ),NOPAC
|
|
COMMON/OPAVEL/WDIL(MDEPTH),PLANW(MDEPTH),TRAD(MTRAD,MDEPTH),
|
|
* DENSCON(MDEPTH)
|