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.03. A HATÁRFELTÉTEL BOUNDCON AZONOSÍTÓJÚ SZUBRUTINJA A 7.2. PÉLDÁHOZ LN 0001 SUBROUTINE BOUNDCON(B,SEC.L OW,URP, QO,TO,T,ZO) LN 0002 C A FELSŐ HAT ÁRFELTÉTEL SZAMITASANAK SZUBRUTINJA LN 00 03 c SUBRUTINE FOR THE COMPUTATION OF THE UPPER BOUNDARY LN 00 0A INTEGER SEC.UPP LN 0005 DIMENSION B (SEC.A0) LN 00 06 T1=0. LN 0007 T 2= 720 LN 0008 T3= 18720 LN 0009 TA= 19AA0 LN 0010 T5= 86AOO LN 0011 T6= 87120 LN 0012 T7= 105120 LN 0013 T8= 105 8AO LN 001A IF1T.LT.T2) Q= QO *15*00*( T-T 1) /(T2-T1) LN 0015 IFCT.GE.T2. AN0.T.LE.T3.0R.T .GE.T6 . A NO. T. L E .T7) Q=16*00 LN 0016 IF1T.GT.T3. AND.T.LT.TA) Q=1 6*Q0-15* QO* (T-T3) /(T A-T3 ) LN 0017 IF(T.GE.TA. AN0.T.LE.T5.0R.T .GE.T8) Q=QO LN 0018 IF1T.GT.T5. ANO. T.LT.T6» Q=Q 0*15* QO* (T-T5> / (T6-T5) LN 0019 IF(T.GT.T7. ANO.T.LT.T8) Q=1 6* QO-15 *QO* < T-T7) /(T8-T7) LN 0020 B (L OH, 13) =Q LN 0021 B fUPP,12)=Z D LN 0022 RETURN LN 0023 E N) 07.03 USAS! FORTRAN DIAGNOSTIC RESULTS FOR B0UN0C0N NO ERRORS 362
