SUBROUTINE 8ENLH2 (NORTH»EAST.NMBR> 







68 



172 



173= 

















NN 



- 



101= 



102 



105 



115 



142 













NOPT 



- 



2C0 



8 



9 



46 















NORGIN 



_ 



URL 



1*2= 



43 



71 















NORTH 



- 



1AG 

 178 



URL 

 179= 



7 



11 



12 



16 



17 



35 



36= 



52 



NPLT 



• 



2C0 



101 



















NPTS 



- 



2C0 



15 



34 



50 



104AS 



105 



113 



125 



176 





NSTART 



" 



\02= 



113 



















NSYM 



- 



129= 

 158 



131 

 159AG 



132 



135= 



137 



140AG 



141 



153= 



156= 



157 



NUMBER 



- 



55 



76 



83 



107 



112 



117 



145 



161 



165 





PLOT 



- 



67 



68 



167 



168 



169 













RAD 



- 



301 



7 



111 



116 



126 



128 



143 



144 







RAOUL 



- 



301 



120= 



121 = 



123= 



126 



128 



161AG 



165AG 







RDPLT2 



- 



7 





















REPSYM 



- 



75 



82 



114 



138 















RETURN 



- 



180 





















SCALE 



- 



2C0 



21 



22 



24 



39 



40= 



42 



43 



44 



45 







51 



52 



55AG 



73 



77 



80 



84 



89 



90 



96 







97 



147 



166 

















SIGMA 



- 



2C0 



120 



















SYMBOL 



— 



69 



91 



98 



110 



140 



159 



163 









TICE 



- 



72= 



80 



83AG 



85= 















TICN 



- 



71 = 



73 



76AG 



78= 















X 



- 



301 



51 = 



104AG 



110AG 



114AG 



138AG 



140AG 









XB 



- 



97= 



98AG 



99= 

















xr> 



- 



90= 



91AG 



92= 

















XEDGE 



- 



147= 



151 



159AG 



163AG 



166= 



167AG 











XORGIN 



- 



<»b= 



68AG 



69AG 



74 



75AG 



86 



147 



166 







XSHFT2 



- 



152= 





















XSHIFT 



- 



74= 



151 = 



152 

















XTIC 



- 



80= 



82AG 



84= 



86 















Y 



- 



301 



52= 



104AG 



110AG 



114 AG 



138AG 



140AG 









Y3 



- 



96= 



98AG 



















YO 



- 



89= 



91AG 



















YORGIN 



- 



43= 



68AG 



69AG 



79 



ai 



82AG 



148 



167AG 







YPT 



- 



148= 



150= 



159AG 



162= 



163AG 













YSCALE 



- 



21 = 



40 



















YSHIFT 



- 



81= 





















YTIC 



- 



73= 



75AG 



77= 



79 















Z 



- 



106= 



107AG 



111= 



112AG 



116= 



117AG 



144= 



145AG 







1 





SUBROUTINE 



STDEV(X» 



N'XND'S) 













STDF.V 





c 



CALCULATES 



THE STANDARD DEVIATION 



OF A SEQUENCE OF 



DATA POINTS 



STOEV 



2 





DIMENSION : 



((1) 















STDEV 



3 





ENS= 



=XND 

















STDEV 



4 





CALL AMEAN(X'NrXND) 















STOEV 



5 





S=0, 



















STOEV 



6 





D01 



I = 1»N 

















STDEV 



7 





l s=s+(x(i)-: 



KND)*<X(I)-XND> 













STDEV 



a 





!F(ENS .LT 



. 0.) GO 



TO 2 













STDEV 



9 





N=N- 



•1 

















STDEV 



10 





2 S = 



SQRTCS/FLOATCN)) 













STDEV 



11 





RETURN 

















STDEV 



12 





END 



















STDEV 



REFERENCES 



1 



- 



6 



7* 







2 



- 



8 



10* 







AMEAN 



- 



4 









ENS 



- 



3= 



8 







FLOAT 



- 



10 









I 



- 



6 



7 







N 



- 



1AG 



4AG 



6 



9= 



RETURN 



- 



11 









S 



- 



1AG 



5= 



7= 



10= 



SORT 



- 



10 









STDEV 



- 



1 









X 



- 



1AG 



201 



4 AG 



7 



XND 



- 



1AG 



3 



4AG 



7 



44 



