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