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

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

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

revision 1.3 by mocchiut, Thu Apr 10 11:41:48 2008 UTC revision 1.4 by mocchiut, Mon Jul 27 13:47:44 2009 UTC
# Line 49  C Line 49  C
49              ENDDO              ENDDO
50           ENDIF           ENDIF
51  C  C
52    c         print *,' I ',I,' A ',RQT1
53   600     CONTINUE   600     CONTINUE
54  C  C
55           B = IBAR(2,I)           B = IBAR(2,I)
# Line 63  C Line 64  C
64           IF (B.GE.NCHA) B = NCHA - 1           IF (B.GE.NCHA) B = NCHA - 1
65           DO J = B-1,B+1           DO J = B-1,B+1
66              IF (DEXY(2,I,J).GE.EMIN) RQT1 = RQT1 + DEXY(2,I,J)              IF (DEXY(2,I,J).GE.EMIN) RQT1 = RQT1 + DEXY(2,I,J)
67    c            print *,' ==> J ',j,' dexy ',DEXY(2,I,J)
68           ENDDO           ENDDO
69  C      C    
70           IF ((B-2).GE.1) THEN           IF ((B-2).GE.1) THEN
# Line 79  C     Line 81  C    
81              ENDDO              ENDDO
82           ENDIF           ENDIF
83  C  C
84    c         print *,' I ',I,' B ',RQT1
85   700     CONTINUE   700     CONTINUE
86        ENDDO        ENDDO
87  C      C    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23