weissf - Split step operator
ierr=weissf_init(iws,izs,ifk,ith,wfld)
Current frequency slice
Current depth slice
Current fk operation
Current thread
complex(:,:,:,:,:)
Wavefield
Split step operator. Apply first order slowness correction to wthe wavefield given difference between velocity at location and reference velocity.
sepweif90