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

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

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

revision 1.2 by mocchiut, Fri Jul 20 08:24:55 2007 UTC revision 1.3 by mocchiut, Thu Nov 29 14:20:33 2007 UTC
# Line 68  C Line 68  C
68          RPIANO(M) = 0.          RPIANO(M) = 0.
69  C  C
70          DO J = 1,NPLA          DO J = 1,NPLA
71    C
72             IF (MOD(J,2).EQ.0) THEN             IF (MOD(J,2).EQ.0) THEN
73                IF (REVERSE.EQ.0) THEN                IF (REVERSE.EQ.0) THEN
                  SHIFT = -0.5  
               ELSE  
74                   SHIFT = +0.5                   SHIFT = +0.5
75                  ELSE
76                     SHIFT = -0.5
77                ENDIF                ENDIF
78             ELSE             ELSE
79                IF (REVERSE.EQ.0) THEN                IF (REVERSE.EQ.0) THEN
                  SHIFT = +0.5  
               ELSE  
80                   SHIFT = -0.5                   SHIFT = -0.5
81                  ELSE
82                     SHIFT = +0.5
83                ENDIF                ENDIF
84             ENDIF             ENDIF
85  C  C
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23