C hOUTlK;L TD wHlTfc 



1 417. 7) .^(7< 

 1 h ►' I n I ( J ) . L I ^ 



4RLF 



4 T4F^L^ nf lt»ST4NTAMF0US HYUR4ULICS 

 H.LT^.LK.M.'^X 



Nl,r,,MUiLFT.ICh(3),ISE(1)i'JR.LC7.7).B(7.7).0(7,7). 

 7).h(7,7).V(7.7).'3(7.7).HS,Hb.H(7.7).ICiIS.»MlNI(J). 

 .Qxrj),QlKjHOiAf14y,Lt|.jGTH(3) 

 y(51.ntf'VC5>).X.wT,IWl,2FT4,Hh 

 fixn.7,7).0XC3.7.7),Hx(i,7,7).i«XCJ.7,7).LX(3,7,7)fNXC3 



li7.7) 



Cn^■M(lfJ/MI! 



li4T4 NAMt/t 

 HMSaX/JhOO, 

 w « 1 T t ( b . 1 ) 

 FOKi.jTC 1 Xi I 



1 b X • t T I w F . H 

 DO 100 MS] 

 kHiTt '6i 1 C) 

 FDW'^41 C/t lOX 



IL.f-Te [,F7.ai 



lin^ 1 



ir=!cH(Mn 



ISsTSfc(Ml) 



00 II Jst . ic 

 D" 1 Is( .IS 

 A(I,J)=MX(nI 



l))/f?tT4»FL" 

 IF(A(I,,I) ,LT 



vn.j)<:v(^ n 



IF(»(I..I) .Lt 



1 F C J . t Iv . I ) h 

 "■IvlTt (6.69) 

 FUHmaT( /) 

 -HlTFtfc.bC) 

 FnHM4T(UX,I2 

 wHlTfc(6,50) 



». » I T f ( 6 , 5 ) 

 CONT IMJf 

 "RlTttb.SO) 

 FO'VmaTCSXi [T 



1 l.F7,l) 

 VP4Biy(NI)/» 

 hSiTf (6.61 ) 

 F0km4T(5x. (" 



\ tC I. r »^'I^B 

 CONTINUE 

 XETlIRN 

 tND 



J/RS 



;(3.«) 



'F(u) 

 'tFPS) 



wS 



SH4(FT?) .6H«EIC;ht ifcHLtVtL 



'[./ 



UHS I I,F8.3) 

 MM.tT 



M.HS.HH,y(Nn 



. C^JLtT f.l3./.lnx. [St4 LtVtL.f'T» [.F7.2./.10X, te»Y LEVE 

 /.l(1X.(niSCH4HGF,CFSit.F10.u./,?x, [CHANNEL SECT 



? 3 U i 60 



I..^»(nx(^JI^I.J)+HX(^lI,I.J))tMX(M.IlJ)»»BS(MX(NI,I^J 



T(IC)) 



O.dl ) «( Tt J)=0, 

 •►■XfMl.T.Jl/Ad.J) 

 .0.01) V(I.J)»0. 

 KITE (6. SO) JiN4"t('J).(HX(NI.I.J)tI»l.IS) 



J.NAMEM ) . (VCI.,I).I»1.I5) 



3x.A6,?x,6ElO.?) 

 J.NAMF(?) , (A(I.J).I»1,IS) 

 J,N4ME(5),(WX(NT.I.J).I»llIS) 



(H^K(Ni,in >ii«i iu) 



E^-P ACC«t.F7.tiI CONV ACC»I.F7.1>I HEAO« t.F 7, 1 , [ FRIC* 



"INT(NI) 



vBar iauInKnI) 



liH VELOCITY AT THE MINIMUM 4Rt4 S E C T 1 0N« I . F 7 . 2 1 I FT/S 



[.F9.2, t FT2 I) 



INLET 



602 



iNLtT 



603 



iNLtT 



60U 



I^LtT 



605 



INLET 



606 



INLET 



607 



INLtT 



608 



INLET 



bO 



INLtT 



61(1 



INLET 



611 



INLET 



612 



Inlet 



613 



INLET 



6m 



INLET 



61b 



INLET 



616 



INLET 



617 



INLET 



61R 



INLET 



619 



INLET 



620 



INLET 



621 



INLET 



622 



INLtT 



623 



INLET 



62u 



INLET 



62S 



INLET 



626 



INLtT 



627 



INLET 



62H 



I'-LET 



629 



INLET 



630 



INLET 



631 



INLET 



632 



Inlet 



633 



IMtT 



63a 



Inlet 



635 



INLET 



636 



INLET 



637 



INLET 



63B 



INLET 



639 



INLET 



6U0 



INLET 



6U1 



INLET 



6«2 



INLET 



6<i3 



INLET 



6ua 



Inlet 



6U5 



INLET 



6«6 



INLET 



6147 



INLET 



hllfi 



INLtT 



6119 



43 



