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

#include "cfortran.h"

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

void frpcbookr(void) {

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

   pFRpc->addCategory(catFRpcGeantRaw,
                       new HLinearCategory("HGeantFRpc",MAXTRKFRPC) );

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

}
FCALLSCSUB0(frpcbookr,FRPCBOOKR,frpcbookr)