1 |
* |
* |
2 |
* $Id: gpsitr.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $ |
* $Id: gpsitr.F,v 3.2 2006/03/15 16:22:52 bottai Exp $ |
3 |
* |
* |
4 |
* $Log: gpsitr.F,v $ |
* $Log: gpsitr.F,v $ |
5 |
|
* Revision 3.2 2006/03/15 16:22:52 bottai |
6 |
|
* Delta rays are disabled in SITR. Delta rays should not be simulated |
7 |
|
* because at present the SPE strips are still not simulated and |
8 |
|
* only the hits positions and their spread from true value (already |
9 |
|
* taking into account the delta rays contribution) are simulated. |
10 |
|
* |
11 |
* Revision 3.1.1.1 2002/07/11 16:02:14 cafagna |
* Revision 3.1.1.1 2002/07/11 16:02:14 cafagna |
12 |
* First GPAMELA release on CVS |
* First GPAMELA release on CVS |
13 |
* |
* |
27 |
* * |
* * |
28 |
************************************************************************ |
************************************************************************ |
29 |
#include "gpsitr.inc" |
#include "gpsitr.inc" |
30 |
|
#include "gpkey.inc" |
31 |
* Spectromiter silicon parameters from Paolo papini |
* Spectromiter silicon parameters from Paolo papini |
32 |
LOSSSITR=2. |
|
33 |
DRAYSITR=0. |
IF(HLONG) THEN |
34 |
|
LOSSSITR=1. |
35 |
|
DRAYSITR=1. |
36 |
|
ELSE |
37 |
|
LOSSSITR=2. |
38 |
|
DRAYSITR=0. |
39 |
|
ENDIF |
40 |
|
|
41 |
DCUTESITR=0.00001 |
DCUTESITR=0.00001 |
42 |
DCUTMSITR=0.00001 |
DCUTMSITR=0.00001 |
43 |
CUTELESITR=0.00001 |
CUTELESITR=0.00001 |