NAME

nmo_mod - Perform nmo


SYNOPSIS

Initializer-call nmo_init(slowness,offset,o1,d1)

operator-call nmo_nearest(adj,tt,zz)

operator-call nmo_linear(adj,tt,zz)


INITIALIZER

INPUT PARAMETERS

slowness - real(:)
           Slowness(t)
offset - real(:)
           Offset
o1 - real
           First sample in time
d1 - real
           Sampling in time
inverse - logical
           Wheter or not to do inverse


OPERATORS

adj - logical
        Whether or not do adjoint
tt - real(:,:)
        Input
zz - real(:,:)
        Output


DESCRIPTION

Nmo by nearest or linear interpolation neighbor for a gather


COMMENTS

NMO, its transpose, inverse, and inverse transpose by nearest neighbor.

adj=.false. inv=.false.: zz(iz) = [NMO] tt(it)

adj=.true. inv=.false.: tt(it) = [NMO adj] zz(iz)

adj=.false. inv=.true.: tt(it) = [NMO inverse] zz(iz)

adj=.true. inv=.true.: zz(iz) = [NMO inverse transpose] tt(it)


SEE ALSO

the Nmo3d manpage


LIBRARY

sepvelanf90