/[PAMELA software]/calo/ground/LEVEL2/src/crcalol2.for
ViewVC logotype

Diff of /calo/ground/LEVEL2/src/crcalol2.for

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

revision 1.2 by mocchiut, Wed Dec 21 16:38:07 2005 UTC revision 1.4 by mocchiut, Thu Mar 9 15:55:30 2006 UTC
# Line 140  C     Line 140  C    
140        DISTX = 0.        DISTX = 0.
141        DISTY = 0.        DISTY = 0.
142  C  C
143    c      print *,'trigty = ',trigty
144    C      
145        DO I = 1,22        DO I = 1,22
146           DO J = 1,96           DO J = 1,96
147    c            print *,i,j,' x ',ESTRIP(1,I,J),' y ',ESTRIP(2,I,J)
148    c            print *,' i ',i,' j ',j,' y ',ESTRIP(2,I,J)
149              IF ( MOD(I,2).NE.0 ) THEN              IF ( MOD(I,2).NE.0 ) THEN
150                 IF ( ESTRIP(2,I,J).GT.EMIN ) THEN                 IF ( ESTRIP(2,I,J).GT.EMIN ) THEN
151                    DEXY(2,I,J) = ESTRIP(2,I,J)                    DEXY(2,I,J) = ESTRIP(2,I,J)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23