steepdip - Find steep dip decon filter
aa=steepn(n,a,d,vel,tgap)
integer(:)
data size
real(:)
sampling
velocity
time gap
type(filter)
steep dip filter
Create steep dip decon filter
geef90