Vízgyűjtőfejlesztés (VMGT 95. VÍZDOK, Budapest, 1978)
Függelék
337 J7 K00*4 KBIT*1 nm>« ETA*XH/XX 01 «2 02*0.1 00 T0 *0 38 X 0 0 * 5 8UT.1 Kl|l*2 ITAMN/HXX 01*4 02*0.2 40 J*II*«EST 2J*II*KBSI 1 F (ETA.0.30) 41.41,42 41 01*01*2 02*02*2 00 TO 43 42 IF (ETA-0.20) 43,43,44 43 01 *01 *1 .» 02*02*1.» OO TO 43 44 IF (ETA-0.85) 40,46,4/ 46 01*01*1.6 02*02*1.6 00 TO 43 47 IF (ETA.0.95) 48.48,4« 48 01*01*1.3 02*02*1.5 00 TO 45 49 01 *01 *1.2 02*02*1.2 45 P(J)*P(j)-01 S(JJ)*0(JJ)-02 «PITE (2,52) XOD,X,KK,XT.XM,HXX ,|Z,TAKT,XL A« TT»S2«XT «PITE (2,10) TI.PE(II>,SA(II),EN<||> IF (11-30) 33,155,155 33 TA*T.TAXT*(1*P(II*1)/100.0) XIAX*XLAX*(1*«(II*1)/100.0) PE<I1*1)*TaKT*PP(I1*1>/100.0 00 101 1*2,INX IF <P(II*1)-XX(I>) 102,101,101 101 CONTINUE I* I NX 102 DO 103 J*2,ÍNY IF (Q(ll*1)-YY(J)) 104,103,103 103 CONTINUE J ■ I NV 104 TT*(OXti*1 )-YY<J-1 > >/4YYCJ)-YYCj-1 >> TX*22(I-1,J-1 >*<22<1-1,J)-22<1-1,J-1 )>*TT TT*22(I,J-1)*<22«I,J)-22<I.J-1»)*TT «■tx*(tt-tx)*(p(ii*1)*xx(I*i)>/(xx(i)-xx(i-i>) KK*XK*(1*«/100.0) ea(ii»1)*xx*oo(ii*i)/ioo.o En<II*1>*KX*P*U1*1)/1$0.0
