Kozák Miklós: A szabadfelszínű nempermanens vízmozgások számítása digitális számítógépek felhasználásával (Akadémiai Kiadó, Budapest, 1977)
Mellékletek. Programok, szubrutinok, nyomtatási sémák 313 - 8. fejezethez
08.07. AZ EGYÜTTHATÓMÁTRIX KORREKCIÓJÁNAK MATCORR4 AZONOSÍTÓJÚ SZUBRUTINJA (8.1. PÉLDA) LN 0001 SU9 ROUT INE MATC0RR4 (8. A, SEC ,L2) 08.07 LN 0002 C FELDA, EXAMPLE 8.1,8.? LN 5003 C A QZ EGYÜTT HATÓ MATRIX KORRIGÁLÁSA LN 0004 C CORRECTION OF COEFFITIENT MATRIX QZ LN 0005 INTFGER SEC LN 0006 DIMENSION A <L2,5) , 3<SEC, 28) LN 0007 A (1 ,5)=A<1, 5)-A (1,1) ’B (1,15 ) 4.1-iC LN 0008 A <2,5)=A (2, 5)-A(2,l) «3 (1,15 ) LN 0009 A <1,1 >»0. 4.1-11 LN 1010 A<2,1)=0. LN 0011 M=2*(SEC-i) LN 0012 A<M-1,5)=A<M-1,5)-A(M-1,4)»8( SEC ,14) 4.1-10 LN 0013 AM ,5)=A(M,5)-A(M,4)*9 <SEC, 145 4.1-11 LN 0014 ACM-1,4) = 0. LN 0015 A (M ,4) =0. LN 0016 RET URN LN 0017 E N3 USASI FORTRAN DIAGNOSTIC RESULT' FOR MATC0RR4 NO ERRORS 08.08. A SZÁMÍTÁSI EREDMÉNYEKET RENDEZŐ RESORD AZONOSÍTÓJÚ SZUBRUTIN LN 00 01 <ESORO(B,C,D, KEK ,TX,KC,K1 LN 0002 C AOATL, í S NYOMTÁTÁSHOZ LN 00 03 c ARRANGEMENT CF OATA FOR PRINTING LN 00 04 INTEGER SEC LN 00Q5 DIMENSION B(SEC , 2 8) ,C(SEC,12> ,0(2,4) LN 0006 KEK = KEK-1 LN 00 07 IF( KEK.EQ.O ) GO TO 172 LN 00 08 GOTO 170 LN 0009 172 KEK =4 LN OOIO TX= TX/ 360 0. LN 0011 D<i,Lil)=TX LN 0012 0 (2 , LI 1) = KC LN 0013 L il=Lil+1 LN 0014 IF(L11.EQ.5) L 11=1 LN 0015 DO 200 1=1,SEC LN 0016 C(I,KU)=B(I,14) LN 0017 C(I,K1H-1) = B<I,26) LN 0018 200 C (I ,K11t2) = B(I, 14Í-B 11,2) LN 0019 K11=K11»3 LN 0020 IF(K11.EQ.13) Kll = l LN 0021 IF( Kll.EQ.l ) GO TO 201 LN 00 22 GO TO 170 LN 0023 201 CALL RESPRINT (3,C,0,SEC) LN 0024 170 CONTINUE LN 0025 RETURN LN 00 26 END 08.08 OS.09 USASI FORTRAN DIAGNOSTIC RESULTS FOR RESORD NO ERRORS
