Vízgyűjtőfejlesztés (VMGT 95. VÍZDOK, Budapest, 1978)

Függelék

335

léi POSMAT (5X.5F13.4)

DO 14 Ka1,3

U*(Ka1)*10»1

JJaKalO

DO 1} I.1I.JJ

SS(I>*A(1,X)

BO(I)«A(2 < X)

SS(1 >RA(3,K)

15 CONTINUE

14 CONTINUE

41 AD (1,6) (<A(I ,J),J«1,J>.(«1,3)

WAIT! (2.142) ((A(I,J),Ja1,J>,1-1,3)

142 POSMAT (5X.JF15.4)

DO 16J I J J J «1 i 50 P(IJJJ).PV(1JJJ)

B(IJJJ)bQV(TJJJ)

163 CONTINUE

M(1>»T(1)4P»(1)/100.g IA(1)Bl6d)*SQ(1)/100.0 IN(1)N|a(1).NN(1>7100.0 TAXTaT(1)

XlAKalO )

DO 155 M«1 ,50 IP (XOOo-1) 204,205.205

205 JF (11-11) 200,201,200

200 IP (11-21) 202.201,202

202 IP (11-31) 203,201,205

203 IP (11-41) 204,201,204

201 SCAD (1,6) ((A(l.J),J-1,3),1-1,3)

WRITS (2,162) ((A(I,J),J-1,J),1-1,3)

XON Hal)

5PE-SP6-PE(I I)

SSA-SSA-SA(II)

SfcN-SS-.E*' (II)

0(1)«A(1,1).SPE 0(2)aA(2,1)-ISA U(3)-A(.1,1 )-ICN 0(4)aA(1,2)*SPE 0(5)-A(2.2)#SSA U(6)aA(3,2)*$EN 0(7)-A(1,3).EPE OC8)aA(2.3)-CSA U(9)aA(3,3)*$EN DO 16 1-1,9 00 17 J-1 ,6

IP (U(I)-S(I,J)> 16,1«,17

17 CONTINUE

V(I)al00,0 60 TO 16

18 IP (J-1) 19,19,20

19 V(I)aO.(1 00 TO 16

V(!)B(J.1)*20*(20,0)*(u(!)-B(t,J))/(Bd,J)-6(l,j-1))

20