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)