ircGOODC I) )b1 .50.51 



51 SUM=SUM+P(L.I'l) 

 50 CONTINUE 



AVEPCL)=SUM/GODDCH 



0n6OK=1.7i? 

 SUM=0.0 

 00 90 1= 1»5 

 irCGOODCn )90»90»91 

 91 IP s I+l 



DO 95 J= IP>6 



!F(GOUD(J) )95,9S.Q? 

 9? SUM » SUM+PCL.I* J)*C0SF{WN(L)*0(I» J)*COsr(THETA(K)-PSI(I>J))) 

 X -P(L»J»I)*5lNF(WN(L)*D(I*J)*C0sr(THETA(K)-PSl(I»J))) 



95 CONTINUE 

 90 CONTINUE 

 60 E(L#K)=(AVEPCL)+?tO*SUM)/TE«MS 



IFCSENSE Switch \ )62»63 



62 PRINT6,FQ{L)»AvEP(L)»(IDcn*I«lMn»CE:cL»K)»Kai,72) 

 6 F0RMAT(iXmPE11,4MPE12,'»»11A6/(10(1XMPE11,4))) 



63 G=0.1/0TR 



DELTA THETA=5DEQ UR H=l/2*DEL THETA 

 DE(1)=G*(E(L»?)-E(L»72)) 

 0E(7?)=G*CE(L>1 )-E(L»71 )) 



B-6 



