APPENDIX A 



* n».<.<?<»A3,TAiiC«-s£.it?r>pnQ 



iSCMf n.CO&f=40. HMF=1 ,?*l Xe;Src»sc°*2 



SFTNHfLtO 



PPOOPAM T4UC0M 

 C THIS OIMFMSIOM*; TMF FREOUFNC* OF FAfH wTNO S»Frr> AND Tmf EIGHT 

 T TAU STRFSSFS 



DIMENSION FA<«),FB{«>.FC(R).F0«A>,FF(«1. Tf*)«OTP<«) 



WFAL LAT 

 WPITE(M»M 

 * F0PMAT(1HH 

 1 ICOUNTsfl 



«FAD<<S0»5» LAT 

 S FOPMAT(F«.i) 



■> jcount«o 



JPa*T.FQ.q9 e i 60 TO 11 

 in on ?o 1*1. P 



»FAO<*0. 100)FA(l),FP.U)*FCfI».ro(T».Fr<T». 10 



ll>n FOPMAT(S<F3.3.1Xt »S*X.A*) 



?n CONTINUE 

 C THfSF APE THE AVEPA6E ¥lNO S»FFOS FPO* TAPLF 3 A OF THE «S*0 llAll *TS» • 

 C UBM1.S KTS). !»C<?? KTSJ. U0<3* KTS). ANO 1)F*41* KTS) TMFSE SPFFM APF |N 

 C CM? / SEC2 



UA«?3777.ft 



UB»3*«3P9,? 



UC*i?7*70B.6 



UOa30S«10S f B 



I JF «444T1 3*. B 



PHO»(0.00??»LAT»l.n<S»».0ft3 



CA«0. 00045 



CP«5.0010P 



CC*Q. 00220 



C0«0. 002*3 



QA>PHO*CA 



0«3RM0»CB 



OC»PHO»CC 



00«PHO»C0 



00 103 K»1.8 

 C T(K» IS THF STOPS* FOP ANY OIPFCTTON K WMFPF. * IS THF FTOHT CARDINAL 

 C DIRECTIONS NIJMPFPFO 1 THPU B 

 103 T(<)»(OA»|FA(K)«UA))»J0B«(rH(t<)»ij«n*(OC»<Fri«»»OC»)» 



1 <O0»(F0«K»»UD» »♦ (00»<FE<K)«UE) > 

 C YU IS THf SUM OF ALL STPFSSES IN TMF V OIPFCTTON 



C POSITIVE N'IMBFPS APF EOUAL TO TPUF NOPTN ANO NF6ATIVF NINPE*S APE IN THE 

 C SOUTMFPLT OIPFfTION 



YU»TM>».7n7«T(2)-.707«T(*)-T(S)-,T©7»T(6W.T«7«T<B) 

 C XU IS THE SUM OFSTPFSSES IN THF EAST OP WEST OTPECTION 



KUa.70 7»T(?)»T(3)».70 7»T»*)-.707»T(*)-T«7)-.707«T<») 



XS»XU 



ys*yu 



ifcyo.lt.o,) yi)«-yu 



if(xij.lt.o.) xii.-xu 



OIPVT»XU/V»l 



0IOVCaATAN»0lPVT»«S7.?95« 



SPDVT*SBPT( <Xll»«?»*(YU«»?»t 



IF(XS.OF.O,.»NO,Y<;.».T.O.) 00 TO PI 



IFIXS.LT.O..ANO,YS.(_T.O.> r,n TO Q? 



IF(XS.LT.O..ANn.Vc.r,E.O.) 00 TO P3 



OIPVF«OIPV<* 



GO TO 1000 

 *} OiaVF=l«0.-DlPvr 



GO TO 1000 

 a-' OI»VF*Ol»VC»l"0'. 



Al 



