gpamela/gpcal/gpsica.F

*
* $Id$
*
* $Log$
*
*CMZ :  3.00/00 04/12/2000  14.13.29  by  Emiliano Mocchiutti
*CMZ :  2.02/00 10/10/2000  14.55.32  by  Francesco Cafagna
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.06  by  Francesco Cafagna
*CMZ :  1.02/00 20/03/97  18.03.41  by  Francesco Cafagna
*CMZ :  1.00/02 04/04/96  17.54.01  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   04/04/96
      SUBROUTINE GPSICA
************************************************************************
*                                                                      *
* To define special tracking parameters for calorimeter silicon        *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Francesco Cafagna, 04/04/96 17.41.17                         *
*                                                                      *
************************************************************************
#include "gpsica.inc"
*
*EM:
      CUTGAMSICA = 0.00001
      CUTELESICA = 0.00001
      CUTNEUSICA = 0.001
      CUTHADSICA = 0.001
      PAIRSICA = 1
      COMPSICA = 1
      PHOTSICA = 1
      PFISSICA = 0
      DRAYSICA = 1
      ANNISICA = 1
      BREMSICA = 1
      HADRSICA = 1
      MUNUSICA = 1
      DCAYSICA = 1
      LOSSSICA = 1
c     MULSSICA = 3
      MULSSICA = 2
* From Spectromiter silicon parameters
C      LOSSSICA=1.
C      DRAYTSIca=1.
C      DCUTESICA=0.00001
C      DCUTMSICA=0.00001
C      CUTELESICA=0.00001
C      CUTMUOSICA=0.00001
C      STRASICA=0.
*END EM.
      RETURN
      END
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*CMZ : 3.00/00 04/12/2000 14.13.29 by Emiliano Mocchiutti
7			*CMZ : 2.02/00 10/10/2000 14.55.32 by Francesco Cafagna
8			*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
9			*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna
10			*CMZ : 1.02/00 20/03/97 18.03.41 by Francesco Cafagna
11			*CMZ : 1.00/02 04/04/96 17.54.01 by Francesco Cafagna
12			*-- Author : Francesco Cafagna 04/04/96
13			SUBROUTINE GPSICA
14			************************************************************************
15			* *
16			* To define special tracking parameters for calorimeter silicon *
17			* *
18			* Called by: GPDAT *
19			* Author: Francesco Cafagna, 04/04/96 17.41.17 *
20			* *
21			************************************************************************
22			#include "gpsica.inc"
23			*
24			*EM:
25			CUTGAMSICA = 0.00001
26			CUTELESICA = 0.00001
27			CUTNEUSICA = 0.001
28			CUTHADSICA = 0.001
29			PAIRSICA = 1
30			COMPSICA = 1
31			PHOTSICA = 1
32			PFISSICA = 0
33			DRAYSICA = 1
34			ANNISICA = 1
35			BREMSICA = 1
36			HADRSICA = 1
37			MUNUSICA = 1
38			DCAYSICA = 1
39			LOSSSICA = 1
40			c MULSSICA = 3
41			MULSSICA = 2
42			* From Spectromiter silicon parameters
43			C LOSSSICA=1.
44			C DRAYTSIca=1.
45			C DCUTESICA=0.00001
46			C DCUTMSICA=0.00001
47			C CUTELESICA=0.00001
48			C CUTMUOSICA=0.00001
49			C STRASICA=0.
50			*END EM.
51			RETURN
52			END