00001 module interface_sourceterm_Bfun
00002   implicit none
00003   interface 
00004     subroutine sourceterm_Bfun(sou,Bfun,potx,poty,potz)
00005       real(8), pointer :: sou(:,:,:), Bfun(:,:,:), potx(:,:,:), poty(:,:,:), potz(:,:,:)
00006     end subroutine sourceterm_Bfun
00007   end interface
00008 end module interface_sourceterm_Bfun