/[PAMELA software]/gpamela/gptof/gpdtof.F
ViewVC logotype

Diff of /gpamela/gptof/gpdtof.F

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

revision 3.2 by pam-ba, Tue May 2 11:46:13 2006 UTC revision 3.4 by pam-ba, Thu May 18 10:52:32 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpdtof.F,v 3.1.1.1 2002/07/11 16:02:01 cafagna Exp $  * $Id: gpdtof.F,v 3.3 2006/05/02 18:00:11 cafagna Exp $
3  *  *
4  * $Log: gpdtof.F,v $  * $Log: gpdtof.F,v $
5    * Revision 3.3  2006/05/02 18:00:11  cafagna
6    * Bugs fixed in TOF set definition, TOF hit back to the original naming scheme
7    *
8    * Revision 3.2  2006/05/02 11:46:13  pam-ba
9    * TOF geometry and position updated and a new material, the mylar, added
10    *
11  * Revision 3.1.1.1  2002/07/11 16:02:01  cafagna  * Revision 3.1.1.1  2002/07/11 16:02:01  cafagna
12  * First GPAMELA release on CVS  * First GPAMELA release on CVS
13  *  *
# Line 30  Line 36 
36  *  *
37        INTEGER IS,ID,NV,NVM,NNHM,INDEX,NPLANE        INTEGER IS,ID,NV,NVM,NNHM,INDEX,NPLANE
38        CHARACTER*4 CSET(4)        CHARACTER*4 CSET(4)
39        DATA CSET/'S1  ','S2  ','S3A ','S4  '/        DATA CSET/'S1  ','S2  ','S3  ','S4  '/
40  *  *
41  * Vector zeroed  * Vector zeroed
42  *  *
# Line 128  CC         NPLANE = II Line 134  CC         NPLANE = II
134  #endif  #endif
135  *ML:  *ML:
136  *            ERELTOF(INDEX) = VHITS(7,I)  *            ERELTOF(INDEX) = VHITS(7,I)
137                 ERELTOF(INDEX) = VHITS(11,I)                 ERELTOF(INDEX) = VHITS(7,I)
138                 TIMETOF(INDEX) = VHITS(8,I)                 TIMETOF(INDEX) = VHITS(8,I)
139                 PATHTOF(INDEX) = VHITS(9,I)                 PATHTOF(INDEX) = VHITS(9,I)
140                 IPARTOF(INDEX) = VHITS(10,I)                 IPARTOF(INDEX) = VHITS(10,I)
141  *     P0TOF (INDEX) = VHITS(11,I)  *     P0TOF (INDEX) = VHITS(11,I)
142                 P0TOF(INDEX) = VHITS(7,I)                 P0TOF(INDEX) = VHITS(11,I)
143              ENDDO              ENDDO
144   100        CONTINUE   100        CONTINUE
145           ENDDO           ENDDO
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.4
  ViewVC Help
Powered by ViewVC 1.1.23