NAME

weissf - Split step operator


SYNOPSIS

 ierr=weissf_init(iws,izs,ifk,ith,wfld)


PARAMETERS

iws - integer
  Current frequency slice
izs - integer
  Current depth slice
ifk - integer
  Current fk operation
ith - integer
  Current thread
wfld - complex(:,:,:,:,:)
 Wavefield


DESCRIPTION

 Split step operator. Apply first order slowness correction
  to wthe wavefield given difference between velocity at
  location and reference velocity.


SEE ALSO

! the weissf_init manpage


LIBRARY

 sepweif90