*---------------------------------------------------------
*
*     commonblock geaevent for input- event files;
*     filling is done in hgeantinput called from hgeantinit
*----------------------------------------------------------
	integer EvMaxFiles,NEvFiles
	parameter(EvMaxFiles=10)
	integer ipair(EvMaxFiles)
	character*120 EvFileName(EvMaxFiles)
        common/geaEvent/NEvFiles,EvFileName,ipair