IFd.tO.IS) 4B«4B+AtItJ) 

 96 4"A»*A(I.J1 



IF C»4.LT.«HINCM) ) 4H!N(NI)lAA 

 <»7 AE"4f>i)L/»4 



A"IM(NT)5AHIN(NI) 



AtSl ./4E 



If lI-T.EU.i) Call WTl 

 If llKT.f G.a) CALL vT2 

 If CT-T.FW.i) CALL wTJ 

 DO luO I=1,IS 

 0" I J") J=l . IC 

 HX(MiI,J)Bh(I,j) 



139 -JCmi.I.JI.-'CIiJ) 



lilO CPNTINUE 



RNKtfiI.?)iAt/(2.»Ln«(l./(AB»»2)-l,/(AS»»2))*0Q»QQ 

 HNK(M,i) = G»»E/Lt»(HB>HS) 

 00 fl5 I»liI3 

 aC«i , 



00 RU J=l I IC 

 an ACtAC'AtliJ) 



DO Kl Jsl.IC 

 83 R^^(^I.u)»(^^KrM.U)♦Af/(LE•AC)•^■•N(I.J)»»^•4BS(W(ItJ)•Ua)• 



l^(I,Jl»(;a/(?,20i<»0(I.J)*»0.^i3J3»«(I»J)»»2)«l.(IfJ)»BCI.J) 

 85 CONTI'JUF 



R'^K(l'Ill)I-l'NK(KJI,J).RNK(NI,3)-HNK(M.U1 

 OeRy(Nl)=KM<(NI.l) 

 C UnR Tmf RfLATIVt HANK nf TtWHS. NORMtLliE B'' THt L^^CEST TEHH, 

 XWAyiO, 

 00 101 I«l,«l 



101 IF(aBSCRNK{NIiI) ) .GT.XHAX) KM AX» ABS ( RMK ( NI • I) ) 

 00 102 1 = 1, u 



102 R^JKt^JI,T)»l00.»R^K(^^I,I)/XM4X 

 100 CONTl^'Uf 



DE»vCNINLET*l)«DT/*RAV*QINFLa/ABAV 



RETURN 



END 



iNLtT 



UOh 



iNLtT 



U07 



I^LtT 



106 



INLtT 



109 



INLtT 



110 



INLtT 



«11 



INLET 



U12 



INLtT 



"13 



INLET 



111 a 



INLET 



115 



INLET 



U16 



INLET 



«17 



INLtT 



ai6 



INLtT 



U19 



INLET 



UiCi 



INLtT 



121 



INLET 



122 



INLET 



123 



INLtT 



1?i 



iNLf T 



125 



INLET 



126 



INLET 



127 



INLtT 



126 



INLtT 



1?9 



INLtT 



130 



INLtT 



131 



INLtT 



132 



INLtT 



133 



INLET 



131 



INLET 



135 



iNLfT 



136 



INLtT 



137 



INLtT 



136 



INLET 



139 



INLET 



110 



INLtT 



111 



SUBHUl'TTNE Tf"RTE(NTNLETtX.HS,UINfLOlYlAMIM.RNK,NT) 

 C SUBROUTINE TO uRITE HYDRAULIC InfORMATION ON TAPES 

 DIKFNSinN RNK( J,1) ,Y(5) ,AMlNl(3) 

 MOURS=X/3h00, 

 NT«iJT+l 



DO 100 Moi.NlNLtT 

 IUNIT=Nl+6 

 V»rfNl)/AMINI(NI) 

 100 f.RlTE(IUNlT) Hours, HS.QlNPLO>VCMNLET*n tV,y(Nl)i(RNK(Nl,J)i 

 RETURN 

 END 



INLET 



112 



INLtT 



U13 



INLET 



111 



INLET 



115 



INLt T 



116 



INLtT 



117 



INLET 



116 



INLtT 



119 



INLET 



150 



INLET 



151 



INLET 



152 



39 



