6S 



60 



CALl Rt40I 

 GO TO (7P> 

 IFCT^•PC.L^. 

 ISUmlSMH* 

 IF ClSUh.tf 

 XX ( TSUdlcX 



vy ( isi'b)»v 



IMI.GT.b) 

 IF (TSi'b.tO 

 Cn TO f,S 

 XX [ 1S1JH+ 1 ) 

 XXCISlibt?) 

 YVClSOH+1 ) 

 yvcisiit, + 2) 

 C PLOT CURVtS ( 

 If CVYf ISUH 

 1 YYnSUR-1 

 IFCI.CT.5) 

 C*L1 LIMtt 



GO TO as 



C«LL LU'tt 

 C4LL PLHTC 

 CALL PLfiK 

 SYf'tl )5TT( 

 SYr--(2) = TT( 

 CALL SVfBO 



N. (X,y,YF4CiXFACixO.XF.INriCiKK,I,IUMT) 



flOlt RK 

 ,0) Gn TD bS 



)<»<)B) IsiiBal''<»8 



YY(ISUH)aYY(ISOB)+C0R 

 199?) GO TO 80 



665 



8b 



COf<TI''UF 



: HEAP PHmoTYPE 



IK'lI.fJH .1 

 W t A ( 5 t 1 ) 



1 F0H"ATt3«X 

 IK(MPTS,LT 

 IF (fjPTS.GT 



2 FOHMiTCHU 

 XXlMPTS+1 ) 

 XXCsjpTS*^) 

 yY[nPTS+l) 

 YY(MPTS»£) 

 DO J J31 iN 

 YY( J)=YVC J 



1 XX(J)B(T0E. 



CALL PLDTf 

 CALL LINtt 

 CALL PLOTt 



CALL Plot; 



CALL SYMBO 

 iOlt CALL PLOTC 



rEUjh'' 



\ . 



on KioT plht if euual to zeuo throughout) 



-i) ,EQ.O,n. AND. 



) .tn.n.n, jNO.YYt isuH) .EQ.O.O) go to 65 



r;o Tn Rflt; 

 xK.Yy, iSuRd iLIMYPi I) 



XX.YY.ISufl. 1 tOiO) 



(XF-xn)/SCALXiCOK,i) 



II , tCOPi?) 



I.l) 



I'd) 



L(-2.?.COB,0.1»SYM,0.,EO) 



BAY TlOF (DATA STARTS AT BEGINNING OF PLOTi 

 ) GO TO 2(119 

 TnrL.NPTs 

 .F6.2it>X,T3) 

 ,2) GO Tn sni? 

 .1) READC?.?) (YY(J) ,J»1,NPT3 ) 



0.5) 



el. 



:1 . 



sfl. 



>1 . 



PTS 



)»YfAC( 1 ) 



L/hO,)»XFAC»(J-U 



XXCl ) ,YY(1).J) 



XX.YY.NPTS.ltO.O) 



X>'(''IPTS/2).YV(NPTS/'?)i3) 



XXCNPTS/2).Yy(NPTS/2)+,75.2) 



L(XX(NpTs/2)+,liYYCNpTS/i)+.75i.l.aLiO,tl7) 



(XP-xn)/SCALX*'*.»0.«"3) 





INLET 



631 





r^LtT 



83? 





INLET 



633 





INLET 



83a 





I~LET 



635 





INLET 



63* 





INLET 



637 





INLf T 



838 





INLET 



839 





INLET 



8«0 





INLET 



8«1 





INLET 



8H2 





INLET 



8U3 





INLET 



6«U 





Inlet 



6«5 





INLET 



6<t(, 





INLET 



8U7 





INLET 



eu8 





INLET 



6119 





INLET 



850 





INLET 



651 





INLET 



85? 





INLET 



653 





INLET 



654 





INLET 



855 





INLET 



656 





INLET 



657 





Inlet 



656 



SAME OATUM) 



iNLtT 



859 





INLET 



660 





INLET 



661 





INLET 



662 





INLET 



663 





INLET 



664 





INLET 



865 





INLET 



666 





INLET 



667 





INLET 



666 





INLET 



669 





INLET 



67(1 





INLET 



871 





INLET 



672 





INLET 



673 





INLET 



67U 





INLET 



675 





INLET 



676 





INLET 



877 





INLET 



678 





INLET 



679 





INLtT 



660 



47 



