#! /bin/csh

sac << sacend
read *.SAC
ch evla 2.945 evlo -78.069 o gmt 2007 253 1 49 11 000
rtr
transfer from evalresp to vel
div 1e9
mul 100
int
bp co 0.01 0.025 n 3 p 2
interp delta 1
marktimes v 10 to t0
w change .SAC .p.SAC
quit
sacend
