/*-- FORTRAN section --*/
integer fgnevnsci ! number of events in scifi
integer fgnevtxsci ! number of vertex in each scifi event
integer fgnetrksci ! number of tracks in each scifi event
integer fgevtxidsci ! vertex id of each scifi event
integer fgetrkidsci ! track id of each scifi event
c
common / fgevntsci / fgnevnsci,fgnevtxsci(FGMXEVNSCI),
+ fgnetrksci(FGMXEVNSCI),
+ fgevtxidsci(FGMXVXSCI,FGMXEVNSCI),
+ fgetrkidsci(FGMXTRSCI,FGMXEVNSCI)
/*-- C section --*/
typedef struct
{ int nevn; /* number of events in scifi */
int nevtx[FGMXEVNSCI]; /* number of vertex in each scifi event */
int netrk[FGMXEVNSCI]; /* number of tracks in each scifi event */
int evtxid[FGMXEVNSCI][FGMXVXSCI]; /* vertex id of each scifi event */
int etrkid[FGMXEVNSCI][FGMXTRSCI]; /* track id of each scifi event */
} FGEVNTSCI_COM;
#define FGEVNTSCI COMMON_BLOCK(FGEVNTSCI,fgevntsci)
COMMON_BLOCK_DEF(FGEVNTSCI_COM,FGEVNTSCI);