00001 module interface_poisson_solver_binary_star_homosol
00002 implicit none
00003 interface
00004 subroutine poisson_solver_binary_star_homosol(char_bc,sou,&
00005 & sou_exsurf,dsou_exsurf, &
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_outsurf(:,:), dsou_outsurf(:,:)
00010 character(len=2) :: char_bc
00011 end subroutine poisson_solver_binary_star_homosol
00012 end interface
00013 end module interface_poisson_solver_binary_star_homosol
