gpamela/gpspe/gpsitr.F

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