nmo_mod - Perform nmo
Initializer-call nmo_init(slowness,offset,o1,d1)
operator-call nmo_nearest(adj,tt,zz)
operator-call nmo_linear(adj,tt,zz)
real(:)
Slowness(t)
real(:)
Offset
First sample in time
Sampling in time
Wheter or not to do inverse
Whether or not do adjoint
real(:,:)
Input
real(:,:)
Output
Nmo by nearest or linear interpolation neighbor for a gather
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)
sepvelanf90