**************************************************************** subroutine ugeom * *-- Author : Ilse Koenig 05/06/96 * see separate library libhgeo.a for geometry in package ggeo * * last modified: 18.3.04 by R. Holzmann **************************************************************** * MAIN ROUTINE for the GEOMETRICAL SETUP * * * from here HGEOMCREATESETUP are called for defining * CAVE * SECT (6 fold segmentation) * MDCS * SHOWER * TOF-WALL * COILS * or whatever *------------------------------------------------------- #include "geamedia.inc" #include "geant321/gcflag.inc" integer *4 irunid call hgeomcreatesetup(irunid) call gsord('CAVE',3) call ggclos c call gpsets('*','*') if (idrun.gt.1) return ! take runid from geaini.dat file write(6,*) ' ***************************************' write(6,*) ' *** Generated Unique Run Id = ',irunid write(6,*) ' *************************************** ' idrun = irunid ! take generated runid return end