00001 module interface_poisson_solver_At_homosol_lesq 00002 implicit none 00003 interface 00004 subroutine poisson_solver_At_homosol_lesq(pot_bc,pot_nb,pot,char_sym) 00005 real(8),pointer :: pot_bc(:,:), pot_nb(:,:), pot(:,:,:) 00006 character(len=6) :: char_sym 00007 end subroutine poisson_solver_At_homosol_lesq 00008 end interface 00009 end module interface_poisson_solver_At_homosol_lesq