// set up ROOT tree
//
// called from uhbook.F
//
// last modified on 11/2/99 by R.Holzmann

#include "booktree.h"

void booktree(Int_t* nsplit) {

   if (*nsplit < 50000000)         // 50 MB minimum file size
      *nsplit = 50000000;
   MAXFILESIZE = *nsplit;

   gHades->setSplitLevel(2);       // maximum splitting into branches
   gHades->makeTree();

   printf("\n Geant ROOT HTree is split after %d Bytes\n\n",*nsplit);
}
FCALLSCSUB1(booktree,BOOKTREE,booktree,PINT)