///////////////////////////////////////////////////////////////////////////// 
// set up Sts branch in ROOT tree
//
// called from uhbook.F
//
// last modified on 23/11/2015 by I. Koenig
///////////////////////////////////////////////////////////////////////////// 

#include "cfortran.h"

#include "stsbookr.h"
#include "hrecevent.h"
#include "hpartialevent.h"
#include "hlinearcategory.h"
#include "hgeantmaxtrk.h"

void stsbookr(void) {

   HRecEvent* pHGeantEvent = (HRecEvent*)(gHades->getCurrentEvent());
                                                           // pointer to event
   HPartialEvent* pSts = pHGeantEvent->getPartialEvent(catSimul);

   pSts->addCategory(catStsGeantRaw,
                       new HLinearCategory("HGeantSts",MAXTRKSTS) );

   printf("\n STS branches added\n");

}
FCALLSCSUB0(stsbookr,STSBOOKR,stsbookr)