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
a 7. fejezethez 07.01. KARAKTERISZTIKÁK MÓDSZERÉNEK FŐPROGRAMJA, ORTOGONÁLIS HÁLÓZAT ESETÉN, A 7.1. PÉLDÁHOZ LN 0001 „N 0002 -N 08 03 -N 03 9 9 LN 0ŰQ5 LN Oü06 LN 0J 07 IN 3008 LN 0009 LN 0«1P LN 0011 LN Bt) 12 LN 0013 LN 0019 LN 0015 LN 0016 LN 0017 LN 0018 .N 0019 LN 0020 LN 0021 LN 0022 -N 00 23 -N 0029 LN 0025 LN 0026 LN 00 27 LN 0028 LN 0029 LN 0030 LN 0U 31 LN 0032 LN 0033 LN 00 39 lN 0035 LN 0336 LN 0037 LN 0038 LN 0039 LN 0090 LN 0091 LN 0092 LN 0093 L N 00 99 LN 3095 C NEMPERMANENS ÁRAMLÁSOK SZAMITASA KARAKTERISZTIKÁK MÓDSZERESEI C COMPUTATION OF FLOW BY METHOD OF CHARACTERICS INTEGER RK, CI KL, V AR, CT, V ,0, C ,OR,OK, SEC,LOW, UPP REAL IOO,KF,KH,KB,KA,MM, KM DIMENSION B(61,90),A (61,17) ,TM<6) LOGICAL NYOM READ 9,ZERR,QERR,0T, M,RK ,L,NO,SEC 9 F0RMATÍF3.6 »F6.3,F6. 1,619) L OW= 1 UPP = SEC T0=29.*3600. TX=2.*TO CT=2.»0T CIKL = 12»’36007CT D=CIKL76 SOT =0 . JX=2*TX/CT*1 CALL PRIOATCH(B,SEC,LOW, UPP,ES;ZtJ,DX3 oo 3 N=i,sec 00 3 K=10,12,2 3 B(N,K)=B(N.ST 50= B tl, 9 ) AU,1)=B (1,1) A(1,2) = B(1, 3) Atl,3) = B-(l, 9) A (1,15) =8 (1,2) DO 20 N=2,SEC A (N, 1) = A (N“l, ITiDX A(N,2) = 3(N, 8) A(N,15> =A<N-1,15)-ES 20 A (N*3) = 00 00 17 N=1,SEC DO 17 K=9,12,2 A (N,K)=A (N, 2) 17 A (N.K+l) =A( N, 3) 00 19 X = l,6 19 TM(K)=0. CALL DAT A PR IN (B, SEC, NO) C DIRECTION OF PROGRAM DO 100 J=i,JX CALL 30UN0C0N(3,SEC,L0W,UPP ,QO,TO,T> IOO=OT* ( J-D/3600 . T=J*CT/2 SDT=SOT+DT IF (SOT. E 0.3 600 r) GOTO 33 07.01 07.01 06.011 03.081 03.09 356
