00001 module interface_poisson_solver_binary_bhex 00002 implicit none 00003 interface 00004 subroutine poisson_solver_binary_bhex(sou,sou_exsurf,dsou_exsurf, & 00005 & sou_insurf,dsou_insurf, & 00006 & sou_outsurf,dsou_outsurf,pot) 00007 real(8), pointer :: pot(:,:,:), sou(:,:,:) 00008 real(8), pointer :: sou_exsurf(:,:), dsou_exsurf(:,:) 00009 real(8), pointer :: sou_insurf(:,:), dsou_insurf(:,:) 00010 real(8), pointer :: sou_outsurf(:,:), dsou_outsurf(:,:) 00011 end subroutine poisson_solver_binary_bhex 00012 end interface 00013 end module interface_poisson_solver_binary_bhex