/[PAMELA software]/DarthVader/CalorimeterLevel2/src/elio.for
ViewVC logotype

Diff of /DarthVader/CalorimeterLevel2/src/elio.for

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

revision 1.5 by mocchiut, Thu Nov 29 14:20:32 2007 UTC revision 1.7 by mocchiut, Tue Aug 4 14:01:19 2009 UTC
# Line 69  C Line 69  C
69          DO J = 1,NPLA          DO J = 1,NPLA
70             IF (MOD(J,2).EQ.0) THEN             IF (MOD(J,2).EQ.0) THEN
71                IF (REVERSE.EQ.0) THEN                IF (REVERSE.EQ.0) THEN
                  SHIFT = +0.5  
               ELSE  
72                   SHIFT = -0.5                   SHIFT = -0.5
73                  ELSE
74                     SHIFT = +0.5
75                ENDIF                ENDIF
76             ELSE             ELSE
77                IF (REVERSE.EQ.0) THEN                IF (REVERSE.EQ.0) THEN
                  SHIFT = -0.5  
               ELSE  
78                   SHIFT = +0.5                   SHIFT = +0.5
79                  ELSE
80                     SHIFT = -0.5
81                ENDIF                ENDIF
82             ENDIF             ENDIF
83  C  C
# Line 161  C Line 161  C
161          QQQQ = QQQ / FLOAT(NPIA)  ! Truncated mean .          QQQQ = QQQ / FLOAT(NPIA)  ! Truncated mean .
162        ENDIF        ENDIF
163  C  C
164    400 CONTINUE  c  400 CONTINUE
165          CONTINUE
166    
167        RETURN        RETURN
168        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23