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

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

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

revision 1.1 by mocchiut, Fri May 19 13:15:50 2006 UTC revision 1.2 by mocchiut, Thu Nov 29 14:20:32 2007 UTC
# Line 63  C Line 63  C
63     66     CONTINUE     66     CONTINUE
64            IA = MSTR + 1            IA = MSTR + 1
65  C  C
66              NN = 0          
67              IF (MOD(J,2).EQ.NN) THEN
68                 IF (REVERSE.EQ.0) THEN
69                    SHIFT = +0.5
70                 ELSE
71                    SHIFT = -0.5
72                 ENDIF
73              ELSE
74                 IF (REVERSE.EQ.0) THEN
75                    SHIFT = -0.5
76                 ELSE
77                    SHIFT = +0.5
78                 ENDIF          
79              ENDIF          
80    C
81            CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)            CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)
82            IGIRO = IGIRO + 1            IGIRO = IGIRO + 1
83            IGI = IGIRO + NCHA / 2            IGI = IGIRO + NCHA / 2
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23