TM No. 377 

 320 FOHTRAN _ (2.1) 



POORRAM NIlWS _^ 



10 XX»0 



11 YY = , . _.. 



KbI 



1 RfAD ?.DATe»S»D»l, 



2 Format (F6.1»25XtF(<i.0f24X»F4.0fIl) 

 IF(L)10»5,10 



3 Fo-^MAT (3F10.2»I4) 



5 IF (Qf), -0)4*6. ft 



6 THETAa(90,-D)«.0174532<» 

 GO T07 



A THFTA»(45n,-D)».0W45329 



7 XaS*COSF(THETA) 

 YbS<*SINF(THETA) 

 XXaXX*X 

 YY=yY*Y 



PlJNCH 3.0aTE»XX.YY,K 

 PRINT 3.DATE»XX.Yy,K 

 K»K + 1 



en TO I 

 End 



3200 fowtkan olaqnostic results - fow nuws 



NULL STATFMPNT NUMBERS 



11 

 L0An»5(S 



D-12 



