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