APPENDIX D PREPROCESSING PROGRAM FOR IBM/CDCCODE CONVERSION This program requires approximately 15 seconds of CDC-7600 centralprocessor time to convert the entire code system. PROGRAM CCC (TAPE I,TAPE2,TAPE3) c *********+****** **************** **************** **************** ** c CODE CONVERSION CONTROLLER. c CONVERT A FORTRAN PROGRAM FROM COC TO IBM ANO BACK. c IMACH=l, IF AN IBM VERSION IS OESIREO. c 2, IF A COC VERSION IS OESIRED. c ***************** ***************** **************** **************** OIMENSION IA(23) OATA IC /lUC/, IB /lH /, IBB /2H /, IIBM /2HIB/, ICDC /2HC0/ NIN=l NOUT=2 NSYSO=3 IIB=O ICO=O c c IBM OESIRED. IMACH= 1 c c REAO ANO WRITE MACHINE-INOEPENOENT LINES. Ioo REAO (NIN, IO) (IA(I),I=I ,23) IF (EOF(NIN)) 230,110 110 IF (IA(I).NE.IC) GO TO 120 IF (IA(2).EQ.IEN3) GO To 120 IF (IA(2).EQ.IIEM) Go To 130 IF (IA(2).EQ.IcDc) GO TO 180 t20 WRITE (NouT, IO) (IA(I),I=i ,23) GO TO 100 c c REAO AND WRITE IBM LINES. 130 IIB=IIB+I GO TO 170 140 REao (NIN, Io) (IA(I), I=I,23) IF (EOF(NIN)) 230,150 150 IF (IA(2).EQ. IIw.1) GO TO 120 IF (IMACH.NE.1) GO TO 160 IA(I)=IB GD TO 170 160 IA(l)=IC 170 WRITE (NOUT, IO) (IA(I). 1=1.23) GD TO 140 c c REAO ANO WRITE COC LINES. 180 ICO=ICO+I GO TO 220 190 REAO (NxN, Io) (IA(I), I=I,23) IF (EOF(NIN)) 230,200 200 IF (IA(2).EQ.IcOc) GO To 120 IF (IMACH.NE.2) GO TO 210 IA(I)=IB GO TO 220 210 IA(I)=IC 220 WRITE (NOUT. 10) (IA(I), I=I.23) GO TO 190 c c CCC FINISHEO. 230 WRITE (NSYS0,20) IIB.ICD STOP c IO FORMAT (AI,A2,20A4,A3) 20 FORMAT (//I5,22H IBM BLOCKS processed. , 1 L15,22H COC BLOCKS PROCESSED. , 2 /~26H COOE CONVERSION COMPLETE. ) ENO h~.S. GOVERNMENT PRINTING 0FFlCE:1982-O-S76-020 /103 107
.,+~ . -:,J —--+--. -i . .._--M, u_L& ,.. --- .-——. -. .- .”, . . . . . . . . . . . . . . ,., ”.-— — ._-. . . . . ..- . . . . .”.. .4 .,---- . ---, ..: &--./ .-. -.. . - ..- . ..- -4. . .- . ., . . ,., . —- .-,.. . -....—. . ..-. . . . . . ..--—. —-. ~-.- *-. ,-. —- - -.—------ --- .-— ... ..- ,. .-. -,—. . . ...... _ -. . !. -.-— ------- ------ --- .,- . . . . . . . . . . . .—./.,.- ,-., -!.’. .,- ., . . F...!-,.*..,.>. —... -4.7-.=--- .-. .. -w ..!!, ,! .. . !.- -- , . . ,,. . - . . . . . . ., . . . , ,. . -_ ..... .... . . . ---- . . ... .. . . . .. .. .. ... .. -. . . .. . ... ,. . . . . ., . . ,.. ;.,;- ,.. — .. . .. . ,. ,... .“ -, ,., , . . .-, . . ,.. , .. .. :,. - ,.. r, . . .. . ,’ -.”!:” ‘:’ “. ,.. . . ,. ””, . ,, ,....: .%( i ..,, .,., !’-,, , ;, .(., .. -,.:
- Page 1 and 2:
. . . . --;:..~-==-------- .-- —.
- Page 3 and 4:
l-. -_l E — LA-9303-M, VOL [ (END
- Page 5 and 6:
incoherent inelastic energy-to-ener
- Page 7 and 8:
(GENDF) for later use by the output
- Page 9 and 10:
*RECONR* 21 22 . . [input for RECON
- Page 11 and 12:
NQA,MTA,QA. .. Because of lack of u
- Page 13 and 14:
In order to process reaction “vec
- Page 15 and 16:
production yields), MF13 (photon pr
- Page 17 and 18:
13803030110 *BIG3 + 2 NUBAR*/ o. 1.
- Page 19 and 20:
J. CCCCR NGGRUP,MAXUP. .. In the cu
- Page 21 and 22:
production, and thermal scattering
- Page 23 and 24:
The MATXS listing is fairly self-ex
- Page 25 and 26:
22 TABLE II POINTWISE PROCESSINGTIM
- Page 27 and 28:
Computing Center at Lawrence Liverm
- Page 29 and 30:
19. I. I. Bondarenko, Ed., Group Co
- Page 31 and 32:
28 ● IVERF ENDF/B VERSION NUMBER
- Page 33 and 34:
30 * * * RESTART CONTINUE BROADENIN
- Page 35 and 36:
32 * *** * *** * * * * * * **●
- Page 37 and 38:
34 * * * CARD6A ● NGN * CARD6B *
- Page 39 and 40:
36 * * IGG * IWT * LORD * IPRINT *
- Page 41 and 42:
38 * * FOLLOWING ● CARO 10 * MAT
- Page 43 and 44:
40 ● WEIGHTING. THE PL TABLES FOR
- Page 45 and 46:
42 ● HISNM HOLLERitH ISOTOPE LABE
- Page 47 and 48:
* ENERGY MONTE CARLO COOE. * * * *
- Page 49 and 50:
46 * MTC THERMAL ELASTIC MT * * CAR
- Page 51 and 52:
MT — 1 2 3 4 6 7 8 9 16 17 18 19
- Page 53 and 54:
106 107 108 109 111 112 113 114 203
- Page 55 and 56:
. . . 778 (n,3Hec) cross section fo
- Page 57 and 58:
54 6 2 *ELAsTIc./ 6 51 *DISCRETE IN
- Page 59 and 60: 56 WROTE THERMAL OATA FOR TEMP= 3.0
- Page 61 and 62: 58 24 5.168E-02 25 2.465E-01 26 3.3
- Page 63 and 64: 60 GROUP INFINITE DILUTION 25 1.503
- Page 65 and 66: 62 GROUP CONSTANTS AT T=3.000E+02 O
- Page 67 and 68: 64 INITL GROUP 26 26 26 27 27 27 28
- Page 69 and 70: PENDF TAPE FOR C FROM ENDF/B TAPE 5
- Page 71 and 72: 68 II. EXAMPLE 2. CCCC MOUNT ENDF/B
- Page 73 and 74: 70 POINTS AODED BY LINEARIZATION =
- Page 75 and 76: 72 3.582E+O0 3.561E+O0 3.396E+O0 2.
- Page 77 and 78: 1 I.OIOE+OI 1.007E+oI 9.830E+O0 2 2
- Page 79 and 80: 76 INITL FINAL ISOTROPIC MATRIX VS
- Page 81 and 82: 45 12 2.470E-09 6.972E-12 45 13 6.7
- Page 83 and 84: GROUP CONSTANTS AT T=2.1OOE+O3 OEG
- Page 85 and 86: 48 1.023363E+01 1.026073E+OI 6.3535
- Page 87 and 88: 84 TOTAL SELF-SHIELOING FACTORS GRO
- Page 89 and 90: 86 2 3 4 5 6 GRdUP SIQO 1 2 3 4 5 6
- Page 91 and 92: 88 PENDF TAPE FOR PHOTON INTERACTIO
- Page 93 and 94: 90 GROUP CONSTANTS FOR MF26 ANO MT5
- Page 95 and 96: 92 FOR MF23 ANO MT501 TOTL GAMMA GR
- Page 97 and 98: 94 5 2.140E+O0 5.164E+06 6 1.244E+O
- Page 99 and 100: 96 o. 0. 0. (J. o. 0. 0. 0. 0. “~
- Page 101 and 102: *** GSCAT ● *8 MATERIAL ~ *****+*
- Page 103 and 104: 100 1 2 3 4 : 7 8 1: 11 12 MATRIX F
- Page 105 and 106: 102 o 31 7 1.EO I.EI 1.E2 1.E3 1.E4
- Page 107 and 108: 104 COVARIANCES CALCULATE FOR 2 REA
- Page 109: 106 REL. COV. OPTION (O ABS, 1 REL)