00001 module interface_outer_boundary_d_potx 00002 implicit none 00003 interface 00004 subroutine outer_boundary_d_potx(sou_surf,Bfun,dBfundx) 00005 ! real(8), pointer :: sou_surf(:,:), dsou_surf(:,:) 00006 ! character(len=2), intent(in) :: char_bc 00007 real(8), pointer :: sou_surf(:,:), Bfun(:,:,:), dBfundx(:,:,:) 00008 end subroutine outer_boundary_d_potx 00009 end interface 00010 end module interface_outer_boundary_d_potx