2l« 



2?n 

 30 



60 TO 30 



( T M rTft.^Ttr.-r ?tB t2ia»2 i^ 



RvTH3(-.0 00 09«(THFTA*THFTA)».0123B»THgTA-».758) 

 Aa^n ,-THEl A 

 Gn TO 220 

 RvTH=(-.00o5*(THETa»THETA)*.071»THETA-1.3A) 



Aaqn.-THET/N 



RXTHa(-.OOl*.00OOMS»A)«(A)*l,00 

 IF (U(J)) "^TtQflfSH 



m Ho. 317 



4 



37 THFTA=90.+THETA 

 Go TO 40 



38 THFTA = ?7 . *TRrf A 

 40_U(J)=il(J)^/RXTH 



W(>r>=W(J)/PYTH 

 ? 5 PBINT 6 » U ( J ) . W ( J ) .^HET A 



GO TO 999 ' 

 94 IF (!J(.J)) ]03.102»101 



ToT 



THTTr=o. 



U(J) 31) (J) 



To? 



W(J)=0, 

 Go TO 25 

 TRETSaTTV 

 ■U(.J)=0, 



GOTO 25 

 TmTTS 

 U (J) =1.1^ J) 

 W fjlaO. 

 GO TO ?5 



^TJTf 



77 FOPMAT(F10.5) 



6_F C(MAT(?F in . 5 t^F 7 , ? ) 



666 FORMAT (15) 

 lOOn FORMAT (1X,1 OH OK SO FAR) 

 999 COMTIMDF 

 RFTURM 



EMO 



"3207r "FORTRAN lAG"WOST IC "RESOlTS"^- FOR 



CDl^RECT 



N it L I , «; TuT F M P NT NUMBg R S 

 666 77 



D-7 



