1 |
cafagna |
3.1 |
* |
2 |
bottai |
3.2 |
* $Id: gpsitr.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $ |
3 |
|
|
* |
4 |
|
|
* $Log: gpsitr.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 : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola |
10 |
|
|
*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna |
11 |
|
|
*CMZ : 1.01/00 16/05/96 17.19.05 by Francesco Cafagna |
12 |
|
|
*CMZ : 1.00/02 04/04/96 17.54.02 by Francesco Cafagna |
13 |
|
|
*-- Author : Francesco Cafagna 04/04/96 |
14 |
|
|
SUBROUTINE GPSITR |
15 |
|
|
************************************************************************ |
16 |
|
|
* * |
17 |
|
|
* To define special tracking parameters for tracker silicon * |
18 |
|
|
* * |
19 |
|
|
* Called by: GPDAT * |
20 |
|
|
* Author: Francesco Cafagna, 04/04/96 17.41.17 * |
21 |
|
|
* * |
22 |
|
|
************************************************************************ |
23 |
|
|
#include "gpsitr.inc" |
24 |
|
|
* Spectromiter silicon parameters from Paolo papini |
25 |
bottai |
3.2 |
LOSSSITR=2. |
26 |
|
|
DRAYSITR=0. |
27 |
cafagna |
3.1 |
DCUTESITR=0.00001 |
28 |
|
|
DCUTMSITR=0.00001 |
29 |
|
|
CUTELESITR=0.00001 |
30 |
|
|
CUTMUOSITR=0.00001 |
31 |
|
|
STRASITR=0. |
32 |
|
|
RETURN |
33 |
|
|
END |