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 - 8. fejezethez
08.11. MEDERTÁROZÓ FELTÖLTŐDÉSÉT SZÁMÍTÓ FŐPROGRAM A 8.2. PÉLDÁHOZ UN Ö001 C NEMPERMAmens vizmozgas FOLYÓKBAN IMPLICIT módszer UN 0002 C UNSTEADY flow IN RIVERS IMPLICIT meihoo UN Ö003 INTEGER SEC.P.R.TD.REK.DAY UN U004 REAL KI UN 0005 DIMENSION' 0(51*29) * A (100 * 5) * C(51»12) * O ( ? * 4) UH 0006 LOGICAL ITER UN í 007 external RESPRINT UN v009 COMMON /10/ ITER UN Í009 CALL DATA(8.SEC*DAY.81*K1.DH* OX,OT*RO,Z1»REK*TM.QFRR.7n1«<11. UN Ö010 lun.ql.cc.w,e.to,ri.jm,q,kek.dz) UN Ü011 Z0=9(SEC*9)*701 UN D013 3A=8(SEC.9)-60.0 UN j013 QPsO UN 5014CALL' RCOJRVl (9 * SEC, OX) UN 0015 call; cin»ar(b,zo,sec) UN UÓ16 IF (REk.lt.5) GO TO 31 UN 0 017 CALL' DATAPRIN(B.SEC) UN Ö019 31 CONTINUF UN 0019 C DIRECTION' OF PROGRAM BY TIME UN í 020 DO l7o Jsl.JM UN Ö021 TXi(J-l)»TO UN Ö022 ITER=.FALSE. UN Ö023 KC = 0 UN Ő024 8(1.15)= OR UN &025 3(1 * 26)=OR UN 0026 IF(B(SEr*14)-7D) 300.301*301 UN »027 300 8'( SEC * 15) =QA UN Ö028 3'(SEC,26)sOA UN 0029 GO TO 35? UN 0035 301 3(SEC,1 a)=ZD UN 0031 302 CONTINUF UN 0032 33 CONTINUF UN 0033 CALL' SECP.ARIM(B*SEC*DZ) UN 2034 CALL' EQCONIMP(A.B*SEC.OX.DT.E*CC*! 2) UN 0035 CALL' MATCORR3 (B. A ,SEC.L2,ZD) UN 0036 L2=2*(SFC-1) UN 2037 CALL EQS0L4(A.L2) 0R.11 Ofl.Ol 06.031 09,04 04.01 04.03 09.13 04.03 384
