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