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 0035 Hi«9»R.~ LN 00 36 M2r 12«-K LN 0037 AC= AC*B<I,M1)/B(I,M2)**2*B<IH,M1) / В (I П , М2) ♦*2 LN 0036 BC*BC+1./B(I,M2) »1./В<1»1,М2) LN 0039 0C=DC*B(I,M1)«*2/B(I,M2) **3 *8 (I * Ml) **2/B (I,M2)*»3 LN 00 90 FC=FC»B{IM,M2>-8(I,M2> LN 0091 53 R-9 LN 0092 IF(B(I,7).LT.O.) AC = AC/2. LN 0 0L3 C1=ABS(B(I,9))/B(I,19) LN 0099 C 2= ABS (BUM, 9) >/B (Hl, 19) LN OOL5 C3= A BS (3 (I, 8))/B(I, 21) LN 0096 C9=ABS(B(IU,8) )/8(1+1,21) LN 0097 A(M, 1)=C3*B X/2. + E*BC/2.-CC*AC LN 00<*6 А (M , 3>=-i.»CC*DC*Bl/2. LN 001*9 A(M,5HC9*0X/2. + E*BC/2.»CC*AC LN 0050 А (M,7)=l.-CC»0C*Bi/2 LN 0051 A<M,8>=- (BUM, 6)-8(1, 6) ) »0 0*00* (B (I»1,12)-B(I, 12) »Bl* LN 0052 KBU ,6)-B(IM,6> )/2.)»E» (B< 1,9) »B(I»1,91 ) «BC/2.-(Cl*B (1,9) + LN 0053 2C 2* В (1+1,9) )*0X/2.-CC*AC*(B (Hl, 9) - В (1,9 ) > LN 0059 TF(I.EO.l) GO TO 71 LN 0055 GO TO 79 LN 005b 71 А (M -1, 8) = Al M-l, 8 ) »B (I, 8) LN 0057 А (M , 8) =A (M, 8)-A (M, 1) «8 (I ,8) LN 0058 A (M-1,1) =0. LN 0059 A(M,1)=0, LN 0060 79 CONTINUE LN 0061 IF(I.EQ.SZ-l>GO TO 75 LN 0062 GO TO 77 LN 0063 75 A(M-1,8>=A(M-1,8)-A(H-1,7)*8(SZ,10) LN 0069 A(M,8)=A (M, 8)-B(SZ,10)*A (M, 7) 335
