gpamela/gpcal/gpsica.F

*
* $Id: gpsica.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
*
* $Log: gpsica.F,v $
* Revision 3.1.1.1  2002/07/11 16:02:14  cafagna
* First GPAMELA release on CVS
*
*
*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
      CUTHADSICA = 0.001
c ml:
      BCUTESICA=0.00001
      DCUTESICA=0.00001
C end ml.
      CUTELESICA = 0.00001
c ml:
      CUTMUOSICA=0.01
      BCUTMSICA=0.00001
      DCUTMSICA=0.00001
c end ml.
      CUTNEUSICA = 0.001
c ml:
      PPCUTMSICA=0.01
c end ml.
      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	pamela	3.2	* $Id: gpsica.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
3			*
4			* $Log: gpsica.F,v $
5			* Revision 3.1.1.1 2002/07/11 16:02:14 cafagna
6			* First GPAMELA release on CVS
7	cafagna	3.1	*
8			*
9			*CMZ : 3.00/00 04/12/2000 14.13.29 by Emiliano Mocchiutti
10			*CMZ : 2.02/00 10/10/2000 14.55.32 by Francesco Cafagna
11			*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
12			*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna
13			*CMZ : 1.02/00 20/03/97 18.03.41 by Francesco Cafagna
14			*CMZ : 1.00/02 04/04/96 17.54.01 by Francesco Cafagna
15			*-- Author : Francesco Cafagna 04/04/96
16			SUBROUTINE GPSICA
17			************************************************************************
18			* *
19			* To define special tracking parameters for calorimeter silicon *
20			* *
21			* Called by: GPDAT *
22			* Author: Francesco Cafagna, 04/04/96 17.41.17 *
23			* *
24			************************************************************************
25			#include "gpsica.inc"
26			*
27			*EM:
28			CUTGAMSICA = 0.00001
29	pamela	3.2	CUTHADSICA = 0.001
30			c ml:
31			BCUTESICA=0.00001
32			DCUTESICA=0.00001
33			C end ml.
34	cafagna	3.1	CUTELESICA = 0.00001
35	pamela	3.2	c ml:
36			CUTMUOSICA=0.01
37			BCUTMSICA=0.00001
38			DCUTMSICA=0.00001
39			c end ml.
40	cafagna	3.1	CUTNEUSICA = 0.001
41	pamela	3.2	c ml:
42			PPCUTMSICA=0.01
43			c end ml.
44			PAIRSICA = 1
45			COMPSICA = 1
46			PHOTSICA = 1
47			PFISSICA = 0
48			DRAYSICA = 1
49			ANNISICA = 1
50			BREMSICA = 1
51			HADRSICA = 1
52			MUNUSICA = 1
53			DCAYSICA = 1
54			LOSSSICA = 1
55	cafagna	3.1	c MULSSICA = 3
56	pamela	3.2	MULSSICA = 2
57	cafagna	3.1	* From Spectromiter silicon parameters
58			C LOSSSICA=1.
59			C DRAYTSIca=1.
60			C DCUTESICA=0.00001
61			C DCUTMSICA=0.00001
62			C CUTELESICA=0.00001
63			C CUTMUOSICA=0.00001
64			C STRASICA=0.
65			*END EM.
66			RETURN
67			END