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

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

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

revision 1.1 by mocchiut, Fri Aug 10 12:23:35 2007 UTC revision 1.2 by mocchiut, Tue Aug 4 13:59:09 2009 UTC
# Line 114  C     Line 114  C    
114              IF (RIL(LK).LE.10.AND.DBCLUS(J,LK).NE.0) THEN              IF (RIL(LK).LE.10.AND.DBCLUS(J,LK).NE.0) THEN
115                 YY(J) = DBCLUS(J,LK)                 YY(J) = DBCLUS(J,LK)
116              ENDIF              ENDIF
117   7       ENDIF  c 7       ENDIF
118            ENDIF
119        ENDDO        ENDDO
120  C      C    
121        CALL LFIT(XX,YY,2,0,A,B,VAR)        CALL LFIT(XX,YY,2,0,A,B,VAR)
# Line 128  C     Line 129  C    
129  C      C    
130        IF (QQQ.GT.30.AND.ISTOP.EQ.0) INDIC = 1        IF (QQQ.GT.30.AND.ISTOP.EQ.0) INDIC = 1
131  C      C    
132    999 RETURN  c  999 RETURN
133          RETURN
134        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23