/[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.1.1.1 by cafagna, Thu Jul 11 16:02:01 2002 UTC revision 3.3 by cafagna, Tue Oct 2 17:58:32 2007 UTC
# Line 1  Line 1 
1  *  *
2  * $Id$  * $Id: gputof.F,v 3.2 2006/05/02 18:00:11 cafagna Exp $
3    *
4    * $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
9    * First GPAMELA release on CVS
10  *  *
 * $Log$  
11  *  *
12  *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
13  *CMZ :  2.00/00 25/02/2000  19.34.00  by  Francesco Cafagna  *CMZ :  2.00/00 25/02/2000  19.34.00  by  Francesco Cafagna
# Line 47  Line 53 
53        IF(IACT.EQ.0) THEN        IF(IACT.EQ.0) THEN
54           IF(IMEC.GT.0) THEN           IF(IMEC.GT.0) THEN
55              SAVE = .TRUE.              SAVE = .TRUE.
56  *ML:              VHIT(7) = DELOSS + VHIT(7)
 *            VHIT(7) = DELOSS + VHIT(7)  
             VHIT(11) = DELOSS + VHIT(11)  
 *END ML.  
57           ENDIF           ENDIF
58        ENDIF        ENDIF
59  *  *
# Line 64  Line 67 
67           ENDDO           ENDDO
68           IF(IMEC.GT.0) THEN           IF(IMEC.GT.0) THEN
69              SAVE = .TRUE.              SAVE = .TRUE.
70  *ML:              VHIT(7) = DELOSS
             VHIT(11) = DELOSS  
 *            VHIT(7) = DELOSS  
 *END ML.  
71           ENDIF           ENDIF
72           VHIT(8) = TIME           VHIT(8) = TIME
73           VHIT(9) = PATH           VHIT(9) = PATH
74           VHIT(10) = IPA           VHIT(10) = IPA
75  *ML:           VHIT(11) = TRAPAR(7)
 *         VHIT(11) = TRAPAR(7)  
          VHIT(7) = TRAPAR(7)  
 *END ML.  
76           IDHIT = -1           IDHIT = -1
77        ENDIF        ENDIF
78  *  *
# Line 91  Line 88 
88           ENDDO           ENDDO
89           IF(IMEC.GT.0) THEN           IF(IMEC.GT.0) THEN
90              SAVE = .TRUE.              SAVE = .TRUE.
91  *ML:              VHIT(7) = DELOSS +VHIT(7)
 *            VHIT(7) = DELOSS + VHIT(7)  
             VHIT(11) = DELOSS +VHIT(11)  
 *END ML.  
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  *ML:  C          VHIT(9) = PATH - VHIT(9)
96  *         VHIT(11) = (TRAPAR(7) + VHIT(11))/2.  c$$$         VHIT(11) = (TRAPAR(7) + VHIT(11))/2.
          VHIT(7) = (TRAPAR(7) + VHIT(7))/2.  
 *END ML.  
97  *  *
98  * Store the hit  * Store the hit
99  *  *
100           IF(IDHIT.EQ.-1) THEN           IF(IDHIT.EQ.-1) THEN
 *ML:  
 *            IF (SAVE) CALL GSAHIT (IS,ID,IT,NUMVOL,VHIT,IDHIT)  
 *            IF (IDHIT.EQ.0) THEN  
 *               WRITE(CHMAIL,10000) IS,ID,IT  
 *               CALL GMAIL(1,0)  
 *            ENDIF  
 *         ELSE  
 *            WRITE(CHMAIL,10100) IS,ID,IT  
 *            CALL GMAIL(1,0)  
 *         ENDIF  
101              IF (SAVE) THEN              IF (SAVE) THEN
102                 IF(IS.EQ.ISS4) THEN                 IF(IS.EQ.ISS4) THEN
103                    CALL GSCHIT(IS,ID,1,NUMVOL,VHIT,1,IDHIT)                    CALL GSCHIT(IS,ID,1,NUMVOL,VHIT,1,IDHIT)
# Line 131  Line 113 
113              WRITE(CHMAIL,10100) IS,ID,IT              WRITE(CHMAIL,10100) IS,ID,IT
114              CALL GMAIL(1,0)              CALL GMAIL(1,0)
115           ENDIF           ENDIF
 *     END ML.  
116        ENDIF        ENDIF
117  *  *
118  * Track is exiting the set up  * Track is exiting the set up
# Line 150  Line 131 
131              ENDDO              ENDDO
132              IF(IMEC.GT.0) THEN              IF(IMEC.GT.0) THEN
133                 SAVE = .TRUE.                 SAVE = .TRUE.
134  *ML:                 VHIT(7) = DELOSS + VHIT(7)
 *               VHIT(7) = DELOSS + VHIT(7)  
                VHIT(11) = DELOSS + VHIT(11)  
 *END ML.  
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  *ML:  C            VHIT(9) = PATH - VHIT(9)
139  *            VHIT(11) = (TRAPAR(7) + VHIT(11))/2.  c$$$            VHIT(11) = (TRAPAR(7) + VHIT(11))/2.
             VHIT(7) = (TRAPAR(7) + VHIT(7))/2.  
 *END ML.  
140  *  *
141  * Store the hit  * Store the hit
142  *  *
143              IF(IDHIT.EQ.-1) THEN              IF(IDHIT.EQ.-1) THEN
 *ML:  
 *            IF (SAVE) CALL GSAHIT (IS,ID,IT,NUMVOL,VHIT,IDHIT)  
 *            IF (IDHIT.EQ.0) THEN  
 *               WRITE(CHMAIL,10200) IS,ID,IT  
 *               CALL GMAIL(1,0)  
 *            ENDIF  
 *         ELSE  
 *            WRITE(CHMAIL,10300) IS,ID,IT  
 *            CALL GMAIL(1,0)  
 *         ENDIF  
144                 IF (SAVE) THEN                 IF (SAVE) THEN
145                    IF(IS.EQ.ISS4) THEN                    IF(IS.EQ.ISS4) THEN
146                       CALL GSCHIT(IS,ID,1,NUMVOL,VHIT,1,IDHIT)                       CALL GSCHIT(IS,ID,1,NUMVOL,VHIT,1,IDHIT)
# Line 190  Line 156 
156                 WRITE(CHMAIL,10300) IS,ID,IT                 WRITE(CHMAIL,10300) IS,ID,IT
157                 CALL GMAIL(1,0)                 CALL GMAIL(1,0)
158              ENDIF              ENDIF
 *END ML.  
 *               IF (SAVE) CALL GSAHIT (IS,ID,IT,NUMVOL,VHIT,IDHIT)  
 *               IF (IDHIT.EQ.0) THEN  
 *                  WRITE(CHMAIL,10200) IS,ID,IT  
 *                  CALL GMAIL(1,0)  
 *               ENDIF  
 *            ELSE  
 *               WRITE(CHMAIL,10300) IS,ID,IT  
 *               CALL GMAIL(1,0)  
 *            ENDIF  
159           ENDIF           ENDIF
160        ENDIF        ENDIF
161  10000 FORMAT(' GPUTOF error: HIT have not be stored for SET='  10000 FORMAT(' GPUTOF error: HIT have not be stored for SET='
Legend:
Removed from v.3.1.1.1  
changed lines
  Added in v.3.3
  ViewVC Help
Powered by ViewVC 1.1.23