r>ci 11 joiiic 



LENGTh(»jI),LE.NGTH(j^7)*L(I.J)('rL0*T(IC) 

 A(I,J)«(»(I.J)*4(I+1 iJ))/2. 

 LCI,J)ifL(ItJ)*L(I.,Ul ))/a. 

 H(l.J)=(H(i. J)+ntI»1 .J))/2. 

 t)(I,J)c»( I ,J)/n(ItJ5 

 Ntl, J)«Cl-C?»r>( ti J) 

 L X C N I . T , J ) » L CI t J ) 



nxiNi« i,j)bB( it.n 



liXCMi I .J)»l)( !• J) 



M'('JI.I.J)o*'tI.J) 



■^XCMiI.Jjil./FLU'TtlC) 

 11 CONTIi^UF 



mlTt(6,l?<)7) I 

 12«7 F0Hm4T(/,1x. (StCTInn tiU) 



».RlTt(6il2<>l) CNU"HF«fII)tII«l.lC) 

 U?l FOKMATC-iX, (CH4^^JtL =[,10110, /) 

 C PMINT * SUM,.»Uv T4H-LE OF GtOhtlRlES 



*»Itt(6, 1971 ) (i( I,,!) , Jt 1. ir) 



wwlT^ Cb. 1972) (H( I, J) ,J>1 <!(;) 



w«ITtCb.l97?) (n(I,,i).J=l.Ic) 



WBITEC6, 197«) (LCI,.I) ,J=li in 



"■HlTt (6,197"*) C*'!!..!) .J=1»IC) 

 1971 FOWmaKSX. (AHfcAfFT?) t.lOFlO.l) 

 197J FnWMiTtsX. t».ID1h(FT) cinfio.l) 

 197J FnKM4T{SX, tftPTH(FT) (,1X,1UF10.2) 

 1971 FOKMftTtlX. (LEN(FT) t«2XtlOFl(i,l) 

 1975 FCIH"4T(>5)(, [Nt.ioXiloFlO.a) 

 10 C0^T1MUE 

 C FIND 4KE4 AMD ►IoTh aT Thf minimum SECTION 



4MINI(NI)«99.E*12 



DO 109 1=1,18 



44ao, 



tiH»0. 



DO 10H ,IS1,IC 



4A144*4CI,J) 

 109 HHIRfcl+Hf I 1 J) 



IP(44.GT.4Mlf.jI(Nl)) CO TO 10"> 



AMIkJl(ljn»A4 



BMIwI (NI)=Hfl 

 109 COMI^UF 

 JllO CONTINUE 

 C tSTJHATE TmF IMLET-raY heLMHOLT? PERIOD 



CALL HElMrTHtLM,4B,C0RL) 



THTF«T/ThEL" 



«»IteC6,201) T,tmFlm,TPTF 



201 fobm4T(ix. [Forcing perioo= i,f7.2, t huursIi 



l/,lx, ITMtLMr4PPR0X)j[,Fe,2i [ HOURS!,/ 

 1 IX, (TF/TH- C,10X,F6.2) 



i'RITE(6,1537) t(J>LrNGTH(J),CDRL(J))tJBl,NINLET) 

 1JJ7 F0RM4T( ,iX,fINLET LENGTH ADDED LENGTH!, (/,UX«I2,1X, 

 1 F6.1 .ax.Fb.D) 



T»T»360(i, 



CALL PKRStENDiUELT,» 



DELTcEnd/FlOAKnT) 



DO ?269 Mill ,NI-nlET 



INLETiQINFLO.ITABLE.T) 



h''lTE(6.2?6'») NT 



F0hH4T(//, lOx, (suMMiRV TABLE OF HYDRAULICS InLETCIS) 



IUNIT=NI+R 



CALL C»IT(NT,DELT,IijNITiT,NcyCLES) 



IF(iPL0T.Erj,l.4N0.Nt,Fn.l) CALL PLOTSdflUF, 1000.3) 

 IFCIPLOT.EO.I) CALL GRPHC ( 4L 4HL 1 t AL 4BL2 , OELT 1 1 UNI T , N I ) 

 If tIPL0T.t0.1,AND.NT.FQ.NIN|.tT) CALL PLOT ( ., .. 999) 



CONTINUE 



STOP 

 END 



INLET 



10« 



iNLtT 



109 



iNLfcT 



110 



INLfcT 



111 



INLET 



112 



iNLbT 



115 



INLET 



im 



INLET 



us 



INLET 



116 



INLfcT 



117 



INLET 



118 



INLET 



119 



INLtT 



120 



INLET 



121 



INLET 



122 



INLET 



123 



INLET 



12U 



INLET 



125 



INLET 



126 



INLtT 



127 



INLET 



128 



INLET 



129 



INLET 



ijn 



INLET 



131 



INLET 



132 



INLET 



1J3 



INLET 



13'1 



INLtT 



135 



INLET 



136 



INLET 



137 



INLET 



138 



INLET 



139 



Inlet 



loo 



INLET 



lui 



INLET 



1''2 



INLET 



113 



INLET 



lull 



INLET 



1U5 



INLET 



1U6 



INLET 



1«7 



INLET 



l^fl 



INLET 



la9 



INLET 



IbO 



INLET 



Ibl 



INLET 



152 



INLET 



153 



INLET 



15a 



INLtT 



155 



INLET 



156 



INLET 



157 



INLET 



158 



INLfcT 



159 



INLET 



160 



INLET 



161 



INLET 



162 



INLET 



163 



INLET 



16U 



INLET 



165 



INLET 



166 



INLET 



167 



INLET 



168 



INLET 



169 



INLET 



170 



INLET 



171 



INLET 



172 



INLET 



173 



INLET 



17« 



34 



