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