/*-- FORTRAN section --*/
integer fgnvtxsci ! number vertices in SCIFI
real fgvtxsci ! vertex coordi. in SCIFI
real fgevtxsci ! error of vertex coordi. in SCIFI
integer fgnvtrksci ! number of tracks for each vertex
integer fgvtrkidsci ! track id for each vertex
c
common / fgvrtxsci / fgnvtxsci,
+ fgvtxsci(3,FGMXVXSCI),fgevtxsci(3,FGMXVXSCI),
+ fgnvtrksci(FGMXVXSCI),fgvtrkidsci(FGMXTRSCI,FGMXVXSCI)
/*-- C section --*/
typedef struct
{ int nvtx; /* number vertices in SCIFI */
float vtx[FGMXVXSCI][3]; /* vertex coordi. in SCIFI */
float evtx[FGMXVXSCI][3]; /* error of vertex coordi. in SCIFI */
int nvtrk[FGMXVXSCI]; /* number of tracks for each vertex */
int vtrkid[FGMXVXSCI][FGMXTRSCI]; /* track id for each vertex */
} FGVRTXSCI_COM;
#define FGVRTXSCI COMMON_BLOCK(FGVRTXSCI,fgvrtxsci)
COMMON_BLOCK_DEF(FGVRTXSCI_COM,FGVRTXSCI);