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