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
N 0026 301 B <S EC, 14 ) =Z D N 0027 L 2= 2* (SEC-1> N 0028 CALI. EQCONI MP(A, B, SEC, OX ,OT ,E,CC,L2) N 0029 CALL MAT COR R4 (B,A,SEC, L2 ) N 00 30 CALL EGSOL4 <A,L2> N 0031 C DISPOSITION OF RESULT N 0032 B (1 , 14) = A(1,5) N 00 33 304 B (S EC, 26) =A (12,5) N 00 34 N1= S£ C-l N 0035 DO 161 1-^,N1 N 0 0 36 M =2 *(1-1) N 00 37 B (I , 26) = A (M , 5) N 00 38 161 B(I,14)-A<MU,5) N 0039 c HIBAELLENORZES N 0040 c CONTROLL OF ERROR N 0041 DO 162 1=1,N1 .N 0042 DQ= ABSMBd ,26) -9(1,15) ) /BII.15) ) .N 0043 IF(DQ-QERR) 162,162,164 N 0044 164 KC= KC+1 .N 0045 ITE R=.TRUE. .N 0046 GO TO 33 .N 0047 162 CONTINUE . N 00 48 CALL RESORO (B,C , D, KEK, TX ,KC ,K11, L 1,1 , SEC, RESPRINT) . N 0049 17 0 CONTINUE _N 0050 STO P-N 0051 ENO 04.02 08.0? 04.03 09.08 USASI FORTRAN DIAGNOSTIC RESULTS FOR FTN.MAIN NO ERRORS 391
