DO 61 ITHETA=«2*71 

 61 OE(ITHETA)eG*(E(LMTHETA+l J-E(L»ITHETA-n) 



DEC73) = DE(n 



K=l 



00 65 I=l»72 



IFCDECI)*0E(I+1))66>67*65 



66 ZI=I-1 



flV IS 5 OEG IN RAoiANS 



THZRaCK)=FlV*CZl + CnFCI)/CDECI)-DECl + n))) 



K = K + 1 



GO TO 65 



67 IFCOECI ))6fi,69,6'^ 



69 THZR0(K)=F1V*FL0ATF(I-1) 

 K = K + 1 



68 IF(DE(I+1))65.64.65 



6a THZR0CK)=FIV*FL0ATFCI) 



K=K + 1 

 65 CONTINUE 



NZER0S=K-1 



00 75 K=1»NZERDS 



TERMS SAME AS ABOVE 



SUMaOiO 



DO 76 I=l»5 



IFCGOODCI) )76»76»77 



B-7 



