This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gtrak / gdebug.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:21:40  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.23  by  S.Giani
11 *-- Author :
12       SUBROUTINE GDEBUG
13 *
14 ************************************************************************
15 *             Standard GEANT debug                                     *
16 *                                                                      *
17 *          ==>Called by : <USER>,GUSTEP                                *
18 *             Author    R.Brun  *********                              *
19 ************************************************************************
20 *
21 #include "geant321/gcflag.inc"
22 #include "geant321/gckine.inc"
23 #include "geant321/gctrak.inc"
24 *
25 *             Debug/plot event
26       IF(IDEBUG.NE.0) THEN
27         IF((ISWIT(2).EQ.1).OR.(ISWIT(3).EQ.1)
28      +                    .OR.(ISWIT(2).EQ.4)) CALL GSXYZ
29         IF (ISWIT(2).EQ.2) CALL GPCXYZ
30         IF (ISWIT(1).EQ.2) CALL GPGKIN
31         IF (ISWIT(2).EQ.3) THEN
32            IF(ISWIT(4).EQ.3.AND.CHARGE.EQ.0.)RETURN
33            CALL GDCXYZ
34            CALL IGSA(0)
35         ELSEIF(ISWIT(2).EQ.4) THEN
36            IF(ISTOP.NE.0) CALL GDTRAK(' ')
37         ENDIF
38       ENDIF
39       END
40