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