CERN Program Library Long Writeup W5013 - CERNLIB ...

0 if only IER] structures read in out of the NKEYS requested;
Routine to read GEANT object(s) from a ZEBRA/FZ file. The data structures from disk are read in memory.
The FZ data base must have been been created via GOPEN/GFOUT. Example:
CALL GOPEN(1,’I’,1024,IER)
IDVOLU = 0
IDMATE = 0
IDTMED = 0
IDROTM = 0
IDPART = 0
IDSCAN = 0
IDSETS = 0
CALL GFIN (1,’VOLU’,1,IDVOLU,’ ’,IER)
CALL GFIN (1,’MATE’,1,IDMATE,’ ’,IER)
CALL GFIN (1,’TMED’,1,IDTMED,’ ’,IER)
CALL GFIN (1,’ROTM’,1,IDROTM,’ ’,IER)
CALL GFIN (1,’PART’,1,IDPART,’ ’,IER)
CALL GFIN (1,’SCAN’,1,IDSCAN,’ ’,IER)
CALL GFIN (1,’SETS’,1,IDSETS,’ ’,IER)
CALL GFOUT
(LUN,CHOBJ,NKEYS,IDVERS,CHOPT,IER*)
The arguments have the same meaning than for GFIN with the following differences:
IDVERS
(INTEGER) version identifier of the data structures to be written out;
Routine to write GEANT object(s) into a ZEBRA/FZ file. The data structures from memory are written on the
file. The FZ data base must have been been created via GOPEN/GFOUT. Example:
CALL GOPEN(1,’O’,1024,IER)
CALL GFOUT (1,’VOLU’,1,IDVOLU,’ ’,IER)
CALL GFOUT (1,’MATE’,1,IDMATE,’ ’,IER)
CALL GFOUT (1,’TMED’,1,IDTMED,’ ’,IER)
CALL GFOUT (1,’ROTM’,1,IDROTM,’ ’,IER)
CALL GFOUT (1,’PART’,1,IDPART,’ ’,IER)
CALL GFOUT (1,’SCAN’,1,IDSCAN,’ ’,IER)
CALL GFOUT (1,’SETS’,1,IDSETS,’ ’,IER)
Note: the routines GGET and GSAVE are obsolete and should not be used.
IOPA300 – 2 179