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 - 7. fejezethez
07.06. A HATÁRFELTÉTEL BOUNDCON AZONOSÍTÓJÚ SZUBRUTINJA A 7.3. PÉLDÁHOZ LN OüQl SUBROUTINE BOUNOCON ( B ,SEC ,L OW , UPP , QO,TO,T, ZD) LN P8G2 C A FELSŐ HATARFELTETEL SZÁMITASANAK SZUBRUTINJA LN 0003 c S UBRUTINE FOR THE COMPUTATION OF THE UPPER BOUNOARY LN OÜOit INTEGER SEC,UPP LN Oil 05 DIMENSION BÍSEC.AO) LN 00 06 Tl= 0 • LN 0007 T2 = 720 LN PJ08 T 3=18720 LN 0009 TA=19AAQ LN 0010 T5-66AOO LN Ou 11 T6=87120 LN 0012 T7=105120 LN 0 013 T 8= 10 58A0 LN oaiN IF(T.LT.T2) Q=Q0 + 15*Q0*(T-T1) /(TZ-Tl) LN 0015 IF(T «GE.T2. AN0.T.LE.T3.0R.T.GE.T6. AND.T.LE.T7) Q=16*Q0 LN 0016 IFtT.GT.T3.AND.T.LT.TA) Q=16*00-15*00*(T-T3)/(TA-T3) In ÜO 17 IFd.GE.TA.AN0.T.LE.T5.0R.T.GE.T8) Q=QO LN 0018 IF(T.GT.T5 .AND.T.LT.T6) Q=QO *15*QO» (T-T5) / < T6-T5) LN üu 19 IF(T.GT.T7. AN0.T.LT.T8) Q=1 6»a0-15*Q0*(T-T7 > / (T8-T7) LN 0 0 20 8 <LOW,13)=QO LN 0021 B (UPP,12 ) =Q LN 0022 RETURN LN 0023 END USASI FORTRAN DIAGNOSTIC RESULTS FOR BOUNDCON NO ERRORS 07. 370
