00001 module interface_source_scalar_wave_moment_asympto 00002 implicit none 00003 interface 00004 subroutine source_scalar_wave_moment_asympto(sousfv,irg) 00005 real(8), pointer :: sousfv(:,:,:) 00006 integer :: irg 00007 end subroutine source_scalar_wave_moment_asympto 00008 end interface 00009 end module interface_source_scalar_wave_moment_asympto