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