/[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.2 by mocchiut, Sat Jan 27 06:22:21 2007 UTC
# Line 50  C Line 50  C
50          IF (IBAR.EQ.0) IBAR = 1          IF (IBAR.EQ.0) IBAR = 1
51        ENDIF        ENDIF
52  C  C
53          IF ( IBAR.LE.0 ) IBAR = 1
54          IF ( IBAR.GT.96 ) IBAR = 96
55    C
56    500 CONTINUE    500 CONTINUE
57        RETURN        RETURN
58        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23