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