/[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.3 by cafagna, Tue May 2 18:00:11 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.2 2006/05/02 11:46:13 pam-ba Exp $
3  *  *
4  * $Log: gpdtof.F,v $  * $Log: gpdtof.F,v $
5    * Revision 3.2  2006/05/02 11:46:13  pam-ba
6    * TOF geometry and position updated and a new material, the mylar, added
7    *
8  * Revision 3.1.1.1  2002/07/11 16:02:01  cafagna  * Revision 3.1.1.1  2002/07/11 16:02:01  cafagna
9  * First GPAMELA release on CVS  * First GPAMELA release on CVS
10  *  *
# Line 128  CC         NPLANE = II Line 131  CC         NPLANE = II
131  #endif  #endif
132  *ML:  *ML:
133  *            ERELTOF(INDEX) = VHITS(7,I)  *            ERELTOF(INDEX) = VHITS(7,I)
134                 ERELTOF(INDEX) = VHITS(11,I)                 ERELTOF(INDEX) = VHITS(7,I)
135                 TIMETOF(INDEX) = VHITS(8,I)                 TIMETOF(INDEX) = VHITS(8,I)
136                 PATHTOF(INDEX) = VHITS(9,I)                 PATHTOF(INDEX) = VHITS(9,I)
137                 IPARTOF(INDEX) = VHITS(10,I)                 IPARTOF(INDEX) = VHITS(10,I)
138  *     P0TOF (INDEX) = VHITS(11,I)  *     P0TOF (INDEX) = VHITS(11,I)
139                 P0TOF(INDEX) = VHITS(7,I)                 P0TOF(INDEX) = VHITS(11,I)
140              ENDDO              ENDDO
141   100        CONTINUE   100        CONTINUE
142           ENDDO           ENDDO
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.3
  ViewVC Help
Powered by ViewVC 1.1.23