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

Diff of /DarthVader/CalorimeterLevel2/src/lastriscia.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.3 by mocchiut, Fri Aug 10 12:31:42 2007 UTC
# Line 7  C Line 7  C
7        INCLUDE 'INTEST.TXT'        INCLUDE 'INTEST.TXT'
8  C  C
9        COMMON / SHIFT / SHIFT        COMMON / SHIFT / SHIFT
10          SAVE / SHIFT /
11  C  C
12  C EM: IF TRACK GO OUT OF THE CALORIMETER GIVE BACK AS STRIP VALUE -1 TO FLAG THE SITUATION  C EM: IF TRACK GO OUT OF THE CALORIMETER GIVE BACK AS STRIP VALUE -1 TO FLAG THE SITUATION
13  C  C
# Line 50  C Line 51  C
51          IF (IBAR.EQ.0) IBAR = 1          IF (IBAR.EQ.0) IBAR = 1
52        ENDIF        ENDIF
53  C  C
54          IF ( IBAR.LE.0 ) IBAR = 1
55          IF ( IBAR.GT.96 ) IBAR = 96
56    C
57    500 CONTINUE    500 CONTINUE
58        RETURN        RETURN
59        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23