integer function weicam_init() result(st) integer :: er #ifdef DEBUG character(len=128), parameter :: unit='weicam_init' if(run%debug) call in(unit) #endif
!! init SSR call from_param("nkxko",nkxko,2001) call from_param( "kxko", kxko,2.) call dsr_init(kxko,nkxko,kzko,tkzko,exp_kzko,ikzko,dkxko,nkxko,idkzko,rdkzko) call comaz_init(kxko,nkxko)
#ifdef DEBUG
if(run%debug)
call out(unit)
#endif
st=OK
end function weicam_init
weicam - one depth step of common azimuth migration
ierr=weicam(iws,izs,ifk,ith,wfld)
current frequency slice
current depth slice
current fk operation
current thread
complex(:,:,:,:,:)
wavefield
Common Azimuth Migration operator
sepweif90
L<wei_caminit> L<weiwem>