The NJOY Nuclear Data Processing System, Volume 1:User's Manual

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