This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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