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

Függelék

333

MASTER UEPG

REAL IN,|n,1.(100>#I8(190>.*P.ami„,kk,KT,Kh

DIMENSION T<1OO)iPI(<U0),S*nUŰ),ENtl00)<A«Vl»),Pt100),0(10l').

*RCioo),BP(ioo).ae(ioo).RN<ioo).e<9,6),iJ<ii))l»(io>»Kioo)#ii*<i4*).

KW (10) ,E2(10i10)#PV{»0>,OV(»0>.CS(60>

READ <1.1» < (AU , J) , J*1 ,5), 1*1 >6)

1 FORMAT (5 F 0,0 )

REAP (1,2) TN.IN.IN

2 FORMAT (1r»0.0>

T(1>*Tn.(1*a(1 .D/1UC)

K1)»IN*(1*a(2.1>/100>

10(1)*In*(1*A(3.11/100)

PE(1)*T(1)*A(4.1)/100.0 SA(1)«!S<1)*A(5,1>/100.P ÍN(1)«!(|<1)*A<4,1)/100.0 DO 3 «»1,3 11■CK-1» *10*1 JJaK*10

DO A l«II,JJ , 1

P«!)nA(1,K>

9(I)n*(2.K)

R(I)*A(3,K)

pp(1>«a<a,o

Q0(I)*A(3»K)

R»(I>NA(6.K)

A CONTINUE

3 CONTINUE IPÉ-PEd)

SSA>SA(1)

IINMNID DO 3 !>2 « 30

T(l)*T(t-1>»(1*P(I>/1U0)

L(l)«td-1).d*Q(I)/1U0)

I6(I>6|(1(In1>*(1*RU>/100>

PI(X)*T(I)*PPCI)/10Q,0

s«M)«io(!)*qe(l>/ioo.o

IMl)*lG(J)*RR(I>/100.0

8RI*8P|»PE(I)

tIA-SSA.SM!)

8EN*S8N«EN(I )

3 CONTINUE

RIAD (1.2) KP.AMIN 6 FORMAT (3F0.0)

READ (1,6) ((A(IiJ)iJ*1,3),1*1.3)

PMLF«A(1,1>.»PI *MIF.A(J,1).SIA EMlFnA(3,1)* $ fi n PNVTaAd ,2).*PE INVTnA(212)*88 A INVTaA(3#2)*88N P08T«A(1,3)*SPI S08T*A(2,3)*88A I0IT*A(3,3)»IEN

RIAD (1.2) ((8(1,J) ,J*1,6).1*1>P)