c c Modified on 05/12/2008 by I. Koenig. c Modified on 19/09/2012 by Alessio Mangiarotti. c #include "hgeantmaxtrk.h" INTEGER NTRK INTEGER NSECT, NCOL, NCELLS, NGAPS PARAMETER (NSECT=6, NCOL=6, NCELLS=35, NGAPS=4) INTEGER RPCTRK, RPCDET REAL RPCE, RPCX, RPCY, RPCZ, RPCTHETA, RPCPHI, RPCTOF, RPCMOM, & RPCLEN, RPCLOCLEN COMMON /RPCTUPLE/ NTRK, RPCTRK(MAXTRKRPC), RPCDET(MAXTRKRPC), & RPCE(MAXTRKRPC), RPCX(MAXTRKRPC), RPCY(MAXTRKRPC), & RPCZ(MAXTRKRPC), RPCTHETA(MAXTRKRPC), RPCPHI(MAXTRKRPC), & RPCTOF(MAXTRKRPC), RPCMOM(MAXTRKRPC), RPCLEN(MAXTRKRPC), & RPCLOCLEN(MAXTRKRPC) INTEGER NUMED_GAP,NUMED_EBOX COMMON /RPCMED/ NUMED_GAP,NUMED_EBOX