NAME

veltran - velocity transform with anti-aliasing and sqrt( i omega)


SYNOPSIS

call veltran(adj,add,psun,s02,anti,t0,dt,x0,dx,s0,ds,nt,nx,ns,model,data)


INPUT PARAMETERS

adj - int
      0- (slow->offset), 1- (offset->slow)
add - int
      0- erase output, 1 save output
psun - int
      0-modeling, 1-pseudounitary, 2-vel tran
s02 - real
      ????
anti - real
      Triangle size
t0 - real
      Initial time
dt - real
      Sampling in time
x0 - real
      First offset
dx - real
      Offset sampling
s0 - real
      First slowness
ds - real
      Sampling in slowness
nt - int
      Number of time samples
nx - int
      Number of offset
ns - int
      Number of slownesses
modl - real(nt,ns)
      time,slowness panel
data - real(nt,nx)
      time,offset panel


DESCRIPTION

 Velocity transform with anti-aliasing


COMMENTS

Requires trimo, null, adjnull


LIBRARY

sepvelanf