57 



58 



59 



60 



61 



62 



63 



64 



65 



66 



67 



68 



69 



70 



71 



72 



73 



74 



75 



76 



77 



78 



79 



80 



61 



82 



83 



84 



85 



86 



87 



88 



89 



90 



91 



92 



93 



94 



95 



96 



97 



93 



99 



100 



101 



102 



103 



104 



105 



106 



107 



108 



109 



110 



111 



112 



113 



1.9) 

 1,9) 



F10.1 , 3H HZ) 



16 MPCH = 

 IF (K5 .LT. 10) GO TO 17 

 K5 = K5 - 10 

 MPCH = 1 



17 IF (K4 .NE. 1 ) GO TO 3 

 READ 20, (CONTR(I) , I = 

 CONTR(IO) = -1000. DO 

 READ 4, (d SMBL(I) , I = 



4 FORMAT (9A1) 



3 READ 10, N, FREO 



10 FORMAT (12, D10.1) 



IF (N.EO.O) GO TO 999 

 2 PRINT 12, N, FREO 

 12 FORMAT (13, 8H LAVERS, , 



READ 20, (Z( I) , 1 = 1 ,N) 



PRINT30, (Z( I ) , 1 = 1 ,N) 



READ 20, (C( I ) , I = 1 ,N) 

 20 FORMAT (8D10.4) 



PRINT30, (C(I), I = 1,N) 



READ 20, (CB( I) , I = 1 ,N) 



PRINT30, (CB( I ) , I = 1 ,N) 



RFAO ^O , (GftMiVlA(I). I = 1.N) 



PRINTSo! (GAMMA(I), I = 1,N) 



READ 20, (DPK(I), I = 1,N) 



PRINT 30, (DPK( I) , I = 1 ,N) 



READ 20, (BLPK( I) , I = 1 ,N) 



PRINT30, (BLPK(I), I = 1,N) 



READ 20, (RHO(I), I = 1,N) 



PRINT 30, (RHO(I), I = 1,N) 



IF (FREO .GT. 0.) GO TO 18 



FREO = - FREO 



ATTEN = 0. 



GO TO 19 



18 F SO = (FREO / 1000. )**2 

 ATTEN = .1 * F SO / (1 . + 



19 ATTEN = ATTEN * 1.0936 

 PRINT 14, ATTEN 



14 FORMAT (8H ATTEN = ,G10.5 

 ATTEN = ATTEN / 1000. DO 



30 FORMAT (9F14.5) 

 C COMPLETE PROFILE 



DO 33 I = 1 ,N 



IF (RHO(I) .EO. 0.) RHO(I) = 1.02 

 IF (CB( I) .NE. 0. ) GO TO 31 

 CB(I) = C(I + 1 ) 



31 IF (C(I ) .NE. 0. ) GO TO 32 

 C(I) = CB(I-1 ) 



32 IF (DPK(I) .GE. 0.) GO TO 34 

 qi(I) = CBI(I-1 ) 



GO TO 36 

 34 CI(I) = 0. 



IF (DPK(I) .EO. 0. ) GO TO 36 



T = 27287.52708 / DPK(I) 



CI(I) = T - SORT((T - C(I)) * (T + C(I))) 

 36 CBI(I) = 0. 



IF (GAMMA(I) .NE. 0.) GO TO 38 

 C ♦♦BOTH SOUND SPEEDS GIVEN 



F SO) +40. ♦ F SO / (4100. + F SQ) 



5HDB/KM ) 



45 



