00001 module interface_poisson_solver_bhex_surf_int 00002 implicit none 00003 interface 00004 subroutine poisson_solver_bhex_surf_int(char_io,sou_iosurf,pot) 00005 real(8), pointer :: sou_iosurf(:,:,:), pot(:,:,:) 00006 character(len=2), intent(in) :: char_io 00007 end subroutine poisson_solver_bhex_surf_int 00008 end interface 00009 end module interface_poisson_solver_bhex_surf_int