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