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