570 





D71 



C Pi 



572 



410 



573 





574 



430 



575 





576 



440 



577 





578 



450 



579 



170 



580 



180 



581 



400 



582 





583 





584 



441 



585 





586 



500 



587 



C C, 



588 





589 





590 





591 





592 





593 





594 





595 



501 



596 





597 



551 



598 





599 



533 



600 





601 





602 





603 





604 





605 





606 





607 



562 



608 





609 





610 



772 



611 



561 



612 





613 



524 



614 





615 





616 





617 





618 





619 



563 



620 





621 





622 





623 



564 



624 





625 



560 



626 



550 



GO TO 400 

 ;m DiIPTri FUNCTIONS 

 F MAGtJ) = SORT (FF * FF + FFI * FFI ) 

 IF (FF) 430,440,450 



F ANG(J) = ATAN(FFI / FF) * 57.2957795100 + 180. DO 

 GO TO 400 

 F ANG(J) = 90. 

 GO TO 400 



F ANG(J) = ATAN(FFI / FF) * 57 . 29577951 DO 

 FORMAT ( 10F12.4) 

 FORMAT (/10E 12. 3) 

 CONTINUE 



IF (K1 . EO. 1 ) GO TO 441 

 GO TO 500 



PRINT 180, (F MAG(K), K = 1,d) 

 PRINT 1 70, ( F ANG( K) , K = 1 , J) 

 CONTINUE 

 CALCULATE ATTENUATION AND READ IN RANGES 



IF ((K1 .EO. 4).0R.(K1 .EO. 5)) PRINT 180, (SRES(K), K= 1,NN) 



IF (K1 .EO. 5) PUNCH 434, (SRES(K), K = I.NN) 



NR=NR-1 



TF f K? IT. 3 1 GO TO 501 



IF (K2 .EO. 4) KB = 3 



IF (K2 .EO. 3) K8 = 2 



K2 = 



KX = K2 + 1 



GO TO (561 ,551 ,551 ) , KX 



PRINT 533, NN,N, C(1), Z(2), 0(2), Z(3), C(3), Z(4), 0(4), 



SOURCE, RECVRS(40), FREO 

 FORMAT {1H1, 215, 10F10.4) 

 ICTR=0 



R LOS( 1 ) = 120. 

 LEVEL! 1 ) = 1 

 DO 562 1=1,5 

 P LEV(I)=40. 

 J COU( I )=4 

 J C0UNT(I)=-6 

 CONTINUE 



IF((K2 .EO. 2).AND.(NR .GT. 5 ) ) GO TO 772 

 GO TO 561 

 NR = 5 

 NL = NN 

 PRINT 524, NL 



FORMAT (IB, 13H MODES IN SUM ) 

 LL = 1 



IF (K9 .GT. 0) NL = K9 

 READ 20, RANGE, FINAL R, STEP R 



IF (KB .EO. 3) PUNCH 30, RANGE, FINAL R, STEP R 

 IF (RANGE) 563,1 ,564 

 NN = NN + 1 



READ 11, K1 , K2, K3, K4, K5, KB, K7, K8, K9 

 PRINT 11, K1 , K2, K3, K4, K5, K6, K7, K8 , K9 

 GO TO 301 



IF (FINALR .LE. 0.) GO TO 550 

 FINAL R = FINAL R + 1 . D-3 

 IF (RANGE .GE. FINALR) GO TO 561 

 R ATTEN = RANGE * ATTEN - 9.9429946 



54 



