Vízgyűjtőfejlesztés (VMGT 95. VÍZDOK, Budapest, 1978)
Függelék
334 7 FORMAT (6F0.0) DO 8 0*1,6 8(1,J>*8(1,J)»»NIF »(*,J)**(2,J)*SMIF »(J,J)M(3.J>*IHLF 1(4,J)«R(4,J)*PNVT MS, J)*B(S, J)*SNVT M6, J)*B(6,J)*ENVT i<r.j)«R<r,j>*pofT M8.J)«B(8,J>*S0*T M9,J>*i(»,J>*E0»T 8 CONTINUE DO 11 1.1,50 DELTA*100*(iG(I)-IN)/(IG(50)-IN) NCI >*U( I). (0,4*0,001 «DELTA) 11 continue DO 9 1*1,50 UNITE 0,10) T(I),l(I),IG(t),N(I),PE(|),SA(I),EN(I> 9 CONTINUE WRITE (2,10) SPE.SSA.SEN WRITE (2,10) PMLFiPnvT.POST WRITE (2,10) 8MLF,$NVT,S0ST WRITE (2,10) EMLF,ENVT,E08T 52 FORMAT (2X,l4,4F20,4/4F20.4///> 10 FORMAT (2X.4F20.4/3F2O.4///) READ (1.1) (XX(I),1*1,5) DO 510 K*1,S II*(K-1>*10*1 JJ*K«10 DO 511 I«II,JJ,1 CI(I)*XX<<) 311 CONTINUE 310 CONTINUE READ (1,111) I NX,I NT 111 FORMAT (210) READ (1,2) (XX(I),1*1,INX) REAO (1,2) <VV(I),I*1,INY) DO 112 1*1,INX READ (1,2) <22 0 , J), J*1 , (NY) 112 CONTINUE DO 184 jjjj.1,50 PV(IJJJ)*P(IJJJ) evd JJJ)*Q(UJJ) 144 continue READ (1,160) NS2 160 FORMAT (10) DO 125 IJI*1,NS2 READ (1,160) ROOD MIRTaO.O NI»L*o.n SPI*0,0 8SA*0,0 S F N*0,0 READ (1 ,1)((A(I,J),J«1 ,5),1*1,5) WRITE (2,141) ((A(I,J),J»1,5),1*1,3)
