Listing of the computer program INLET. 



PHURWftM I '■'LtTt INPUT, OUTPUT, TAPE5» INPUT, TAPEbsOUTCUT.TAPtS.TAPElOi INLtT 

 1 TAPtltPUNCHcTiPti) I^LtT 



C PUnGwsh -iijMstW 720)(aR16S0 (INLE.T) ANALYSES iNO PHtDICTS INSTANfOuS INL iNLfcT 

 C MYOBAULTCS iiSTnG a LUf'PFO PAHAWeTEH SCHEME CSEE SFELIO, HAHHIS AND 

 C MFKChE^HO'lER. \97b, [A GENERALIZED LUMPED PAHAMETfH MODEL OF INLET 

 C HYDRAULICS t, A DRAFT CfRC REPORT) 

 REAL L, LENGTH, LINtL^jN, NX 



C(iMnON/NUM5/Nl,r,,NiNLFTtICHfJ),ISF(3),UB,L(7,7)«B(7,7),D(7,7), 

 1 A(7,7),NC7>7),w(7,7).V(7,7),(5(7,7),MS,HB,H(7,7),IC,IS»*MlNI(J) 

 lBMIMl(J),LlN,f)X(J),DINFLU,ABAY,LENGTH(i) 

 CnMMnN/KjUMl/YC5),DERY(5),X,NT,IhT,ZETA,HH 



cnfMnN/NU'-2/B>'(3,7,7),DX(J,7,7),MX(3,7»7).»«X(S,7,7),LX(l,7,7),NX{l INLET 

 1,7,7) 

 CO"MON /NUm1/A0,T, AR,HETA 

 CnMMn"/Nl)f"u/RNK(3,i|) 



DI^FuSInN C0RLC5) 



DIMfNSinN aLaBLK") ,*LABL2C«),IBUF( 1000), NUMBER (20) 

 3370 CONTIWUE 



DO piti IlBl,3 

 2103 QXCII)»1. 

 C Go ACCELERATION OF GRAVITY 



G"3?,2 



pn I2U 1 = 1.20 

 1211 NU'i«ER(T) = I 



KHlTrC6.2037) 

 2937 FOW"AT(//,)x, [.........•..............() 



RFADCJ, t 167) tALABLH T) • 1=1 .t) 



MEAnC;, 1 167) (4LaBl?( I) • lol.l) 

 1 167 HlKMATcaAtn) 



"RiTt (fc.llhS) (ALAfiLl f I) ,I»1 ,U) 



wRlTEta. 1 16«) tiLABi 2(1) ,1 = 1 ,a) 

 1 168 FORMAT (RX.UAIO) 



wRlTE(6,126«) 

 1268 FORi'aTC/.Sx, (CONTROL CARDSI) 



: READ CONTROL Cards 



fiEAn(!),ioil' ^INLET.NrYCLES,IPLDT,IwT,ITABLF<Cl,C2 

 «RlTEt6.ini2) NTNLET,nCYCLEs,IpL0T»I«T,ITABLE.C1,C2 



1011 F0R'iAT(SI10,2F1 O.b) 



1012 FnR'>AT(|x.5llO,?F10.5) 

 NINLETiTHE NIJKHER flF INLETS 

 MCYCLES5 NUMHER OF TIOAL CYCLES 

 IPLOT (1 FOR A PLOT OF MfAN MYURaLIlICS, FOR NO PLOT) 



I-T IS A PARAMETER DESCRIBING THE TYPE OF WEIGHTING DESIRED 



IWTcl FOR FLO1.J hflGHTlNG TO ACHIEVE MINIMUM FRICTION 



ThT = 2 FOR WEIGHTING Fob MINIMUM FRICTION WITH NO FLO* ACROSS CHANNELS INLET 1)7 



IwT = 3 FOR FUI'aL FLO" IN ALL GRIDS TO GIVE MAXIMUM FRICTION INLET «8 



lTABLE=t kjb a tahlf Of Output Inlet ut 



C1,C2 N':C1-C2 » D. IF CI AND C2 ARE ZERU THE maSCH VALUES OF INLET bO 



Cl =.0377? AND C2=. 00667 ARE ySED INLET 51 



IFtCl .ED.0,0, AND,C2.EO,0,0) C2" 0,000667 INLtT i2 



IF(C1.EO.O.) Cl. 0.03777 INLtT 53 



INLET sa 



INLET 





INLtT 





INLET 





INLtT 





INLET 





INLET 



10 



INLET 



11 



INLET 



12 



INLtT 



13 



INLET 



la 



INLtT 



15 



INLtT 



16 



INLET 



17 



INLET 



18 



INLET 



19 



INLtT 



20 



INLET 



21 



INLtT 



22 



INLtT 



23 



INLET 



24 



INLET 



25 



INLET 



26 



INLtT 



27 



INLtT 



2S 



INLET 



29 



INLET 





INLET 





INLET 





INLET 





INLET 





INLET 





INLET 





INLET 





INLtT 





INLtT 





INLtT 





INLET 





INLET 





INLET 





INLET 





INLET 





INLET 





32 



