IRtin ( 5.2001) XQtxF.sCiLXtVLOiYL.YLSCALtVROiYHSCALtYVO.YVSCALf 

 1 SCiLfcilQ 



2001 FOHi'AT((<Ho.5./.Jf'in,5,I10) 



►RITE (h. 2002) XOiXF.SC4LX.YLOiYL«YLSCALiYROtYRSC*LiYVU.YVSCALt 

 1 SCALt.IQ 



2002 F0(<maTC///,5X. [PLOT I NFOKMATION ( i / 



1 ix,aFift.s,/,ix, jFio.stlio) 



C OETE:w"lNt SYMHUL SPaCInR 



LIntyP=,2S«SCAlx/(0ELT/J600,) 

 wKlTttO.iaib) li^typ 

 1215 FORMAT! 1 X, tLINTYPs (. Ifc) 



c 



C PLOT LtCEND 



c 



CALL SYKtlOL(l,..YL/?...8..int6HLfcGtN[)«0.l6) 



00 JO LM » It 5 



IM)X = 



YP=-YL/?.-.fl.LN»,2 



LL~5lSY''CI.M) 



CALL SYMHOL(0,.YP+,06. ,lU.LLM<0.i»l) 



SYMfl) 3 ALECN(l.LN) 



SYf-i(2) s ALfcG»'C?.LN) 



SYn(3)s ALtG^tS.L^i) 



CALL SYMbULt .U.YP.n.i iSYM,(),,2j) 

 20 CQi'iTr'UE 

 C PLOT TiTLt 



CALL SYMBUL{i.b.-YL/2..1...aiiALABL1.0,,32) 



CALL SYMbOLt J.i,-YL/2,-l.«,.ai,ALABL2.0..32) 

 C PLOT SXFS 



YL0i.YL/2.»YLSCAL 



CALL «XTS(0. .-YI./2,, 16HVELLIC1TY. FT/SEC , 1 6 . YL . SO , t YVO 



l.YYSCAL) 



CALL *XIS(-.8..YL/2..11HHEIGHTS. FT . U . yL ,90 . i YLOt YLSCAL) 

 CALL «XTStO..-YL/2,,€,HTIHt» MRS .-q , ( XF-xO ) /SC ALX. . , , , SCALX) 

 IF( Tfl.ME .0) 

 1CALL AxiSCCXF-XO)/SCALX»-YL/2,,10MFLUi". KCF9t»10,YL . 90 . (•YL/2,»rR 



ISCAL.YRSCAL) 



IFCltj.tO.O) CALL PLfiTtt Xf--XO)/SCALX»-YL/2..3) 

 IFCKJ.fQ.O) CALL PlOTC(XF-X0)/SCALX.YL/2.,2) 

 CALL PL0T((XF-xn)/SCALXiYL/2,iJ) 

 CALL PLOT(0.,YL/2.,?) 

 YFACtl) » 1./YLSC4L 



yFac(2) s o.ooi/yrscal 



YFAC(J) s YFAC(I) 



YFAC(U) = l./YVSCAL 



YFACCb) = YFAC(?) 



DO IJiU Il£h,<) 

 12J1 YtAC(II)3,o03 



XEAC • I ./SCALX 

 bO on hS I I 1, 9 

 C If lrj = OO hUT PLOT DISCHARGE 



iFdti.En.o.AND.i.EQ.s) CO Tn ab 



COH=rL/2.+(I.5)»0.e 

 CALL PLOT (0,, o.> 3) 



KK I 1 

 ISUBlO 



ME-ImO tu«it 



INLET 



773 



IMLET 



77U 



I^LFT 



775 



I^LtT 



776 



INLET 



777 



INLET 



778 



INLET 



779 



INLET 



780 



INLET 



781 



INLET 



782 



INLET 



783 



INLET 



7B« 



INLET. 



785 



INLET 



78(1 



INLET 



787 



Inlet 



788 



INLET 



789 



INLET 



790 



INLET 



791 



INLET 



792 



INLET 



793 



INLET 



79U 



IMET 



795 



INLET 



796 



INLET 



797 



INLET 



798 



INLET 



799 



INLET 



800 



INLET 



801 



INLET 



802 



INLET 



803 



INLET 



BOU 



INLET 



805 



INLET 



806 



INLET 



807 



INLET 



608 



INLET 



809 



INLET 



610 



INLET 



811 



INLET 



812 



INLET 



813 



INLET 



eiu 



INLET 



815 



INLET 



816 



INLET 



817 



INLET 



818 



INLET 



819 



INLET 



820 



INLET 



621 



Inlet 



822 



INLET 



823 



INLET 



6211 



INLET 



825 



INLET 



826 



INLET 



827 



INLET 



828 



INLET 



829 



INLET 



830 



46 



