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 - 3. fejezethez
03.053. ALSÓ HATÁRFELTÉTEL SZÁMÍTÁSÁNAK SZUBRUTINJA, HA A HATÁRFELTÉTEL VÍZHOZAMGÖRBÉVEL ADOTT (LASTQMZM) LN 0001 SUBROUTINE LAST QMZM ( B, SEC ,U PP , AA, BB , ZO, QERR, QO) 03.053 LN 0002 c ALSO HATARFEL TETELI SZELVÉNY Q-Z ÉRTÉKÉI NEK SZANITASA Q-Z GOERBEBOEL LN 0003 c CONFUTATION OF VALUE Q-Z COURVE AT THE LONER BOUNDARY LN 00 0 A DIMFNSION B (SFC.A0) LN 0005 INTFGER SEC.UPP L N 0006 I=UFP LN 0007 125 MI= 2. *AA*(< B(I,12)-ZO> +BB) 3.1-39 LN 0008 156 Q=B (It 13) LN 0009 B(I ,13)= C-B (1,11)/MI 48 (I,12)-B(I,37) >/(B (1,35) *ABS(Q> + B CI ,361-1/ LN 0010 1MI) LN 0011 IF( ABS((B(I ,13)-Q)/Q).GT.0ERR) GO TO 156 L N 0012 B (I, 12> = B(I ,13) * (ABS (B (1,13 >)*B(I, 3 5) 4B(I,36)) 4 B (1,37) 3.1-A9 LN 0013 Q*AA* (B(1,12)-Z0)**24BB* (B( 1,12) - ZO) *QO 3.1-38B LN 001A IF(ABS((B(I,13)-Q)/Q),GT.QERR) GO TO 125 LN 0015 RETURN L N 0016 END USASI FORTRAN DIAGNOSTIC RESULTS FOR LASTGHZM NO ERRORS 21 Kocák 321
