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