NAME

  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


NAME

weicam - one depth step of common azimuth migration


SYNOPSIS

 ierr=weicam(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

Common Azimuth Migration operator


LIBRARY

sepweif90


SEE ALSO

 L<wei_caminit> L<weiwem>