00001 module interface_helmholtz_solver_binary 00002 implicit none 00003 interface 00004 subroutine helmholtz_solver_binary(fnc,sou,sou_exsurf,dsou_exsurf,sou_outsurf,dsou_outsurf,pot) 00005 real(8), pointer :: pot(:,:,:), sou(:,:,:), fnc(:,:,:) 00006 real(8), pointer :: sou_exsurf(:,:), dsou_exsurf(:,:) 00007 real(8), pointer :: sou_outsurf(:,:), dsou_outsurf(:,:) 00008 end subroutine helmholtz_solver_binary 00009 end interface 00010 end module interface_helmholtz_solver_binary