21 REAn TAPF 3 

 ?5 CONTINUE 

 GLl TO 15 

 C FQ(n=0.0 CAN NDT RF ME AN I NGu YF UL L Y PKIKESSED 

 10 READ TAPE 3 » I D» FO C t 5 « WN ( 1 ) , M . K 

 IF(K>^1. 31*21 



31 M P = M + 1 



no 32 L=2»MP 



32 READ Tape 3,1D,F0Cl) .WN(L),M,K,DElTAT,OEPTH,PERIOO(L) .WAVlGHCL). 

 xnEPATNCL)'AVEP(L)>(CP(LiiUJ)»J=l*6)*I = l»6) 



C P(L» I» J) = -0.0 IF CHA^JNEL I OR J IS NO GOOD 



c wn(l) is vjave mjmbep = 2pi/wave lenijTh in feet 



C, Pl = 3. 14159?/. .. 



C VALUE K NO LONGER NEEDED 



GOODCH=0.0 



DO 40 l=l»6 



GOODC n = GODD( I)*P('#I» I ) 



IFCGOODC I ) )41 .40.41 

 41 G000CH=G00DCH+1.0 



G00D(I)=1.0 

 40 CONTINUE 



TERMS = 1 .0 + (GOODCH*cr,OODCH-l ,0) ) 



00 70 L=2»MH 

 SUM=0.0 



B-5 



