/[PAMELA software]/calo/flight/CaloDoubleShower/src/dubsc.for
ViewVC logotype

Diff of /calo/flight/CaloDoubleShower/src/dubsc.for

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

revision 1.1.1.1 by mocchiut, Fri Aug 10 12:23:35 2007 UTC revision 1.2 by mocchiut, Tue Aug 4 13:59:10 2009 UTC
# Line 84  C     Line 84  C    
84           DO LL = 1,NGIR           DO LL = 1,NGIR
85              IF (DBCLUS(1,LL).GT.0) RIL(LL) = DBCLUS(1,LL+NCHA/2)              IF (DBCLUS(1,LL).GT.0) RIL(LL) = DBCLUS(1,LL+NCHA/2)
86           ENDDO           ENDDO
87   7    ENDIF  c 7    ENDIF
88          ENDIF
89        LK = LVMAX(RIL,NCHA/2)        LK = LVMAX(RIL,NCHA/2)
90        QQQ = QQQ + DBCLUS(1,LK+NCHA/2)        QQQ = QQQ + DBCLUS(1,LK+NCHA/2)
91        RRR = DBCLUS(1,LK)        RRR = DBCLUS(1,LK)
# Line 104  C     Line 105  C    
105        IF (QQQ.GT.30.AND.ISTOP.EQ.0) INDIC = 1        IF (QQQ.GT.30.AND.ISTOP.EQ.0) INDIC = 1
106  C      C    
107  C      C    
108   400  CONTINUE  c 400  CONTINUE
109          CONTINUE
110                
111  C----------------------------------------------------------------------  C----------------------------------------------------------------------
112   999  RETURN  c999  RETURN
113          RETURN
114        END        END
115                
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23