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.04. A 7.2. PÉLDA FŐPROGRAMJA LN 0001 C NEM PERMANENS ÁRAMLÁSOK SZÁMITASA KARAKTERISZTIKÁK MOOSZEREVEL LN 0n02 C COMPUTATION OF FLOW BY METHOD OF CHARACTERICS LN 0003 INTEGER RK, CIKL ,VAR, CT ,V .0. C,DR, OK, SEC.L OW, UPP L N 00 09 REAL IDO.KFtKH, KB,KA,MM, KM L N 00 05 DIMENSION B (61,90) ,A(61,17) ,TM<6> L N 0006 LOGICAL NYOM L N 00 07 READ 9,ZERR,QERR,DT,M,RK,L, NO,SEC L N 00 08 9 F0RMATCF8.6 ,F6.3,F6. 1,619) LN 0009 L OM =1 LN 0010 UPP = SEC LN 0011 TO=29.»3600. L N 0012 TX= 2.*TO L N 0013 CT= Z.*OT LN 3019 CIKL = 12*360 0/CT L N 0015 D=C IKL/6 L N 0016 SOT = 0 . L N 0917 JX=2*TX/CT* 1 LN 0018 CALL PRIOATCH(B,SEC,LOH,UPP ,ES,Z0, OX) LN 0019 OO 3 N-l.SEC LN 0020 OO 3 K=10,1 2, 2 LN 0021 3 B (N ,K) =B (N, 8) L N 0022 QO=B (1,9) L N 0023 A (1,1) =8 (1, 1) L N 00 29 A (1,2) =B (1, 8) LN 0025 A (1,3) =B (1, 9) LN 0026 A (1 ,15) = B (1,2) L N 0027 OO 20 N= 2,S EC L N 0028 A (N , 1) =A (N- 1,1) +DX LN 0029 A (N, 2) =B (N, 8) LN 0030 A(N,15) = A(N-1,15)-ES L N 00 31 20 A (N, 3)=QO LN 00 32 OO 17 Nr1«S EC LN 00 33 OO 17 K=9«12,2 LN 0039 A (N, K) =A (N, 2) L N 0 0 35 17 A(N,K+1)=A(N,3) LN oo ^6 DO 19 K= 1,6 LN 00 37 19 TM( K) =0. LN 0038 CALL OATAPRIN(B,SEC,NO) LN 0039 C DIRECTION OF PROGRAM LN 0090 OO 100 J=l, JX LN 0091 CALL BOUNOC ON (B,SEC,LON, UPP ,QO,TO,T,ZO) LN 0092 IOO=OT*( J-13/3600. LN ŰH93 T =J *CT/2 LN Ú0**9 SOTrSDTtDT LN 0095 IF( SPT.EQ.3600. ) GOTO 33 V 07.0* 07.0* 06.011 03.OBI #7. OS 363
