*
* $Id: gintri.F,v 1.1.1.1 1995/10/24 10:21:48 cernlib Exp $
*
* $Log: gintri.F,v $
* Revision 1.1.1.1  1995/10/24 10:21:48  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.33  by  S.Giani
*-- Author :
      SUBROUTINE GINTRI
C.
C.    ******************************************************************
C.    *                                                                *
C.    *      Defines MENUs and COMMANDs                                *
C.    *       User MENUs initialisation by user routine GUINTI         *
C.    *                                                                *
C.    *    ==>Called by : GXINT                                        *
C.    *       Authors:   R.Brun      **********                        *
C.    *                  S.Giani     **********                        *
C.    *                                                                *
C.    ******************************************************************
C.
#if defined(CERNLIB_USRJMP)
#include "geant321/gcjump.inc"
#endif
#if defined(CERNLIB_USRJMP)
      EXTERNAL GUINTI
#endif
C.
C.  ---------------------------------------------------------------------
C.
#if defined(CERNLIB_USRJMP)
*
      JUINTI = JUMPAD(GUINTI)
*
#endif
      CALL GKDRAW
      CALL GKGCON
      CALL GKGEOM
      CALL GKCONT
      CALL GKRZ
      CALL GKFZ
      CALL GKDZ
      CALL GKSCAN
      CALL GKPHYS
      CALL GKLIST
      CALL GKFORT
#if !defined(CERNLIB_USRJMP)
      CALL GUINTI
#endif
#if defined(CERNLIB_USRJMP)
      CALL JUMPT0(JUINTI)
#endif
*
      END