GEANT321/gxint/gintri.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:21:48  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.33  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GINTRI
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *      Defines MENUs and COMMANDs                                *
  17 C.    *       User MENUs initialisation by user routine GUINTI         *
  18 C.    *                                                                *
  19 C.    *    ==>Called by : GXINT                                        *
  20 C.    *       Authors:   R.Brun      **********                        *
  21 C.    *                  S.Giani     **********                        *
  22 C.    *                                                                *
  23 C.    ******************************************************************
  24 C.
  25 #if defined(CERNLIB_USRJMP)
  26 #include "geant321/gcjump.inc"
  27 #endif
  28 #if defined(CERNLIB_USRJMP)
  29       EXTERNAL GUINTI
  30 #endif
  31 C.
  32 C.  ---------------------------------------------------------------------
  33 C.
  34 #if defined(CERNLIB_USRJMP)
  35 *
  36       JUINTI = JUMPAD(GUINTI)
  37 *
  38 #endif
  39       CALL GKDRAW
  40       CALL GKGCON
  41       CALL GKGEOM
  42       CALL GKCONT
  43       CALL GKRZ
  44       CALL GKFZ
  45       CALL GKDZ
  46       CALL GKSCAN
  47       CALL GKPHYS
  48       CALL GKLIST
  49       CALL GKFORT
  50 #if !defined(CERNLIB_USRJMP)
  51       CALL GUINTI
  52 #endif
  53 #if defined(CERNLIB_USRJMP)
  54       CALL JUMPT0(JUINTI)
  55 #endif
  56 *
  57       END
  58
  59
  60