CDECK  ID>, UGEOM.  
*CMZ :          06/07/88  07.53.53  by  Rene Brun
*-- Author :
      SUBROUTINE UGEOM
*
************************************************************************
*                                                                      *
*             Routine to define the geometry of the set-up.            *
*                                                                      *
************************************************************************
*
      IMPLICIT NONE
C
      CALL tgr_hddsGeant3
      CALL tgrbd
C
C -- Define geometry optimization
C#      CALL GSORD('SITE',2)
C
C -- Close geometry banks. Mandatory system routine.
C
      CALL GGCLOS
C
      END