subroutine B_ntuple_clear
*----------------------------------------------------------------------
*
*     Purpose : Clear vars that go to the BigCal Ntuple
*
*     csa 4/15/97
*
* $Log: b_ntuple_clear.f,v $
* Revision 1.1.2.1  2007/05/15 02:54:45  jones
* Start to Bigcal code
*
* Revision 1.1  1999/02/24 14:52:36  saw
* Dummy routine
*
*
*----------------------------------------------------------------------
      implicit none
      save
*
*      character*13 here
*      parameter (here='h_Ntuple_clear')
*
*      logical ABORT
*      character*(*) err
*

*     csa 2/2/99 -- This is a dummy routine in the CVS tree. The
*     real thing gets created in the user's Oscar directory based
*     on which variables are in the ntuple.lst file.

*
      RETURN
      END