00001 module interface_poisson_solver_homogeneous_sol 00002 implicit none 00003 interface 00004 subroutine poisson_solver_homogeneous_sol(surp, vpot_b) 00005 real(8),pointer :: surp(:,:), vpot_b(:,:,:) 00006 end subroutine poisson_solver_homogeneous_sol 00007 end interface 00008 end module interface_poisson_solver_homogeneous_sol