00001 module interface_helmholtz_solver
00002   implicit none
00003   interface 
00004     subroutine helmholtz_solver(sou,pot)
00005       real(8), pointer :: pot(:,:,:), sou(:,:,:)
00006     end subroutine helmholtz_solver
00007   end interface
00008 end module interface_helmholtz_solver