SUBROUTINE TRACK (NORTHrEAST.NMBR) 



NMIN 



- 



2C0 



4RL 



15= 



20= 



24 



NN 



- 



39= 



45 



55 



79 





NOPT 



- 



2C0 



11 



34 



35 





NORTH 



~ 



1A6 

 60A6 



4RL 

 88AG 



14 



15 



\9 



NPLT 



- 



2C0 



39 









NPTS 



- 



2C0 



18 



<*3 



54 



78 



NXV 



- 



44AG 



48 



104 



109 





NYV 



- 



44AG 



49AG 



105 



110 





PHI 



- 



7= 



at 









POINTV 



- 



46 



60 



63 



70 



88 



PRINTV 



- 



36 



37 



38 



41 



52 







92 



100 



107 



112 





RAD 



- 



32 



33DI 



56 



80 



81 



RADPLT 



- 



32 











RETURN 



- 



115 



116 









SCALE 



— 



2C0 



12AG 



53AG 



77AG 





SETMIV 



- 



9 











SIGMA 



• 



2C0 



56 



65 



73 



80 



TRACK 



- 



1 











XRATIO 



- 



23= 



25 



29 







YRATIO 



- 



24= 



25 



26 







42AG 53AG 77AG 108 

 32 44AG 46A6 49AG 



106 

 71 



111 

 76 



-+-+-♦-♦-♦-♦-♦-♦-♦-♦-♦-+-+-♦-♦-♦-+-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-+-♦-+-♦-♦-♦-♦-♦-♦-♦ 



SUBROUTINE TIN0RM(2VAL» ALPHA.*) 



SUBROUTINE TINORM<ZVAL.ALPHA»») TINORM 



DIMENSION A(3). B(3) TINORM 



DATAU1 1) .1 = 1.3)/. 010328.. 802853»2. 515517/. (B(I»fI=lf3>/. 0010308. TINORM 



1. 189269.1. 432788/ TINORM 



- — — — — — — — -—TINORM 



APPROXIMATION TO INVERSE NORMAL DISTRIBUTION TINORM 



— - — — - — ———TINORM 



IF(. NOT. (ALPHA. GT.O.. AND. ALPHA. LT.l.M GO TO 1 TINORM 



X=ALPHA TINORM 



IFIX.GT..5) X=l.-X TINORM 



X=S0RT(-2.*AL0G(X1) TINORM 



ZVAL =X-«A<3)+X*(A(2)+X*A(1)H/C1.*X*CB«3)+X*<BC2)+X» B(l>>>> TINORM 

 CALL OVERFL(I) TINORM 



1FII.EQ.D RETURN 3 TINORM 



IFCALPHA.LT..5) ZVAL = - ZVAL TINORM 



RETURN TINORM 



I RETURN 3 TINORM 



END TINORM 



SUBROUTINE TINORM«ZVAL»ALPHA.*> 



REFERENCES 



1 



- 



4 



13* 



A 



- 



2D I 



3DA 



ALOG 



- 



7 





ALPHA 



- 



1AG 



4 



B 



- 



201 



3DA 



I 



- 



3DA 



9AG 



OV'ERFL 



- 



9 





RETURN 



- 



10 



12 



SORT 



- 



7 





TINORM 



- 



1 





7= 

 11= 



-+-+_+-+-♦—♦-+-+-♦-♦-+-♦-+-+-+-♦—♦' 



^-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-♦-* 



60 



