[u/mrichter/AliRoot.git] / GEANT321 / gbase / gtrig.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:11  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
*-- Author :
      SUBROUTINE GTRIG
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Steering routine to process one event                    *
C.    *    ==>Called by : GRUN   ,<GXINT> GINC4                        *
C.    *       Author    R.Brun  *********                              *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcvdma.inc"
#include "geant321/gcflag.inc"
#if defined(CERNLIB_USRJMP)
#include "geant321/gcjump.inc"
#endif
C.
C.    ------------------------------------------------------------------
C.
C.            Kinematics
C.
      IF(RAYTRA.NE.1.)THEN
#if !defined(CERNLIB_USRJMP)
       CALL GUKINE
#endif
#if defined(CERNLIB_USRJMP)
       CALL JUMPT0(JUKINE)
#endif
      ELSE
       CALL GDKINE
      ENDIF
      IF (IEOTRI.NE.0)  GO TO  99
C.
C.            Tracking
C.
#if !defined(CERNLIB_USRJMP)
      CALL GUTREV
#endif
#if defined(CERNLIB_USRJMP)
      CALL JUMPT0(JUTREV)
#endif
      IF (RAYTRA.EQ.1.) GO TO  99
      IF (IEOTRI.NE.0)  GO TO  99
C.
C.            Digitisation
C.
#if !defined(CERNLIB_USRJMP)
      CALL GUDIGI
#endif
#if defined(CERNLIB_USRJMP)
      CALL JUMPT0(JUDIGI)
#endif
      IF (IEOTRI.NE.0)  GO TO  99
C.
C.            User end of event control routine
C.
#if !defined(CERNLIB_USRJMP)
      CALL GUOUT
#endif
#if defined(CERNLIB_USRJMP)
      CALL JUMPT0(JUOUT)
#endif
C
  99  RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:11 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GTRIG
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Steering routine to process one event *
	17	C. * ==>Called by : GRUN ,<GXINT> GINC4 *
	18	C. * Author R.Brun ********* *
	19	C. * *
	20	C. ******************************************************************
	21	C.
	22	#include "geant321/gcvdma.inc"
	23	#include "geant321/gcflag.inc"
	24	#if defined(CERNLIB_USRJMP)
	25	#include "geant321/gcjump.inc"
	26	#endif
	27	C.
	28	C. ------------------------------------------------------------------
	29	C.
	30	C. Kinematics
	31	C.
	32	IF(RAYTRA.NE.1.)THEN
	33	#if !defined(CERNLIB_USRJMP)
	34	CALL GUKINE
	35	#endif
	36	#if defined(CERNLIB_USRJMP)
	37	CALL JUMPT0(JUKINE)
	38	#endif
	39	ELSE
	40	CALL GDKINE
	41	ENDIF
	42	IF (IEOTRI.NE.0) GO TO 99
	43	C.
	44	C. Tracking
	45	C.
	46	#if !defined(CERNLIB_USRJMP)
	47	CALL GUTREV
	48	#endif
	49	#if defined(CERNLIB_USRJMP)
	50	CALL JUMPT0(JUTREV)
	51	#endif
	52	IF (RAYTRA.EQ.1.) GO TO 99
	53	IF (IEOTRI.NE.0) GO TO 99
	54	C.
	55	C. Digitisation
	56	C.
	57	#if !defined(CERNLIB_USRJMP)
	58	CALL GUDIGI
	59	#endif
	60	#if defined(CERNLIB_USRJMP)
	61	CALL JUMPT0(JUDIGI)
	62	#endif
	63	IF (IEOTRI.NE.0) GO TO 99
	64	C.
65	C. User end of event control routine
66	C.
67	#if !defined(CERNLIB_USRJMP)
68	CALL GUOUT
69	#endif
70	#if defined(CERNLIB_USRJMP)
71	CALL JUMPT0(JUOUT)
72	#endif
73	C
74	99 RETURN
75	END