00001 module interface_compute_dBfun
00002   implicit none
00003   interface 
00004     subroutine compute_dBfun(Bfun,dBfundx,dBfundy,dBfundz)
00005       real(8), pointer :: Bfun(:,:,:), dBfundx(:,:,:), dBfundy(:,:,:), dBfundz(:,:,:) 
00006     end subroutine compute_dBfun
00007   end interface
00008 end module interface_compute_dBfun