CERN Program Library Long Writeup W5013 - CERNLIB ...

5.11 CADINT fname aname nbins lunit lunit2 inst site dept resp
FNAME C “Name of the SET file” D=’example.set’
ANAME C “Name of the volume”
NBINS I “Number of the instances” D=1
LUNIT I “Logical unit number for SET file” D=66
LUNIT2 I “Logical unit number for material file” D=67
INST C “Name of your institute” D=’CERN’
SITE C “Name of site” D=’MEYRIN’
DEPT C “Name of departement” D=’CN’
RESP C “Name of sender” D=’god_knows_who’
CALL GTXSET(fname,aname,nbins,lunit,lunit2,inst,site,dept,resp)
This command produces a SET file describing the given volume with the contents currently set visible. (Use
the visibility attribute, see SATT SEEN.) The description is given as a flat assembly related to the global
coordinate system. The ouput can be read into CAD systems (EUCLID-IS) trough a SET interface. A list
of materials of the volumes in the SET file and the GEANT tree is written into a file with the same filename
as the SET file, but with extension .mat.
5.12 REUCLID lun fname
LUN I “Logical unit of the file to be read” R=1:100
FNAME C “Name of the EUCLID file to be read”
CALL GREUCL(LUN,FNAME)
Calls the routine to read into GEANT a geometry from an ASCII file written by the EUCLID-GEANT
interface.
5.13 WEUCLID lun fname topvol [ number nlevel ]
LUN I “Logical unit of the file to be written” R=1:100
FNAME C “Name of the EUCLID file to be written”
TOPVOL C “Volume name of the starting node”
NUMBER I “Copy number of TOPVOL (relevant for GSPOSP)” D=1
NLEVEL I “Number of levels in the tree structure” D=15
CALL GWEUCL(LUN,FNAME)
Calls the routine to write the current GEANT geometry into an ASCII file in EUCLID compatible format.
XINT002 – 26 382