weiwem_init - initialize wave equation migration
ierr= weiwem_init()
weiwem_init()
Wave equation migration operator
Grabs kxko=2. and nkxko=2001 from par
sepweif90
L<weiwem> L<weiwem_init>