285 C** SLOPE RATIO TOO GOOD. DOUBLE STEP. 



286 141 DP = DP * RATIO 



287 GO TO 117 



288 116 IF (TEMP . LT . SLIM) GO TO 117 



289 PRINT 130, PK , V , VI , DET , DET I , SLR , SLI , TEMP .DBLOSS .NUMBER 



290 130 FORMAT ( 1 X , El 4 . 6 , E 1 6 . 9 , El 3 . 7 , 6E1 . 3 , 15) 



291 C** SLOPE RATIO TOO POOR. HALVE STEP. 



292 IF (NUMBER .LT. 7) GO TO 126 



293 PK = PK - DP 



294 DP = DP / RATIO 



295 INCA = DP 



296 lIX = JX + 1 



297 IF (K2 .EO. 1) PRINT 118, PK, V, VI, DET, DETI 



298 C** STOP ON 5 SUCCESSIVE FAILURES. MODE IS LOST. 



299 IF (JX . LT. 5) GO TO 107 



300 PRINT 810, N, FREQ 

 301 

 302 

 303 

 304 

 305 

 306 

 307 



308 127 FORMAT ( 7H NUMBER, 13, 22H FAILED, SLOPE RATIO ,F10.6) 

 309 

 310 

 311 

 312 

 313 

 314 

 315 

 316 

 317 

 318 

 319 

 320 

 321 

 322 

 323 

 324 

 325 

 326 

 327 

 328 



329 GV = V**2 / (V - FREO * (V-PV(2)) / INCB) 



330 PRINT 118, PK, V, VI , DET, DETI , SLR, SLI, TEMP, DBLOSS, GV, NUMBER 



331 118 FORMAT ( El 5 . 7 , El 6 . 9 , El 3 . 7 , 6E1 . 3 , F1 1 . 5 , 15) 



332 NUMBER = NUMBER + 1 



333 C** CHECK TOTAL NUMBER OF STEPS. 



334 IF (NUMBER .GT. KO ) GO TO 3 



335 GO TO 107 



336 999 STOP 



337 1250 FORMAT (13, 8H LAYERS ,, F1 . 1 , 3H HZ) 



338 1260 FORMAT (6E1 0.4) 



339 1270 FORMAT ( 8H ATTEN = , G1 .5, 5HDB/KM) 



340 1280 FORMAT (8F14.5) 



341 1320 FORMAT (/,6E18.9) 



810 



FORMAT (14, G12.5) 



3 



DO 801 I = 1 ,N 





PRINT 800, C(I), Z(I), GAMMA(I), D 



800 



FORMAT (10G12.5) 



801 



CONTINUE 





GO TO 4 



126 



PRINT 127 , N, TEMP 



127 



FORMAT (7H NUMBER. 13, 22H FAILED, 



C** UPDATE ALL QUANTITIES FOR NEXT STEP. 



117 



INCC = INCB 





INCB = INCA 





INCA = DP 





PV(3) = PV(2) 





PVI(3) = PVI(2) 





PV(2) = PV(1) 





PVI(2) = PVI(1 ) 





PV(1 ) = V 



:: " T .' ' '. ■- T 





r - i [. > 1 - y i 

 JX = 





DENOM = V + V + VI * VI 





LAMBDI = -OMEGA * VI / DENOM 





DB LOSS = -8686. * LAMBDI 





SR(3) = SR(2) 





SR(2) = SR(1 ) 





SR(1 ) = SLR 





SI(3) = SI(2) 





SI(2) = SI(1 ) 





SI(1 ) = SLI 



99 



