100 CALL PL0T(XVAL,YVAL,2) 



CALL PL0T(0.,-10.,-3) 

 CONVERT BACK TO KILOMETERS 



DO 105 I=1,NPTS 

 105 DATA(I)=DATA(I)/1000. 



RETURN 



END 



198 



