* ¢®ááâ ­®¢« ­ ¡®à®¢ //IOVOSNAB JOB (UROVEN11,1),'CM“‹œCKˆ‰-E1',REGION=150K 00000840 // EXEC FORTGCL 00000850 //FORT.SYSIN DD * 00000860 INTEGER GODP,MECP,CPR(9),GOD(9),MEC(9),DATA(9),CPOK(9) 00000870 INTEGER C,P 00000880 DIMENSION S3(2000) 00000890 DIMENSION Q(20,20,9) 00000900 INTEGER D3(2000) 00000910 COMMON /ARX/AIM(20,90),APM(20,90),CBIM(20,12),CBPM(20,12), 00000920 *CIM(20,12),CPM(19,12) 00000930 DEFINE FILE 1(1,7200,E,II) 00000940 DEFINE FILE2(1,7200,E,II1) 00000950 DEFINE FILE3(1,960,E,K1) 00000960 DEFINE FILE4(1,960,E,K2) 00000970 DEFINE FILE10(1,960,E,K3) 00000980 DEFINE FILE11(1,912,E,K4) 00000990 DEFINE FILE12(1,12,E,K5) 00001000 DEFINE FILE13(2000,8,E,K6) 00001010 DEFINE FILE14(9,1620,E,K7) 00001020 I1=1 00001030 READ(1'I1)AIM 00001040 I=8 00001050 P=11 00001060 READ(23)AIM 00001070 READ(23)APM 00001080 READ(23)CBIM 00001090 READ(23)CBPM 00001100 READ(23)CIM 00001110 READ(23)CPM 00001120 READ(23)GODP,MECP,K6 00001130 READ(23)(D3(L),S3(L),L=1,2000) 00001140 DO 46 L=1,9 00001150 46 READ(23)CPR(L),GOD(L),MEC(L),DATA(L),CPOK(L),((Q(M,K,L),M=1,P), 00001160 *K=1,I) 00001170 I1=1 00001180 WRITE(1'I1)AIM 00001190 II1=1 00001200 WRITE(2'II1)APM 00001210 K1=1 00001220 WRITE(3'K1)CBIM 00001230 K2=1 00001240 WRITE(4'K2)CBPM 00001250 K3=1 00001260 WRITE(10'K3)CIM 00001270 K4=1 00001280 WRITE(11'K4)CPM 00001290 K5=1 00001300 WRITE(12'K5)GODP,MECP,K6 00001310 K6=1 00001320 DO 38 L=1,2000 00001330 38 WRITE(13'K6)D3(L),S3(L) 00001340 K7=1 00001350 DO 47 L=1,9 00001360 47 WRITE(14'K7)CPR(L),GOD(L),MEC(L),DATA(L),CPOK(L),((Q(M,K,L),M=1, 00001370 *P),K=1,I) 00001380 20 FORMAT('X',127('*')/) 00001390 102 FORMAT(26X,'CI MAX C MAX') 00001400 103 FORMAT(25X,'CBP MEC CB1 MEC') 00001410 104 FORMAT(26X,'CP MAX') 00001420 52 FORMAT('X',20F6.3) 00001430 39 FORMAT(8(' ',I10,F5.2)) 00001440 40 FORMAT('X',4I7) 00001450 111 FORMAT('X',18(I7)) 00001460 END 00001470 /* 00001480