* integer gep_max_ntuple_size parameter (gep_max_ntuple_size=100) integer default_gep_ntuple_ID parameter (default_gep_ntuple_ID=9510) * * CTPTYPE=parm * logical gep_ntuple_exists integer gep_ntuple_ID integer gep_ntuple_size integer gep_ntuple_IO_channel character*80 gep_ntuple_name character*80 gep_ntuple_title character*132 gep_ntuple_directory character*256 gep_ntuple_file character*8 gep_ntuple_tag(gep_max_ntuple_size) integer gep_ntuple_max_segmentevents * * CTPTYPE=event * integer gep_ntuple_segmentevents integer gep_ntuple_filesegments real gep_ntuple_contents(gep_max_ntuple_size) * common/gep_ntuple/ $ gep_ntuple_exists, $ gep_ntuple_ID, $ gep_ntuple_size, $ gep_ntuple_IO_channel, $ gep_ntuple_name, $ gep_ntuple_title, $ gep_ntuple_directory, $ gep_ntuple_file, $ gep_ntuple_tag, $ gep_ntuple_max_segmentevents, $ gep_ntuple_segmentevents, $ gep_ntuple_filesegments, $ gep_ntuple_contents