/[PAMELA software]/DarthVader/ToFLevel2/src/tofl2com.for
ViewVC logotype

Diff of /DarthVader/ToFLevel2/src/tofl2com.for

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

revision 1.11 by mocchiut, Tue Aug 4 14:01:32 2009 UTC revision 1.12 by mocchiut, Tue Aug 11 12:58:24 2009 UTC
# Line 107  c     second index : 1... number of padd Line 107  c     second index : 1... number of padd
107  C--   DATA ZTOF/53.74,53.04,23.94,23.44,-23.49,-24.34/ !Sergio 9.05.2006  C--   DATA ZTOF/53.74,53.04,23.94,23.44,-23.49,-24.34/ !Sergio 9.05.2006
108        REAL tofarm12        REAL tofarm12
109        PARAMETER (tofarm12 = 29.70) ! from 53.39 to 23.69        PARAMETER (tofarm12 = 29.70) ! from 53.39 to 23.69
110        REAL tofarm23                REAL tofarm23        
111        PARAMETER (tofarm23 = 47.61)  ! from 23.69 to -23.92        PARAMETER (tofarm23 = 47.61)  ! from 23.69 to -23.92
112        REAL tofarm13        REAL tofarm13
113        PARAMETER (tofarm13 = 77.31)  ! from 53.39 to -23.92        PARAMETER (tofarm13 = 77.31)  ! from 53.39 to -23.92
# Line 958  C---- Line 958  C----
958           tdc_c(ch32b(i),hb32b(i))=tof32(right,i,itdc)           tdc_c(ch32b(i),hb32b(i))=tof32(right,i,itdc)
959                                               ENDIF                                               ENDIF
960        ENDDO        ENDDO
961                  
962    
963  C---------------------------------------------------------------  C---------------------------------------------------------------
964  C--- calculate track position in paddle using timing difference  C--- calculate track position in paddle using timing difference
# Line 1609  C         if ((betatof_a(i).gt.-1.5).and Line 1609  C         if ((betatof_a(i).gt.-1.5).and
1609  C            icount= icount+1  C            icount= icount+1
1610  C            if (i.le.4) w_i=1./(0.13**2.)  C            if (i.le.4) w_i=1./(0.13**2.)
1611  C            if ((i.ge.5).and.(i.le.8)) w_i=1./(0.16**2.)  C            if ((i.ge.5).and.(i.le.8)) w_i=1./(0.16**2.)
1612  C           if (i.ge.9) w_i=1./(0.25**2.)     ! to be checked  C         if (i.ge.9) w_i=1./(0.25**2.)     ! to be checked
1613  C            sxw=sxw + betatof_a(i)*w_i  C            sxw=sxw + betatof_a(i)*w_i
1614  C            sw =sw + w_i  C            sw =sw + w_i
1615  C         endif  C         endif
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.23