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 - 5. fejezethez
LN OlOO A (M , 21 =C3»0X/2. t-E*BC/2 .-CC* AC LN 0101 A CM ,3) --l.fCC»0C*B2*B( 1, 16) /2. LN 0102 A <M,6)=C«t»0X/2.+E»BC/2.*CC»AC LN 0103 A <M ,7)=1.-CC»DC*B2*B(I, 16)/2. LN 010k A (M , 8)=-(B(IH,6)-B(I, 6) ) ♦CC’OCMB < 1*1,13)-B (1,13) *B2*B (I . 16) LN 0105 l(B(I,6)-8(I*l,6>)/2.)fE*BC*(B(I,S>»B(I + l,5)>/2.LN 0106 2(Cl*B(I,S)*C2*8(I + lt9) )*OXX2.-CC»AC*(8(IM,5)-B (1,5)) LN 0107 IF (I.EQ.l) GO TO 90 LN OIOS GO TO 93 LN 0109 90 A (M-l, 8>=A< M-1,8) »B(I, 9) LN 0110 A (M , 8)=A(M, 8)-A (M,2) »B (1*9) LN 0111 A (M-l,2> = 0. LN 0112 A (M , 2)=0 • LN 0113 93 CONTINUE LN 011k IF (I.EQ.SZ-1) GO TO 9k LN 0115 GO TO 97 LN 0116 9k A (M-l, 8) =A(M-1,8)-A (M-l ,7)*B(SZ,10) LN 0117 A <M,8)=A (M,8)-B(SZ, 10) *A (M, 7) LN 011S A(M-1,7)=0. LN eii9 A (M ,7) =0. LN 0120 97 CONTINUE LN 0121 RETURN LN 0122 ENO USASI FORTRAN DIAGNOSTIC RESULTS FOR EQCONSTP NO ERRORS 22 Kozák 337
