*
* $Id: cm_swit.txt,v 1.1 1996/10/24 14:11:24 thanlon Exp $
*
* $Log: cm_swit.txt,v $
* Revision 1.1  1996/10/24 14:11:24  thanlon
* Renamed from cm_swit.F
*
* Revision 1.1.1.1  1996/09/13 12:14:47  pubzh
* Imported sources
*
*
#include "sys/CMS_machine.h"
#include "pilot.h"
#if defined(CMS_DOC)
*CMZ :          11/01/96  03.24.31  by  karimaki
*-- Author :
*
* SWIT  (USER FLAGS)
* ----
*
* +----+----+-----------+---------+--------------------------------------+
* |WORD|TYPE| VARIABLE  | DEFAULT |      CONTENT                         |
* +----+----+-----------+---------+--------------------------------------+
* |  1 |  I | ISWIT( 1) |       0 | GPGKIN                               |
* |  2 |  I | ISWIT( 2) |       0 | GPCXYZ                               |
* |  3 |  I | ISWIT( 3) |       0 | GSXYZ                                |
* |  4 |  I | ISWIT( 4) |       0 |                                      |
* |  5 |  I | ISWIT( 5) |       0 | GPHITS                               |
* |  6 |  I | ISWIT( 6) |       0 |                                      |
* |  7 |  I | ISWIT( 7) |       0 | REFIT                                |
* |  8 |  I | ISWIT( 8) |       0 | GUDIGI                               |
* |  9 |  I | ISWIT( 9) |       0 |                                      |
* | 10 |  I | ISWIT(10) |       0 |                                      |
* +----+----+-----------+---------+--------------------------------------+
*
*    ISWIT(1) = XY   : X .ne. 1 call GPJXYZ(0) ! Prints JXYZ bank
*    ISWIT(1) =  2   : CALL GPGKIN ! list of particles generated during step
*
*    ISWIT(2) = 1    : CALL GSXYZ  ! store point in JXYZ
*    ISWIT(2) = 2    : CALL GPCXYZ ! step by step printed debug
*    ISWIT(2) = 3    : CALL GDCXYZ ! interactive drawing of trajectories, if
*                      ISWIT(4) = 3 then neutral particles are not drawing
*    ISWIT(2) = 4    : CALL GDTRAK(' ') ! to draw a track and delete
*                      it from the JXYZ buffer optionally.
*
*    ISWIT(3) = 1    : CALL GSXYZ ! store point in JXYZ
*    ISWIT(3) = ITMAX: In scan mode print all passes with ITETA<=ITMAX
*
*    ISWIT(4) = 3    : suppress interactive drawing of trajectories for neutral
*                      particles
*
*    ISWIT(5) = 1    : CALL GPHITS('*', '*')
*
*    ISWIT(7) = IJKLN:
*               N =   Debug level (from 1 to 5) in track & point fits
*               L > 0 Hits only from muons
*               K > 0 No. smearing in the hit positions
*               J > 0 No. systematics shift due to alignment
*
*    ISWIT(8) = IJKLN:
*               N = 1     Debug print in Minuit for cluster fitting
*               L = 1     call GPHITS
*               K = 1     call GPDIGI
*               J = 1     Print difference between fitted and generated cluster
*               I .NE. 1  take into account alpha dependence of charge induced
*                         on strip (wire screening effect)
#endif