627 ■ IF (K1 .GT. 5) RATTEN = . DO 



628 if (ni .ui. •>) GO TO 536 



629 IF (K7 .EO. 2) RATTEN = 4.3429448D0 * DLOG(FREO) 



630 IF (RANGE * DB LOSS(NL) .LT. 15. D4) GO TO 522 



631 521 NL = NL - 1 



632 522 DO 520 I = 1 ,NL 



633 IF (K7 .LT. 2) GO TO 523 



634 FMAG( I) = PHASE V( I ) 



635 GO TO 520 



636 523 TEMP RE = EIGEN(I) • RANGE 



637 TEMPIM = EIGENI { I ) * RANGE 



638 CALL HZERO(TEMPRE, TEMPIM) 



639 HZER02(I) = HZEROR 



640 IF (K7 .EO. 0) GO TO 520 



641 FMAG(I) = HZER0R**2 + HZER0I**2 



642 520 HZER2I(I) = HZEROI 



643 536 L = 



644 DO 540 J = 1 ,NR 



645 FF = 



646 FFI = 



647 TEMP = O.DO 



648 DO 530 I = 1 ,NL 



649 K = L + I 



650 IF (K1 . LT. 6) GO TO 537 



651 TEMP = TEMP + UU(K) 



652 GO TO 530 



653 537 IF (K7 .EO- 0) GO TO 534 



654 TEMP = TEMP + FMAG(I) * (UUI(K)**2 + UU(K)**2) 



655 GO TO 530 



656 534 TEMIM = UUI(K) * HZER02(I) + UU(K) * HZER2I(I) 



657 TEMRE = UU(K) * HZER02(I) - UUI(K) ♦ HZER2I(I) 



658 FF = FF + TEMRE 



659 FFI = FFI + TEMIM 



660 530 CONTINUE 



661 IF (K1 .GT. 5) GO TO 535 



662 IF (K7 .GT. 0) GO TO 535 



663 TEMP = FF**2 + FFI**2 



664 535 T RE = TEMP 



665 RX = -4.3429448 * ALOG(T RE) + R ATTEN 



666 R LOSS(J) = RX 

 6fi7 TP (Ka .LT. 2) GO TO 545 



668 T RE = -4.3429448 ♦ ALOG( UU( K) **2 + UUI(K)**2) 



669 

 670 



671 545 

 672 

 673 

 674 

 675 

 676 



677 IF (LPCH .GT. 999) LPCH = 999 



678 LOSPCH(J,LL) = LPCH 



679 IRNG = RANGE / 1000. DO 



680 IF (LL .EO. 25) PUNCH 903, IRNG, ( L0SPCH( J , LLL) , LLL = 1,25) 



681 903 FORMAT (15,2513) 



682 GO TO 540 



683 538 CONTINUE 



PRINT 170, RECVRS( J) , RX, 1 



r RE 



IF (K4 .NE. 3) GO TO 545 





CONTINUE 





L = L + NN 





IF (KB .LT. 2) GO TO 540 





IF (K8 .EO. 3) GO TO 538 





LPCH = -RLOSS(d) * 10. DO + 



1400.5D0 



IF (LPCH .LT. 0) LPCH = 





55 



