| 1 | BLOCK DATA BLOCK1
|
|---|
| 2 |
|
|---|
| 3 | C-----------------------------------------------------------------------
|
|---|
| 4 | C
|
|---|
| 5 | C INITIALIZES DATA
|
|---|
| 6 | C-----------------------------------------------------------------------
|
|---|
| 7 |
|
|---|
| 8 | *KEEP,AIR.
|
|---|
| 9 | COMMON /AIR/ COMPOS,PROBTA,AVERAW,AVOGAD
|
|---|
| 10 | DOUBLE PRECISION COMPOS(3),PROBTA(3),AVERAW,AVOGAD
|
|---|
| 11 | *KEEP,ANNI.
|
|---|
| 12 | COMMON /ANNI/ CAN,CANN
|
|---|
| 13 | DOUBLE PRECISION CAN(50),CANN(50)
|
|---|
| 14 | *KEEP,ATMOS.
|
|---|
| 15 | COMMON /ATMOS/ AATM,BATM,CATM,DATM
|
|---|
| 16 | DOUBLE PRECISION AATM(5),BATM(5),CATM(5),DATM(5)
|
|---|
| 17 | *KEEP,BUFFS.
|
|---|
| 18 | COMMON /BUFFS/ RUNH,RUNE,EVTH,EVTE,DATAB,LH
|
|---|
| 19 | INTEGER MAXBUF,MAXLEN
|
|---|
| 20 | PARAMETER (MAXBUF=39*7)
|
|---|
| 21 | PARAMETER (MAXLEN=12)
|
|---|
| 22 | REAL RUNH(MAXBUF),EVTH(MAXBUF),EVTE(MAXBUF),
|
|---|
| 23 | * RUNE(MAXBUF),DATAB(MAXBUF)
|
|---|
| 24 | INTEGER LH
|
|---|
| 25 | CHARACTER*4 CRUNH,CRUNE,CEVTH,CEVTE
|
|---|
| 26 | EQUIVALENCE (RUNH(1),CRUNH), (RUNE(1),CRUNE)
|
|---|
| 27 | EQUIVALENCE (EVTH(1),CEVTH), (EVTE(1),CEVTE)
|
|---|
| 28 | *KEEP,CONST.
|
|---|
| 29 | COMMON /CONST/ PI,PI2,OB3,TB3,ENEPER
|
|---|
| 30 | DOUBLE PRECISION PI,PI2,OB3,TB3,ENEPER
|
|---|
| 31 | *KEEP,EDECAY.
|
|---|
| 32 | COMMON /EDECAY/ CETA
|
|---|
| 33 | DOUBLE PRECISION CETA(5)
|
|---|
| 34 | *KEEP,GNUPR.
|
|---|
| 35 | COMMON /GNUPR/ SE14,SE16,SE40
|
|---|
| 36 | DOUBLE PRECISION SE14(3,14),SE16(3,16),SE40(3,40)
|
|---|
| 37 | *KEEP,KAONS.
|
|---|
| 38 | COMMON /KAONS/ CKA
|
|---|
| 39 | DOUBLE PRECISION CKA(80)
|
|---|
| 40 | *KEEP,MUPART.
|
|---|
| 41 | COMMON /MUPART/ AMUPAR,BCUT,CMUON,FMUBRM,FMUORG
|
|---|
| 42 | DOUBLE PRECISION AMUPAR(14),BCUT,CMUON(11)
|
|---|
| 43 | LOGICAL FMUBRM,FMUORG
|
|---|
| 44 | *KEEP,NKGI.
|
|---|
| 45 | COMMON /NKGI/ SEL,SELLG,STH,ZEL,ZELLG,ZSL,DIST,
|
|---|
| 46 | * DISX,DISY,DISXY,DISYX,DLAX,DLAY,DLAXY,DLAYX,
|
|---|
| 47 | * OBSATI,RADNKG,RMOL,TLEV,TLEVCM,IALT
|
|---|
| 48 | DOUBLE PRECISION SEL(10),SELLG(10),STH(10),ZEL(10),ZELLG(10),
|
|---|
| 49 | * ZSL(10),DIST(10),
|
|---|
| 50 | * DISX(-10:10),DISY(-10:10),
|
|---|
| 51 | * DISXY(-10:10,2),DISYX(-10:10,2),
|
|---|
| 52 | * DLAX (-10:10,2),DLAY (-10:10,2),
|
|---|
| 53 | * DLAXY(-10:10,2),DLAYX(-10:10,2),
|
|---|
| 54 | * OBSATI(2),RADNKG,RMOL(2),TLEV(10),TLEVCM(10)
|
|---|
| 55 | INTEGER IALT(2)
|
|---|
| 56 | *KEEP,PARPAR.
|
|---|
| 57 | COMMON /PARPAR/ CURPAR,SECPAR,PRMPAR,OUTPAR,C,
|
|---|
| 58 | * E00,E00PN,PTOT0,PTOT0N,THICKH,ITYPE,LEVL
|
|---|
| 59 | DOUBLE PRECISION CURPAR(14),SECPAR(14),PRMPAR(14),OUTPAR(14),
|
|---|
| 60 | * C(50),E00,E00PN,PTOT0,PTOT0N,THICKH
|
|---|
| 61 | INTEGER ITYPE,LEVL
|
|---|
| 62 | *KEEP,PARPAE.
|
|---|
| 63 | DOUBLE PRECISION GAMMA,COSTHE,PHI,H,T,X,Y,CHI,BETA,GCM,ECM
|
|---|
| 64 | EQUIVALENCE (CURPAR(2),GAMMA), (CURPAR(3),COSTHE),
|
|---|
| 65 | * (CURPAR(4), PHI ), (CURPAR(5), H ),
|
|---|
| 66 | * (CURPAR(6), T ), (CURPAR(7), X ),
|
|---|
| 67 | * (CURPAR(8), Y ), (CURPAR(9), CHI ),
|
|---|
| 68 | * (CURPAR(10),BETA), (CURPAR(11),GCM ),
|
|---|
| 69 | * (CURPAR(12),ECM )
|
|---|
| 70 | *KEEP,RANGE.
|
|---|
| 71 | COMMON /RANGE/ CC
|
|---|
| 72 | DOUBLE PRECISION CC(20)
|
|---|
| 73 | *KEEP,REST.
|
|---|
| 74 | COMMON /REST/ CONTNE,TAR,LT
|
|---|
| 75 | DOUBLE PRECISION CONTNE(3),TAR
|
|---|
| 76 | INTEGER LT
|
|---|
| 77 | *KEEP,RUNPAR.
|
|---|
| 78 | COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,
|
|---|
| 79 | * STEPFC,NRRUN,NSHOW,PATAPE,MONIIN,
|
|---|
| 80 | * MONIOU,MDEBUG,NUCNUC,
|
|---|
| 81 | * CETAPE,
|
|---|
| 82 | * SHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL,
|
|---|
| 83 | * N1STTR,MDBASE,
|
|---|
| 84 | * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR,
|
|---|
| 85 | * FIX1I,FMUADD,FNKG,FPRINT,FDBASE
|
|---|
| 86 | * ,GHEISH,GHESIG
|
|---|
| 87 | COMMON /RUNPAC/ DSN,HOST,USER
|
|---|
| 88 | DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB
|
|---|
| 89 | REAL STEPFC
|
|---|
| 90 | INTEGER NRRUN,NSHOW,PATAPE,MONIIN,MONIOU,MDEBUG,NUCNUC,
|
|---|
| 91 | * SHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL,
|
|---|
| 92 | * N1STTR,MDBASE
|
|---|
| 93 | INTEGER CETAPE
|
|---|
| 94 | CHARACTER*79 DSN
|
|---|
| 95 | CHARACTER*20 HOST,USER
|
|---|
| 96 |
|
|---|
| 97 | LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR,
|
|---|
| 98 | * FIX1I,FMUADD,FNKG,FPRINT,FDBASE
|
|---|
| 99 | * ,GHEISH,GHESIG
|
|---|
| 100 | *KEEP,STACKF.
|
|---|
| 101 | COMMON /STACKF/ STACK,STACKP,EXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM
|
|---|
| 102 | INTEGER MAXSTK
|
|---|
| 103 | PARAMETER (MAXSTK = 12*340*2)
|
|---|
| 104 | DOUBLE PRECISION STACK(MAXSTK)
|
|---|
| 105 | INTEGER STACKP,EXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM
|
|---|
| 106 | *KEEP,STRBAR.
|
|---|
| 107 | COMMON /STRBAR/ CSTRBA
|
|---|
| 108 | DOUBLE PRECISION CSTRBA(11)
|
|---|
| 109 | *KEEP,VERS.
|
|---|
| 110 | COMMON /VERS/ VERNUM,MVDATE,VERDAT
|
|---|
| 111 | DOUBLE PRECISION VERNUM
|
|---|
| 112 | INTEGER MVDATE
|
|---|
| 113 | CHARACTER*18 VERDAT
|
|---|
| 114 | *KEEP,CEREN3.
|
|---|
| 115 | COMMON /CEREN3/ CERCNT,DATAB2,LHCER
|
|---|
| 116 | INTEGER MAXBF2
|
|---|
| 117 | PARAMETER (MAXBF2 = 39 * 7)
|
|---|
| 118 | DOUBLE PRECISION CERCNT
|
|---|
| 119 | REAL DATAB2(MAXBF2)
|
|---|
| 120 | INTEGER LHCER
|
|---|
| 121 | *KEND.
|
|---|
| 122 |
|
|---|
| 123 | C-----------------------------------------------------------------------
|
|---|
| 124 | C AIR
|
|---|
| 125 | DATA COMPOS / 0.78479D0, 0.21052D0, 0.00469D0 /
|
|---|
| 126 | DATA PROBTA / 0.78479D0, 0.99531D0, 1.00000D0 /
|
|---|
| 127 | DATA AVERAW / 14.543D0 /
|
|---|
| 128 | DATA AVOGAD / 6.0225D-4 /
|
|---|
| 129 | C ANNI
|
|---|
| 130 | DATA CAN / 0.0042D0, 0.0728D0, 0.0981D0, 0.2458D0, 0.0295D0,
|
|---|
| 131 | * 0.0654D0, 0.1888D0, 0.1751D0, 0.0443D0, 0.0211D0,
|
|---|
| 132 | * 0.0179D0, 0.0032D0, 0.0020D0, 0.0000D0, 0.0800D0,
|
|---|
| 133 | * 0.0900D0, 0.0070D0, 0.0230D0, 0.1700D0, 0.1000D0,
|
|---|
| 134 | * 0.2600D0, 0.0400D0, 0.0420D0, 0.1200D0, 0.0660D0,
|
|---|
| 135 | * 0.0000D0, 24* 0.0D0 /
|
|---|
| 136 | C ATMOS
|
|---|
| 137 | DATA AATM / -186.5562D0, -94.919D0, 0.61289D0,0.D0,.01128292D0 /
|
|---|
| 138 | DATA BATM / 1222.6562D0,1144.9069D0,1305.5948D0,540.1778D0,0.D0 /
|
|---|
| 139 | DATA CATM / 994186.38D0,878153.55D0,636143.04D0,772170.16D0,1.D-9/
|
|---|
| 140 | C CEREN3
|
|---|
| 141 | DATA CERCNT / 0.D0 /
|
|---|
| 142 | C CONST
|
|---|
| 143 | DATA PI / 3.141592653589793D0 /
|
|---|
| 144 | DATA PI2 / 6.283185307179586D0 /
|
|---|
| 145 | DATA OB3 / 0.333333333333333D0 /
|
|---|
| 146 | DATA TB3 / 0.666666666666666D0 /
|
|---|
| 147 | C ENEPER IS CALCULATED IN START: ENEPER = EXP(1.D0)
|
|---|
| 148 | C DATA FOR MUPART: CUTOFF FOR BREMSSTRAHLUNG AT 3 MEV
|
|---|
| 149 | DATA BCUT /0.003D0/
|
|---|
| 150 | C DATA FOR REST: AVERAGE ATOMIC WEIGHT, NEUTRON CONTENTS OF N,O,AR
|
|---|
| 151 | DATA TAR / 14.6D0 /, CONTNE / 0.5D0, 0.5D0, 0.55D0 /, LT / 1 /
|
|---|
| 152 | C KAON CONSTANTS
|
|---|
| 153 | DATA CKA / 0.0D0, 0.1D0, 1.2371D-8, 1.2371D-8, 0.8922D-10,
|
|---|
| 154 | * 5.16D-8, 0.25D0, 0.5D0, 0.75D0, 1.0D0,
|
|---|
| 155 | * 0.5D0, 0.2D0, 0.0D0, 0.0D0, 149.6D0,
|
|---|
| 156 | * 149.6D0,0.236D0, 0.206D0, 0.135D0, 0.222D0,
|
|---|
| 157 | * 0.5D0, 0.0D0, 0.635D0, 0.686D0, 0.876D0,
|
|---|
| 158 | * 0.658D0,0.387D0, 0.0D0, 0.0D0, 0.0D0,
|
|---|
| 159 | * 0.0D0, 0.0D0, 0.0D0, 0.0D0, 1.0D0,
|
|---|
| 160 | * 1.0D5, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
|
|---|
| 161 | * 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
|
|---|
| 162 | * 0.0D0,0.8468D0, 0.9027D0, 0.9509D0, 0.9827D0,
|
|---|
| 163 | * -0.2154D0, 0.012D0,-0.0101D0, 1.27D0, 0.594D0,
|
|---|
| 164 | * 0.035D0, 0.0D0, 1.84D0, 0.0D0, 1.0D0,
|
|---|
| 165 | * 0.67D0, 0.079D0, 0.0098D0, 2.22D0, 0.028D0,
|
|---|
| 166 | * 0.0D0,1.288D-2, 0.033D0, 0.004D0, 1.194D-2,
|
|---|
| 167 | * 0.03D0, 0.0D0, 1.310D-2, 0.034D0, 0.025D0,
|
|---|
| 168 | * 1.241D-2, 0.0D0, 0.0D0, 0.0D0, 0.0D0 /
|
|---|
| 169 | C DATA FOR ETA DECAY
|
|---|
| 170 | DATA CETA / 0.3913D0, 0.7122D0, 0.9506D0, -1.07D0, 2.07D0 /
|
|---|
| 171 | C DATA FOR STRANGE BARYON DECAY
|
|---|
| 172 | DATA CSTRBA / 2.632D-10, 0.799D-10, 7.4D-20, 1.479D-10, 0.642D0,
|
|---|
| 173 | * 0.5164D0, 2.90D-10, 1.639D-10, 0.822D-10, 0.678D0,
|
|---|
| 174 | * 0.914D0 /
|
|---|
| 175 | C PARPAR
|
|---|
| 176 | DATA C / 0.0D0, 0.0D0, 1.4D0, 2.5D0, 1.35D0,
|
|---|
| 177 | * 0.0D0, 0.0D0, 0.0D0, 0.0D0, 2.07D0,
|
|---|
| 178 | * 8.2D0, 0.1D0, 0.0D0, 0.0D0, 0.0D0,
|
|---|
| 179 | * 88.0D0, 110.D0, 2.603D-8, 2.19703D-6, 0.0D0,
|
|---|
| 180 | * 37.7D0, 1.532873D-4, 9.386417D0, 2.D-3, 29.9792458D9,
|
|---|
| 181 | * 1.0D0, 0.0D0, 1.57D0, 0.0D0, 0.021D0,
|
|---|
| 182 | * 88.0D0, 110.0D0, 0.0D0, 2.0D1, 0.1D0,
|
|---|
| 183 | * 0.12D0, 0.0D0, 0.0D0, 0.0D0, 0.09D0,
|
|---|
| 184 | * 0.0D0, 0.1D0, 0.0D0, 0.0D0, 0.0D0,
|
|---|
| 185 | * 0.0D0, 0.0D0, 0.0D0, 0.0D0,137.0359895D0 /
|
|---|
| 186 | C DATA FOR RANGE: ENERGY REGIONS FOR SELECTION OF BOXES IN ISOBAR MODEL
|
|---|
| 187 | DATA CC / 2.5D0, 3.5D0, 5.5D0, 10.1D0,
|
|---|
| 188 | * 1.6D0, 2.7D0, 3.9D0, 10.1D0,
|
|---|
| 189 | * 1.6D0, 3.05D0, 3.9D0, 10.1D0, 8*0.D0 /
|
|---|
| 190 | C RUNPAR,STACKF
|
|---|
| 191 | DATA MONIIN / 5 /, MONIOU / 6 /, PATAPE / 90 /, EXST / 96 /,
|
|---|
| 192 | * MDEBUG / 6 /, NUCNUC / 11 /, MDBASE / 45 /
|
|---|
| 193 | * ,CETAPE / 91 /
|
|---|
| 194 | C GNUPR (NEW VERSION OCT 1991)
|
|---|
| 195 | C NITROGEN TARGET 14
|
|---|
| 196 | DATA ((SE14(I,J),I=1,3),J=1,14)
|
|---|
| 197 | * / 0.472000D+00,-0.426710D-02, 0.726439D-04,
|
|---|
| 198 | * 0.230324D+00,-0.989733D-03,-0.807077D-05,
|
|---|
| 199 | * 0.138623D+00, 0.609624D-03,-0.401675D-04,
|
|---|
| 200 | * 0.827139D-01, 0.135103D-02,-0.360236D-04,
|
|---|
| 201 | * 0.445693D-01, 0.137582D-02,-0.137674D-04,
|
|---|
| 202 | * 0.206106D-01, 0.998620D-03, 0.422867D-05,
|
|---|
| 203 | * 0.792756D-02, 0.559858D-03, 0.957875D-05,
|
|---|
| 204 | * 0.247793D-02, 0.247480D-03, 0.701650D-05,
|
|---|
| 205 | * 0.615535D-03, 0.860096D-04, 0.324410D-05,
|
|---|
| 206 | * 0.118279D-03, 0.230732D-04, 0.104282D-05,
|
|---|
| 207 | * 0.169210D-04, 0.461424D-05, 0.235175D-06,
|
|---|
| 208 | * 0.169481D-05, 0.647634D-06, 0.358189D-07,
|
|---|
| 209 | * 0.105988D-06, 0.568994D-07, 0.332920D-08,
|
|---|
| 210 | * 0.311374D-08, 0.235385D-08, 0.143213D-09/
|
|---|
| 211 | C OXYGEN TARGET 16
|
|---|
| 212 | DATA ((SE16(I,J), I=1,3),J=1,16)
|
|---|
| 213 | * /0.475002D+00,-0.434401D-02, 0.734217D-04,
|
|---|
| 214 | * 0.230261D+00,-0.966152D-03,-0.982228D-05,
|
|---|
| 215 | * 0.137372D+00, 0.642454D-03,-0.408490D-04,
|
|---|
| 216 | * 0.813380D-01, 0.135241D-02,-0.354835D-04,
|
|---|
| 217 | * 0.437870D-01, 0.135776D-02,-0.134429D-04,
|
|---|
| 218 | * 0.204919D-01, 0.988538D-03, 0.398723D-05,
|
|---|
| 219 | * 0.812995D-02, 0.567070D-03, 0.942943D-05,
|
|---|
| 220 | * 0.269031D-02, 0.263160D-03, 0.728079D-05,
|
|---|
| 221 | * 0.732711D-03, 0.993722D-04, 0.366933D-05,
|
|---|
| 222 | * 0.161940D-03, 0.303662D-04, 0.134776D-05,
|
|---|
| 223 | * 0.285325D-04, 0.740356D-05, 0.371648D-06,
|
|---|
| 224 | * 0.390910D-05, 0.140655D-05, 0.768260D-07,
|
|---|
| 225 | * 0.401145D-06, 0.200620D-06, 0.116200D-07,
|
|---|
| 226 | * 0.290010D-07, 0.202033D-07, 0.121929D-08,
|
|---|
| 227 | * 0.131709D-08, 0.128046D-08, 0.795482D-10,
|
|---|
| 228 | * 0.282645D-10, 0.384068D-10, 0.243535D-11/
|
|---|
| 229 | C ARGON TARGET 40
|
|---|
| 230 | DATA ((SE40(I,J),I=1,3),J=1,18)
|
|---|
| 231 | * / 0.318084D+00,-0.352566D-02, 0.829469D-04,
|
|---|
| 232 | * 0.193581D+00,-0.238538D-02, 0.404919D-04,
|
|---|
| 233 | * 0.148699D+00,-0.118791D-02,-0.130378D-04,
|
|---|
| 234 | * 0.117201D+00, 0.966097D-04,-0.536044D-04,
|
|---|
| 235 | * 0.876737D-01, 0.106482D-02,-0.612882D-04,
|
|---|
| 236 | * 0.600279D-01, 0.150343D-02,-0.412273D-04,
|
|---|
| 237 | * 0.370180D-01, 0.147347D-02,-0.130096D-04,
|
|---|
| 238 | * 0.204422D-01, 0.117625D-02, 0.743960D-05,
|
|---|
| 239 | * 0.101003D-01, 0.807913D-03, 0.155153D-04,
|
|---|
| 240 | * 0.447163D-02, 0.489622D-03, 0.146804D-04,
|
|---|
| 241 | * 0.177806D-02, 0.265260D-03, 0.102802D-04,
|
|---|
| 242 | * 0.636671D-03, 0.129412D-03, 0.591434D-05,
|
|---|
| 243 | * 0.205809D-03, 0.571042D-04, 0.291674D-05,
|
|---|
| 244 | * 0.601981D-04, 0.228546D-04, 0.126074D-05,
|
|---|
| 245 | * 0.159631D-04, 0.831226D-05, 0.484001D-06,
|
|---|
| 246 | * 0.384379D-05, 0.275100D-05, 0.166440D-06,
|
|---|
| 247 | * 0.841490D-06, 0.829259D-06, 0.515615D-07,
|
|---|
| 248 | * 0.167633D-06, 0.227810D-06, 0.144446D-07/
|
|---|
| 249 | DATA((SE40(I,J),I=1,3),J=19,36)
|
|---|
| 250 | * /0.304029D-07, 0.570494D-07, 0.366843D-08,
|
|---|
| 251 | * 0.502077D-08, 0.130224D-07, 0.845876D-09,
|
|---|
| 252 | * 0.754786D-09, 0.270844D-08, 0.177211D-09,
|
|---|
| 253 | * 0.103229D-09, 0.512862D-09, 0.337323D-10,
|
|---|
| 254 | * 0.128308D-10, 0.883149D-10, 0.583066D-11,
|
|---|
| 255 | * 0.144721D-11, 0.138082D-10, 0.914113D-12,
|
|---|
| 256 | * 0.147837D-12, 0.195621D-11, 0.129757D-12,
|
|---|
| 257 | * 0.136429D-13, 0.250465D-12, 0.166371D-13,
|
|---|
| 258 | * 0.113379D-14, 0.288894D-13, 0.192092D-14,
|
|---|
| 259 | * 0.845213D-16, 0.299003D-14, 0.198959D-15,
|
|---|
| 260 | * 0.562496D-17, 0.276346D-15, 0.183981D-16,
|
|---|
| 261 | * 0.332222D-18, 0.226723D-16, 0.151001D-17,
|
|---|
| 262 | * 0.172872D-19, 0.163915D-17, 0.109200D-18,
|
|---|
| 263 | * 0.785321D-21, 0.103480D-18, 0.689517D-20,
|
|---|
| 264 | * 0.307886D-22, 0.563885D-20, 0.375787D-21,
|
|---|
| 265 | * 0.102630D-23, 0.261299D-21, 0.174154D-22,
|
|---|
| 266 | * 0.285163D-25, 0.100944D-22, 0.672832D-24,
|
|---|
| 267 | * 0.642589D-27, 0.316302D-24, 0.210839D-25/
|
|---|
| 268 | DATA((SE40(I,J),I=1,3),J=37,40)
|
|---|
| 269 | * /0.112817D-28, 0.772286D-26, 0.514807D-27,
|
|---|
| 270 | * 0.144773D-30, 0.137838D-27, 0.918858D-29,
|
|---|
| 271 | * 0.120779D-32, 0.159956D-29, 0.106632D-30,
|
|---|
| 272 | * 0.491605D-35, 0.905709D-32, 0.603784D-33/
|
|---|
| 273 |
|
|---|
| 274 | C VERSION NUMBER AND DATE OF RELEASE
|
|---|
| 275 | DATA VERNUM / 5.201 /
|
|---|
| 276 | DATA MVDATE / 19970416 /
|
|---|
| 277 | C -YYYYMMDD-
|
|---|
| 278 | DATA VERDAT / 'APRIL 16, 1997' /
|
|---|
| 279 | C ----+----+----+---
|
|---|
| 280 | END
|
|---|
