AVEPC 1 )=AVEPC?) 

 EMAX(n=EMAX(?) 



WAVL'5H(l) = KAVL&Hr2) 



CALL SYMB0L(2.0><^.r5.0. 1 » HHrtAVE: TRAIN. FNr ,0.0,1a) 



CALL NUMBERC3.5»0.75'0.1»FQCMP),0.0,2) 



CALL GPHPVW(MP,in,AVEP,E'^AX,WAVLGH) 

 C WAVLGH is SURFACE WAVE STAFF SPECTRUM EST FROM BOTTOM PRE^SU-^E. 

 C AVE=P EMAx=V WAvLGH=rt ON THE PLOTS. 



ZM = M 



NP = DELTAT*ZM*0.5+1 .0 



DELX=0.0 



00 115 1=1,6 



CALL NUMBERCDELX,0.1,0.1,G000(n,0.0,-n 

 115 0ELX=0ELX+0,1 



CALL PFB3D(NP. ID«Ema<,FQ' THsiAX ) 



GO TO 15 

 100 REWIMO 3 



CALL LXIT 



PAUSE 70707 



GO TO 15 

 C ^ ENO(0»l, I'O, 1 ) 



ENI5 



B-10 



