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.13. AZ EGYÜTTHATÓMÁTRIX KORREKCIÓJÁNAK MATCORR3 AZONOSÍTÓJÚ SZUBRUTINJA (8.2. PÉLDA) LN 0001 SUBROUTINE MATC0RR3(B, A, SEC-'.2',2D) LN 00 02 C PÉLDA,EXANP LE 8.2 LN 0003 c A QZ EGYÜTT HATÓ MATRIX K ORRIGAL ASA LN 00 OA C CO RRECTION OF COEFFITIEN T MATRIX QZ LN 00 05 integer SEC LN 000G DIMENSION A (L2,5> , B (SEC, 28) LN 00 07 A(l,5>=A(i , 5)-A(i,l)*B(i ,15) LN 0008 A(2,5) = A(2, 5) -A(2,1) *8(1 ,15) LN 0009 A(1,l) = t* LN 0010 A(2,1) = 0 . LN 0011 H-2 * (SEC-1) LN 0012 IF(B(SEC, 1, >-ZD) 3 00,301, 301 LN 0013 300 A (M-1,5) *A< M-i,5)-A(M-l, 3)*B(SEC,15) LN 00 1A A (M-1,3) = A ( M-1,A> LN 0015 A(M,5) = A(M, 5)-A(M,3) *B(SEC»15> LN 00 16 A(M,3)=A(M, A) LN 0 017 GO TO 382 LN 0018 301 CONTINUE LN 0019 A (M-i , 5) =A( M-1,5) -AíM-l, A) *B (SEC-*1A) LN 0020 A (M,5) = A(M* 5)-A(M,A)*B(S EC.1A) LN 0021 30 2 CONTINUE LN 0022 A (M -11 A) =0 • LN 0023 A (M , A > - 0 « LN 002A RETURN LN 00 25 END USA Sí FORTRAN Dl AGNuST IC RESULTS FO R MATCÜRR3 nü erro RS OS. 13 A.1-10A A.1-11A 388
