00001 module interface_helmholtz_solver_binary 00002 implicit none 00003 interface 00004 subroutine helmholtz_solver_binary(sou,sou_surf,dsou_surf,pot) 00005 real(8), pointer :: pot(:,:,:), sou(:,:,:) 00006 real(8), pointer :: sou_surf(:,:), dsou_surf(:,:) 00007 end subroutine helmholtz_solver_binary 00008 end interface 00009 end module interface_helmholtz_solver_binary