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 0045 GO TO 135 LN 0046 128 DO 134 S=i. 4 LN 0047 N5= K»S LN 0048 C2=ACN5,2> LN 0049 DO 133 P = 3, 8,5 LN 0050 IF(P-8J 131,130,131 LN 0051 130 T=8 LN 0052 GOTO 132 LN 0053 131 T = 7 LN 0054 132 A <N5,P> = A<N5.P>-C2*A (K LN 0055 133 CONTINUE LN 0056 134 CONTINUE LN 0057 135 CONTINUE LN 0058 T=K ♦ 1 LN 0059 OO 143 1=1,3 LN 0060 K=K-1 LN 0061 C 1=0.0 LN 0062 OO 141 M=i,I LN 0063 H3=T-M L N 0064 MU = 7-M L N 0065 141 C1=A(M3,8)*A(K,H11) *C1 LN 0066 A«,8)=A<K, 8)-Cl LN 0067 143 CON TINUE L N 0068 I=S Z Ml L N 0069 144 1=1-1 LN 0070 T=T-4 LN 0371 K9= 0 L N 0072 OO 152 M=K 9, 3 LN 0073 Cl= 0.0 LN 0074 K=K -1 L N 0075 DO 150 S=K9,M L N 0076 MA= T-S L N 0077 M9= 7-S L N 0078 150 C1=A (M4, 8)* A(K,M9) +C1 LN 0079 A<K, 8) =A (K, 8)-Cl L N 0080 152 CONTINUE L N 00 81 IF( I. GE. 2) GO TO 144 L N 00 82 RETURN LN 0083 EfO USASI FORTRAN DIAGNOSTIC RESULTS FOR EOUSOL7 NO ERRORS 22* 339
