*KEEP,CBERT.
C
      INTEGER*2 RANDI(4),RANDS(4),ERAND(4)
      REAL*4  PRTIN,TRSYM
      REAL*8 SF, ANDIT, AMASNO, ZEE, EINC, CTOFE,
     +    CASESN, PNMS, SQNM, DNCMS, RCPMV,
     +    POMS
      REAL*8 ESPS(481), PT(48), PLVC(961), PGVC(441), PNBC(5),
     +    SPACE(178), CRSC(2400), HVN(3), HVP(3), AWD(3), FVNP(3),
     +    VNVP(3), PMAC(3), PPAN(3), THPN(3), FFPTFN(3), TFFN(3),
     +    TFFP(3), CFEPN(6), FMPN(6), FMAX(7), CRDT(25), S(37), XI(3),
     +    DCOS(3), CURR(11), D(6), CE(21), WKRPN(6), PM(4), E(4),
     +    PXYZ(12), C(3), ECO(2), COL(24), CC(12), PNIDK(23), OUT(40),
     +    FCN, FCP, PGCNT, PACNT, PECNT, VALUE2, PPPDA, PPMDA, PPNDA,
     +    PPNNA, CLCFE, VALUE1, ANS, BEGRU, FRAND,
     +    EX, SIGN, CLSM, EFRP, EFRN, XABS, STRKP, RLKE, P1OE1, POLC,
     +    POLS, SOPC, SOPS, P2, ANY, SN, ABSEC, COM, SNT, CST, COM2,
     +    VALUE3, UNIV, UNIVE, UNIVER, COM1, FTR, COM4, COM3, A ,
     +    CTOFEN, TAPCRS(29850)
      COMMON/CBERT/ SF, NRT, LN, ANDIT, AMASNO, ZEE, EINC, CTOFE,
     +    CASESN, PRTIN, TRSYM, RANDI, PNMS, SQNM, DNCMS, RCPMV,
     +    POMS, IPEC(13), ISW(13), IOUT(6), NOR, INPT, NO, NMAS, IN,
     +    IV, IP, MED, INC, IFCA, IFCC, NOT, IT, IFC, KNOT,
     +    I1, I2, I6, IK, I5, I4, I3, KA, ITOTE, ITOTI, ITOT2, ITOT3,
     +    NWDS
      COMMON/CBERT/ ESPS, PT, PLVC, PGVC, PNBC,
     +    SPACE, CRSC, HVN, HVP, AWD, FVNP,
     +    VNVP, PMAC, PPAN, THPN, FFPTFN, TFFN,
     +    TFFP, CFEPN, FMPN, FMAX, CRDT, S, XI,
     +    DCOS, CURR, D, CE, WKRPN, PM, E,
     +    PXYZ, C, ECO, COL, CC, PNIDK, OUT,
     +    FCN, FCP, PGCNT, PACNT, PECNT, VALUE2, PPPDA, PPMDA, PPNDA,
     +    PPNNA, CLCFE, VALUE1, RANDS, ANS, BEGRU, FRAND, ERAND,
     +    EX, SIGN, CLSM, EFRP, EFRN, XABS, STRKP, RLKE, P1OE1, POLC,
     +    POLS, SOPC, SOPS, P2, ANY, SN, ABSEC, COM, SNT, CST, COM2,
     +    VALUE3, UNIV, UNIVE, UNIVER, COM1, FTR, COM4, COM3, A ,
     +    CTOFEN, TAPCRS
C