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.051. ALSÓ HATÁRFELTÉTELI SZELVÉNY VÍZSZINTJE SZÁMÍTÁSÁNAK SZUBRUTINJA (LASTZM) LN 00 01 SUBROUTINE L AST Z M ( B , SEC , UFP ) LN 00 02 C ALSO HAT ARF EL TETELI SZELVÉNY ZM VIZSZINTJFNEK SZAMITASA LN 0003 c COMPUTATION OF WATERLEVEL ZM AT THE LOWER BOUNDARY LN 00 OA INTEGER SEC.UPP LN 00 05 DIMENSION B (SEC, A0) LN 00 06 I=UPP LN 00 07 B (I , 12)=B(I ,13) * (ABS (B (I ,13 )) *BI [I,35)+9(I,36))«-B(I,37> LN 00 08 RETURN LN 0009 END USASI FORTRAN DIAGNOSTIC RESULTS FOR L ASTZH NO ERRORS 03.052. ALSÓ HATÁRFELTÉTELI SZELVÉNY VÍZHOZAMA SZÁMÍTÁSÁNAK SZUBRUTINJA (LASTQM) LN 0001 SUBROUTINE LAST OM (B , SEC , UPP ,QERR) LN 0002 c ALSO HAT ARF ELTETELI SZELVÉNY QM VÍZHOZAMÁNAK SZAMITASA LN 0003 c COMPUTATION OF DISCHARGE QM AT THE LOWER BOUNOARY LN OOOA INTEGER SEC.UPP LN 0005 DIMENSION B (SEC, A0) LN 0006 I=UPP LN 00 07 121 Q=3 (1,13) LN 0008 B (I ,13) = (B( 1,12)-B( 1,37) )/( B( 1,35) *ABS(Q> *B (1,36) ) LN 0009 IF(ABS(B(I, 13)—Q).GT.QERR)GO TO 121 LN 0010 RETURN LN 0011 ENO USASI FORTRAN DIAGNOSTIC RESULTS FOR LASTQM NO ERRORS 03.051 .1-A9 03.052 3.1-55 320
