/[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.4 by mocchiut, Fri Jul 20 08:24:54 2007 UTC revision 1.8 by mocchiut, Thu Jan 16 15:29:14 2014 UTC
# Line 99  C Line 99  C
99            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
100            IF (NGIR.EQ.0) GOTO 5            IF (NGIR.EQ.0) GOTO 5
101  C          IF (NGIR.NE.1) GOTO 5  C          IF (NGIR.NE.1) GOTO 5
102            IPP = 0.            IPP = 0
103            DO L = 1,NGIR            DO L = 1,NGIR
104              CALL LASTRISCIA(CLUS(M,J,L),IN)              CALL LASTRISCIA(CLUS(M,J,L),IN)
105              RIL(L) = FLOAT(ABS(NN - IN))              RIL(L) = FLOAT(ABS(NN - IN))
# Line 161  C Line 161  C
161          QQQQ = QQQ / FLOAT(NPIA)  ! Truncated mean .          QQQQ = QQQ / FLOAT(NPIA)  ! Truncated mean .
162        ENDIF        ENDIF
163  C  C
164    400 CONTINUE  c  400 CONTINUE
165          CONTINUE
166    
167        RETURN        RETURN
168        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23