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
IN 0038 C LN 0039 LN Ö 0 4 0 LN 0041 30* liN 0042 VI 0043 303 LN 0044 305 LN Ő045 LN 0046 LN Í047 LN 0048 LN 0049 161 LN i050 C LN Í051 C LN «052 LN Í053 LN $054 LN 0055 164 LN 0056 LN 0057 LN 0058 162 LN 0059 LN 0060 170 LN 0061 LN 0062 DISPOSITION OF RESULT d( 1»14) =M 1 *5) IF(9(SEC.14)-70)303*304,304 3(SEC,26)=A(U?,5) SO TO 3»3! 3(SEC,U) =A(L2*5) CONTINUF Nl*SEi>i 00 iei 1*2,NT ) 8i(I,26) =MM,5) 3(I,I4)eA(M*1,5> HI9AELLFN0RZFS CONTROLl OF ERROR 00 16? 1*1,N1 OQ=ABS((3(1,26)-8(1*15)>/8(I,l5)) IF(OQ-OERR) 162,162,164 KOKC+1 ITER=.TRJE, SO TO 33 CONTINUE CALL' RES0RD(9,C,D,KEK,TX,KC,KU,LllfSEC,HESPRlNT) CONTINUF STOP' ENO 08,08 USAS! FORTRAN DIAGNOSTIC RESULTS FOR FTN.MAIN NO ERRORS 25 Kozák 386
/
