// close ROOT tree
//
// called from uhbook.F
//
// last modified on 28/7/99 by R.Holzmann

#include "booktree.h"

void closetree(void) {

//   gHades->getTree()->Print();          // print tree info
//   gHades->~Hades();                    // destroy the Hades object
   delete gHades;

   printf("\n Geant ROOT HTree is closed now \n");

}
FCALLSCSUB0(closetree,CLOSETREE,closetree)