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

Diff of /gpamela/gptof/gputof.F

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

revision 3.2 by cafagna, Tue May 2 18:00:11 2006 UTC revision 3.3 by cafagna, Tue Oct 2 17:58:32 2007 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gputof.F,v 3.1.1.1 2002/07/11 16:02:01 cafagna Exp $  * $Id: gputof.F,v 3.2 2006/05/02 18:00:11 cafagna Exp $
3  *  *
4  * $Log: gputof.F,v $  * $Log: gputof.F,v $
5    * Revision 3.2  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.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 88  Line 91 
91              VHIT(7) = DELOSS +VHIT(7)              VHIT(7) = DELOSS +VHIT(7)
92           ENDIF           ENDIF
93           VHIT(8) = (TIME + VHIT(8))/2.           VHIT(8) = (TIME + VHIT(8))/2.
94           VHIT(9) = PATH - VHIT(9)           VHIT(9) = (PATH + VHIT(9))/2.
95    C          VHIT(9) = PATH - VHIT(9)
96  c$$$         VHIT(11) = (TRAPAR(7) + VHIT(11))/2.  c$$$         VHIT(11) = (TRAPAR(7) + VHIT(11))/2.
97  *  *
98  * Store the hit  * Store the hit
# Line 130  c$$$         VHIT(11) = (TRAPAR(7) + VHI Line 134  c$$$         VHIT(11) = (TRAPAR(7) + VHI
134                 VHIT(7) = DELOSS + VHIT(7)                 VHIT(7) = DELOSS + VHIT(7)
135              ENDIF              ENDIF
136              VHIT(8) = (TIME + VHIT(8))/2.              VHIT(8) = (TIME + VHIT(8))/2.
137              VHIT(9) = PATH - VHIT(9)              VHIT(9) = (PATH + VHIT(9))/2.
138    C            VHIT(9) = PATH - VHIT(9)
139  c$$$            VHIT(11) = (TRAPAR(7) + VHIT(11))/2.  c$$$            VHIT(11) = (TRAPAR(7) + VHIT(11))/2.
140  *  *
141  * Store the hit  * Store the hit
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.3
  ViewVC Help
Powered by ViewVC 1.1.23