NAME

velsimp - simple velocity transfrom


SYNOPSIS

call velsimp( adj,add, t0,dt,x0,dx,s0,ds, nt,nx,ns, modl, data)


INPUT PARAMETERS

adj - int
      0- (slow->offset), 1- (offset->slow)
add - int
      0- erase output, 1 save output
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

A fortran77 program to convert from time,slowness to time, offset


LIBRARY

sepvelanf