//IODUBNAB JOB (UROVEN11,1),'CM“‹œCKˆ‰-E1',REGION=150K 00001580 // EXEC FORTGCL 00001590 //FORT.SYSIN DD * 00001600 INTEGER GODP,MECP,CPR(9),GOD(9),MEC(9),DATA(9),CPOK(9) 00001610 INTEGER C,P 00001620 DIMENSION S3(2000) 00001630 DIMENSION Q(20,20,9) 00001640 INTEGER D3(2000) 00001650 COMMON /ARX/AIM(20,90),APM(20,90),CBIM(20,12),CBPM(20,12), 00001660 *CIM(20,12),CPM(19,12) 00001670 DEFINE FILE 1(1,7200,E,II) 00001680 DEFINE FILE2(1,7200,E,II1) 00001690 DEFINE FILE3(1,960,E,K1) 00001700 DEFINE FILE4(1,960,E,K2) 00001710 DEFINE FILE10(1,960,E,K3) 00001720 DEFINE FILE11(1,912,E,K4) 00001730 DEFINE FILE12(1,12,E,K5) 00001740 DEFINE FILE13(2000,8,E,K6) 00001750 DEFINE FILE14(9,1620,E,K7) 00001760 I1=1 00001770 READ(1'I1)AIM 00001780 I=8 00001790 P=11 00001800 II1=1 00001810 READ(2'II1)APM 00001820 K1=1 00001830 READ(3'K1)CBIM 00001840 K2=1 00001850 READ(4'K2)CBPM 00001860 K3=1 00001870 READ(10'K3)CIM 00001880 K4=1 00001890 READ(11'K4)CPM 00001900 K5=1 00001910 READ(12'K5)GODP,MECP,K6 00001920 I2=K6 00001930 K6=1 00001940 DO 38 L=1,2000 00001950 38 READ(13'K6)D3(L),S3(L) 00001960 K6=I2 00001970 K7=1 00001980 DO 47 L=1,9 00001990 47 READ(14'K7)CPR(L),GOD(L),MEC(L),DATA(L),CPOK(L),((Q(M,K,L),M=1, 00002000 *P),K=1,I) 00002010 WRITE(23)AIM 00002020 WRITE(23)APM 00002030 WRITE(23)CBIM 00002040 WRITE(23)CBPM 00002050 WRITE(23)CIM 00002060 WRITE(23)CPM 00002070 WRITE(23)GODP,MECP,K6 00002080 WRITE(23)(D3(L),S3(L),L=1,2000) 00002090 DO 45 L=1,9 00002100 45 WRITE(23)CPR(L),GOD(L),MEC(L),DATA(L),CPOK(L),((Q(M,K,L),M=1,P) 00002110 *,K=1,I) 00002120 END 00002130