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

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

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

revision 1.5 by mocchiut, Mon Sep 29 12:40:43 2008 UTC revision 1.6 by mocchiut, Mon Sep 28 17:06:55 2009 UTC
# Line 405  C       Line 405  C      
405        nrec=0        nrec=0
406        DO i=nsmax-width,nsmax+width        DO i=nsmax-width,nsmax+width
407  C  C
408           IF(i.GT.0.AND.i.LT.97.AND.DEXY(view,nplane,i).GT.0.0) THEN           IF(i.GT.0.AND.i.LT.97) THEN
409  C                          IF(DEXY(view,nplane,i).GT.0.0) THEN
410              nrec=nrec+1  C    
411  C                 nrec=nrec+1
412              CALL STRIP2POS(view,nplane,i,xypos,zpos)  C    
413  C                             CALL STRIP2POS(view,nplane,i,xypos,zpos)
414              s1=s2  C    
415              s2=s2+DEXY(view,nplane,i)                 s1=s2
416              mx=(mx*s1+xypos*DEXY(view,nplane,i))/s2                 s2=s2+DEXY(view,nplane,i)
417              mx2=(mx2*s1+(xypos**2)*DEXY(view,nplane,i))/s2                 mx=(mx*s1+xypos*DEXY(view,nplane,i))/s2
418  C                 mx2=(mx2*s1+(xypos**2)*DEXY(view,nplane,i))/s2
419    C    
420                ENDIF
421           ENDIF           ENDIF
422  C          C        
423        ENDDO        ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.23