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.041. FELSŐ HATÁRFELTÉTELI SZELVÉNY VÍZSZINTJE SZÁMÍTÁSÁNAK SZUBRUTINJA (FIRSTZM) LN 0001 SUBROUTINE FIRSTZM(B.SEC »LOW) LN 0002 C A FELSOE HA TARFELT ET ELI SZELVÉNY ZH VIZSZINT JENEK SZÁMIT ASA LN 0003 C COMPUTATION OF WATERLEVEL ZM AT THE UPPER BOUNOARY LN 00 OL INTEGER SEC LN 0005 DIMENSION 3 (SEC * AO) LN 0006 I=L OW LN 0007 B(I,12) = B(I ,13)*(ABS«B<I,13))*B(I.3 8) *-8(1,395) *B(I,i*0) LN OOOS RETURN LN 0009 ENO USASI FORTRAN DIAGNOSTIC RESULTS FOR FIRSTZM NO ERRORS 03.01*1 3.1-50 318
/
