1 |
* |
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 |
* |
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 |
LOSSSITR=2. |
26 |
DRAYSITR=0. |
27 |
DCUTESITR=0.00001 |
28 |
DCUTMSITR=0.00001 |
29 |
CUTELESITR=0.00001 |
30 |
CUTMUOSITR=0.00001 |
31 |
STRASITR=0. |
32 |
RETURN |
33 |
END |