gpamela/gpcdes/gpdspe.inc

*
* $Id$
*
* $Log$
*
*
* gpdspe.inc
*
*CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.02/00 10/03/97  12.52.13  by  Francesco Cafagna
*CMZ :  1.01/00 04/05/96  10.28.46  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   04/05/96
*
* Parameters for spectrometer digitalization
*
      PARAMETER (NPCHXY=275,NPCHZ=60,NUDSPE=20)
*
      INTEGER LKD1,LKD2,LKD3,LKDH,NXSTR,NYSTR
*
      REAL RLKD4,WXSTR,WYSTR,CHARX,CHARX_I,
     +     CHARY,CCX,CCY,STEPX,STEPY,STEPZ,
     +     ENOISX,ENOISY,PIEDX,PIEDY,ADCX,ADCY,D,TVX,TVY,UD,UU,PX1,
     +     PX2,PY1,PY2
*
      COMMON /GPCDSPE/LKD1(NDMSPE),LKD2(NDMSPE),LKD3(NDMSPE),
     +               LKDH(NDMSPE),NXSTR,NYSTR,
     +               RLKD4(NDMSPE),WXSTR,WYSTR,CHARX(NPCHXY,NPCHZ),
     +               CHARX_I(NPCHXY,NPCHZ),
     +               CHARY(NPCHXY,NPCHZ),CCX(3),CCY(3),STEPX,STEPY,
     +               STEPZ,ENOISX,ENOISY,PIEDX,PIEDY,ADCX,ADCY,D,
     +               TVX,TVY,UD,UU,PX1,PX2,PY1,PY2
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gpdspe.inc
8			*
9			*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
10			*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
11			*CMZ : 1.02/00 10/03/97 12.52.13 by Francesco Cafagna
12			*CMZ : 1.01/00 04/05/96 10.28.46 by Francesco Cafagna
13			*-- Author : Francesco Cafagna 04/05/96
14			*
15			* Parameters for spectrometer digitalization
16			*
17			PARAMETER (NPCHXY=275,NPCHZ=60,NUDSPE=20)
18			*
19			INTEGER LKD1,LKD2,LKD3,LKDH,NXSTR,NYSTR
20			*
21			REAL RLKD4,WXSTR,WYSTR,CHARX,CHARX_I,
22			+ CHARY,CCX,CCY,STEPX,STEPY,STEPZ,
23			+ ENOISX,ENOISY,PIEDX,PIEDY,ADCX,ADCY,D,TVX,TVY,UD,UU,PX1,
24			+ PX2,PY1,PY2
25			*
26			COMMON /GPCDSPE/LKD1(NDMSPE),LKD2(NDMSPE),LKD3(NDMSPE),
27			+ LKDH(NDMSPE),NXSTR,NYSTR,
28			+ RLKD4(NDMSPE),WXSTR,WYSTR,CHARX(NPCHXY,NPCHZ),
29			+ CHARX_I(NPCHXY,NPCHZ),
30			+ CHARY(NPCHXY,NPCHZ),CCX(3),CCY(3),STEPX,STEPY,
31			+ STEPZ,ENOISX,ENOISY,PIEDX,PIEDY,ADCX,ADCY,D,
32			+ TVX,TVY,UD,UU,PX1,PX2,PY1,PY2