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

a 8. fejezethez

08.01. AZ ALAPADATOKAT BEOLVASÓ ÉS ADATTÖMBÖT FELTÖLTŐ DATA AZONOSÍTÓJÚ SZUBRUTIN (8.1. PÉLDA)

LN 0001 LN 0002 LN 3003 LN 000N LN 0005 LN 00 06 LN 0007 LN 0003 LN 0009 LN 0010 LN 0011 LN 0012 LN 0013 LN 001A LN 0015 LN 0016 LN 0017 LN 0013 LN 0019 LN 0020 LN 0021 LN 0022 LN 0023 LN 002A LN 0025 LN 0026 LN 0027 LN 0028 LN 0029 LN 0030 LN 0031 LN 0032 LN 0033 LN 003*4 LN 0035 LN 0036 LN 0037 LN 0033 LN 00 39

SU3POUTINE DATA (8, SEC, OA Y,B 1, KI, OH , DX,DT,RO,Z1,REK,TM,OERR,ZOl, iKll.Lll, QL,CC,W,E,TD ,R1, JM, Q, KE<, OZ )

C INDÍTÓ ADATOK ES AOATTOE H9 FELTOELTtSE

C INITIAL DATA ANO FILLING OF 8ASIC DATA

I NTEGER SEC ,TO, REK, DAY REAL Kl

OINENSION B (SEC, 28)

REAP (60, 101) SEC, DAY,REK,Kl 1,L 11, KEK, 81, K l,OH, OX , OT ,RO ,Z1 ,SL ,T M, 1QERR, ZOl ,QL

101 FORMAT (612, 7F6.1, Fg . 5, F 3 .17 3F10, 2)

COÍ./19.62 H=0X/DT E=W/19.62/2 .

TO=DT Rl= OAY

JM=Pi*TM/OT 4-1.

C FILLING OF DIMENSION FOR PRISNATIC CANALS

Q=31«DH»K1* (B1*DH/(9142. *OH>> »*0.6 666*SQRT (SL)

3(l,i)=0.

B (1,2)=Z1 9 (1,3) =31 B (i,<4>=P.

8 (1,5) =2 *RO B (1,6) =K1 B (1,7)=B1

8 (1,8) =71 40 H B (1,9) =0

B (1 , iö) = QL DZ=OX*SL OO 1 1=2-SEC

9 (1,1)=B(I-1, 1) 40Y B(I,2)=B(I-1,2)-DZ DO 11 K=l,8

11 9(I,K42)=B(I-1,K42)

B(I,9)=B(I-1,8)-DZ B(SFC,9)=B(SEC,3) 4ZD1 1 CONTINUE RETURN END

USASI "ORTRAN DIAGNOSTIC RESULTS FOR DATA

NO ERRORS

03.01

374