/[PAMELA software]/gpamela/gpspe/gpdspe.F
ViewVC logotype

Diff of /gpamela/gpspe/gpdspe.F

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.1 by cafagna, Thu Jul 11 16:02:13 2002 UTC revision 3.2 by cafagna, Mon Jul 25 11:53:21 2005 UTC
# Line 1  Line 1 
1  *  *
2  * $Id$  * $Id: gpdspe.F,v 3.1.1.1 2002/07/11 16:02:13 cafagna Exp $
3    *
4    * $Log: gpdspe.F,v $
5    * Revision 3.1.1.1  2002/07/11 16:02:13  cafagna
6    * First GPAMELA release on CVS
7  *  *
 * $Log$  
8  *  *
9  *CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola  *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  *CMZ :  2.00/00 03/03/2000  15.39.06  by  Francesco Cafagna
# Line 20  Line 23 
23  ************************************************************************  ************************************************************************
24  #include "gcunit.inc"  #include "gcunit.inc"
25  #include "gpphit.inc"  #include "gpphit.inc"
26        PARAMETER (NH=NHSPE,NHM=NHMSPE,NVOL=4)        PARAMETER (NH=NHSPE,NHM=NHMSPE,NVOL=3)
27  #include "gppdigi.inc"  #include "gppdigi.inc"
28  c +SEQ,GPDSPE.  c +SEQ,GPDSPE.
29  #include "gprhit.inc"  #include "gprhit.inc"
# Line 107  c +SEQ,GPDSPE. Line 110  c +SEQ,GPDSPE.
110        NTHSPE = NHITS        NTHSPE = NHITS
111        DO I=1,NHITS        DO I=1,NHITS
112           ITRPB(I)   = NUMBV(1,I)           ITRPB(I)   = NUMBV(1,I)
113           ITRSL(I)   = NUMBV(3,I)           ITRSL(I)   = NUMBV(2,I)
114           ITSPA(I)   = NUMBV(4,I)           ITSPA(I)   = NUMBV(3,I)
115  #if defined(GPAMELA_INTER)  #if defined(GPAMELA_INTER)
116           XAVSPE(I) = VHITS(1,I)           XAVSPE(I) = VHITS(1,I)
117           YAVSPE(I) = VHITS(2,I)           YAVSPE(I) = VHITS(2,I)
Legend:
Removed from v.3.1  
changed lines
  Added in v.3.2
  ViewVC Help
Powered by ViewVC 1.1.23