/[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.3 by mocchiut, Thu Nov 29 14:20:33 2007 UTC revision 1.6 by mocchiut, Thu Jan 16 15:29:15 2014 UTC
# Line 71  C Line 71  C
71  C  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
# Line 101  C Line 101  C
101            NGIR = NCL(M,J) ! number of clusters in layer J of the M View            NGIR = NCL(M,J) ! number of clusters in layer J of the M View
102            IF (NGIR.EQ.0) GOTO 5            IF (NGIR.EQ.0) GOTO 5
103  C          IF (NGIR.NE.1) GOTO 5  C          IF (NGIR.NE.1) GOTO 5
104            IPP = 0.            IPP = 0
105            DO L = 1,NGIR            DO L = 1,NGIR
106              CALL LASTRISCIA(CLUS(M,J,L),IN)              CALL LASTRISCIA(CLUS(M,J,L),IN)
107              RIL(L) = FLOAT(ABS(NN - IN))              RIL(L) = FLOAT(ABS(NN - IN))
# Line 166  C Line 166  C
166          QQQQ = QQQ / FLOAT(NPIA)  ! Truncated mean .          QQQQ = QQQ / FLOAT(NPIA)  ! Truncated mean .
167        ENDIF        ENDIF
168  C  C
169    400 CONTINUE  c  400 CONTINUE
170          CONTINUE
171    
172        RETURN        RETURN
173        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.23