00001 module interface_poisson_solver_binary_bhex_homosol
00002 implicit none
00003 interface
00004 subroutine poisson_solver_binary_bhex_homosol(char_bc,sou,&
00005 & sou_exsurf,dsou_exsurf, &
00006 & sou_insurf,dsou_insurf, &
00007 & sou_outsurf,dsou_outsurf,pot)
00008 real(8), pointer :: pot(:,:,:), sou(:,:,:)
00009 real(8), pointer :: sou_exsurf(:,:), dsou_exsurf(:,:)
00010 real(8), pointer :: sou_insurf(:,:), dsou_insurf(:,:)
00011 real(8), pointer :: sou_outsurf(:,:), dsou_outsurf(:,:)
00012 character(len=2) :: char_bc
00013 end subroutine poisson_solver_binary_bhex_homosol
00014 end interface
00015 end module interface_poisson_solver_binary_bhex_homosol
