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

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

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

revision 1.2 by mocchiut, Wed Dec 13 13:42:45 2006 UTC revision 1.3 by mocchiut, Fri Dec 15 14:41:54 2006 UTC
# Line 89  C Line 89  C
89  C  C
90            IF (NN.LE.0) NN = 1            IF (NN.LE.0) NN = 1
91            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
92  C          IF (NGIR.EQ.0) GOTO 5            IF (NGIR.EQ.0) GOTO 5
93            IF (NGIR.NE.1) GOTO 5  C          IF (NGIR.NE.1) GOTO 5
94            IPP = 0.            IPP = 0.
95            DO L = 1,NGIR            DO L = 1,NGIR
96              CALL LASTRISCIA(CLUS(M,J,L),IN)              CALL LASTRISCIA(CLUS(M,J,L),IN)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23