*corr */IOCORU11 JOB (UROVEN11,1),'CM“‹œCKˆ‰-E1',REGION=150K 00002220 */OTLADKA EXEC FORTGCLG,PARM.FORT='SOURCE' 00002230 */FORT.SYSIN DD * 00002240 INTEGER GODP,MECP 00002250 INTEGER C,P 00002260 DIMENSION S3(2000) 00002270 INTEGER D3(2000) 00002280 COMMON /ARX/AIM(20,90),APM(20,90),CBIM(20,12),CBPM(20,12), 00002290 *CIM(20,12),CPM(19,12) 00002300 * DEFINE FILE 1(1,7200,E,II) 00004100 logical log1 character*3 stat1 inquire(file ='scuzaim',exist =log1) if(log1) then stat1 = 'old' else stat1 = 'new' end if open(1, file='scuzaim', access='direct',recl=7200,status=stat1, & form='unformatted') * DEFINE FILE2(1,7200,E,II1) 00004110 inquire(file ='scuzapm',exist =log1) if(log1) then stat1 = 'old' else stat1 = 'new' end if open(2, file='scuzapm', access='direct',recl=7200,status=stat1, & form='unformatted') * DEFINE FILE3(1,960,E,K1) 00004120 inquire(file ='scuzcbim',exist =log1) if(log1) then stat1 = 'old' else stat1 = 'new' end if open(3, file='scuzcbim', access='direct',recl=960 ,status=stat1, & form='unformatted') * DEFINE FILE4(1,960,E,K2) 00004130 inquire(file ='scuzcbpm',exist =log1) if(log1) then stat1 = 'old' else stat1 = 'new' end if open(4, file='scuzcbpm', access='direct',recl=960 ,status=stat1, & form='unformatted') * DEFINE FILE10(1,960,E,K3) 00004140 inquire(file ='scuzcim',exist =log1) if(log1) then stat1 = 'old' else stat1 = 'new' end if open(10, file='scuzcim', access='direct',recl=960 ,status=stat1, & form='unformatted') * DEFINE FILE11(1,912,E,K4) 00004150 inquire(file ='scuzcpm',exist =log1) if(log1) then stat1 = 'old' else stat1 = 'new' end if open(11, file='scuzcpm', access='direct',recl=912 ,status=stat1, & form='unformatted') * DEFINE FILE12(1,12,E,K5) 00004160 inquire(file ='scuzgkm',exist =log1) if(log1) then stat1 = 'old' else stat1 = 'new' end if open(12, file='scuzgkm', access='direct',recl=12 ,status=stat1, & form='unformatted') * DEFINE FILE13(2000,8,E,K6) 00004170 inquire(file ='siozdis',exist =log1) if(log1) then stat1 = 'old' else stat1 = 'new' end if open(13, file='siozdis', access='direct',recl=8,status=stat1, & form='unformatted') DO 7070 L=1,90 00002390 DO 70 M=1,20 00002400 70 AIM(M,L)=99.99 00002410 7070 continue DO 7171 L=1,90 00002420 DO 71 M=1,20 00002430 71 APM(M,L)=99.99 00002440 7171 continue I1=1 00002450 WRITE(1,rec=I1)AIM 00002460 II1=1 00002470 WRITE(2,rec = II1)APM 00002480 DO 7272 L=1,12 00002490 DO 72 M=1,20 00002500 72 CBIM(M,L)=99.99 00002510 7272 continue DO 7373 L=1,12 00002520 DO 73 M=1,20 00002530 73 CBPM(M,L)=99.99 00002540 7373 continue DO 7474 L=1,12 00002550 DO 74 M=1,20 00002560 74 CIM(M,L)=99.99 00002570 7474 continue DO 7575 L=1,12 00002580 DO 75 M=1,19 00002590 75 CPM(M,L)=99.99 00002600 7575 continue MEC1=1 00002610 MEC2=10 00002620 I=8 00002630 P=11 00002640 DO 44 L=MEC1,MEC2 00002650 READ(5,43)(CBIM(M,L),M=1,I),CBIM(20,L) 00002660 READ(5,43)(CIM(M,L),M=1,I),CIM(20,L) 00002670 READ(5,43)(CBPM(M,L),M=1,P),CBPM(20,L) 00002680 44 READ(5,43)(CPM(M,L),M=1,P) 00002690 43 FORMAT(13F6.3) 00002700 K1=1 00002710 WRITE(3,rec=K1)CBIM 00002720 K2=1 00002730 WRITE(4,rec=K2)CBPM 00002740 K3=1 00002750 WRITE(10,rec=K3)CIM 00002760 K4=1 00002770 WRITE(11,rec=K4)CPM 00002780 K6=1 00002790 DO 38 L=1,2000 00002800 S3(L)=99.99 00002810 D3(L)=99999 00002820 * 38 WRITE(13'K6)D3(L),S3(L) 00002830 38 WRITE(13,rec=l)D3(L),S3(L) 00002830 K5=1 00002840 MECP=11 00002850 GODP=1984 00002860 K6=1 00002870 WRITE(12,rec=K5)GODP,MECP,K6 00002880 WRITE(6,40)GODP,MECP,K6,K5 00002890 K1=1 00002900 READ(3,rec=K1)CBIM 00002910 K2=1 00002920 READ(4,rec=K2)CBPM 00002930 K3=1 00002940 READ(10,rec=K3)CIM 00002950 K4=1 00002960 READ(11,rec=K4)CPM 00002970 DO 50 J=1,12 00002980 50 WRITE(6,52)(CBIM(K,J),K=1,I),CBIM(20,J) 00002990 WRITE(6,20) 00003000 WRITE(6,102) 00003010 DO 51 J=1,12 00003020 51 WRITE(6,52)(CIM(K,J),K=1,I),CIM(20,J) 00003030 WRITE(6,20) 00003040 WRITE(6,103) 00003050 DO 53 J=1,12 00003060 53 WRITE(6,52)(CBPM(M,J),M=1,P),CBPM(20,J) 00003070 WRITE(6,20) 00003080 WRITE(6,104) 00003090 DO 54 J=1,12 00003100 54 WRITE(6,52)(CPM(M,J),M=1,P) 00003110 20 FORMAT('X',127('*')/) 00003120 102 FORMAT(26X,'CI MAX C MAX') 00003130 103 FORMAT(25X,'CBP MEC CB1 MEC') 00003140 104 FORMAT(26X,'CP MAX') 00003150 52 FORMAT('X',20F6.3) 00003160 39 FORMAT(8(' ',I10,F5.2)) 00003170 40 FORMAT('X',4I7) 00003180 END 00003190 ** 00003200 */GO.SYSIN DD * 00003210 */FT01F001 DD DSN=SCUZAIM,UNIT=5061,VOL=SER=METEO, 00003620 */ DISP=(OLD,KEEP),SPACE=((7200,1),,CONTIG) 00003630 */FT02F001 DD DSN=SCUZAPM,UNIT=5061,VOL=SER=METEO, 00003640 */ DISP=(OLD,KEEP),SPACE=((7200,1),,CONTIG) 00003650 */FT03F001 DD DSN=SCUZCBIM,UNIT=5061,VOL=SER=METEO, 00003660 */ DISP=(OLD,KEEP),SPACE=((960,1),,CONTIG) 00003670 */FT04F001 DD DSN=SCUZCBPM,UNIT=5061,VOL=SER=METEO, 00003680 */ DISP=(OLD,KEEP),SPACE=((960,1),,CONTIG) 00003690 */FT10F001 DD DSN=SCUZCIM,UNIT=5061,VOL=SER=METEO, 00003700 */ DISP=(OLD,KEEP),SPACE=((960,1),,CONTIG) 00003710 */FT11F001 DD DSN=SCUZCPM,UNIT=5061,VOL=SER=METEO, 00003720 */ DISP=(OLD,KEEP),SPACE=((912,1),,CONTIG) 00003730 */FT12F001 DD DSN=SIOZGKM,UNIT=5061,VOL=SER=METEO, 00003740 */ DISP=(OLD,KEEP),SPACE=((12,1),,CONTIG) 00003750 */FT13F001 DD DSN=SIOZDIS,UNIT=5061,VOL=SER=METEO, 00003760 */ DISP=(OLD,KEEP),SPACE=(8,(2000,1),,CONTIG) 00003770 ** 00003780 */ 00003790 00003800