Log entry time 13:20:06 on February 8, 2006

Entry number 161867

****************************
 Run Number: 1520
 End of Run Comment:
Run_type=cosmics,beam_energy=1.099,beam_polarization=%,beam_raster=off,comment_text=Begin to check new timing,daq_mode=GeN,kin_name=,leftarm_p=1.095,leftarm_theta=6.0,rightarm_p=1.097,rightarm_theta=6.0,target_halfwaveplate=out,target_name=none,target_polarization=0,target_type=No target
 

divide by zero
    while executing
"expr $scal($map(trigger-$t,$h))/$ps($t)  "
    invoked from within
"set  trigger($t,$h)        [ expr $scal($map(trigger-$t,$h))/$ps($t)  ]..."
    ("foreach" body line 3)
    invoked from within
"foreach t $scalerinfo(triglist) { 
	    set  trigger_real($t,$h)   [ expr $scal($map(trigger-$t,$h))          ]
	    set  trigger($t,$h)        [ expr $scal($map(trigger-$t,$h))/$ps($t)  ]
	}"
    ("foreach" body line 4)
    invoked from within
"foreach h { 1 0 -1 } {
	set trigtot($h)      0
	set acc_trigtot($h) 0 
	foreach t $scalerinfo(triglist) { 
	    set  trigger_real($t,$h)   [ expr $scal($map(trigger-$t,$h))          ]
	    set  trigger($t,$h)        [ expr $scal($map(trigger-$t,$h))/$ps($t)  ]
	}
	set trigacc($h)  $scal($map(TS-accept,$h))
	set clock($h)    $scal($map(clock,$h)) 

# Jan 2004, account for correlations.  
# Every T5 is a T1,T3.  Every T7 is a T5,T6.
# But T3,T6 correl. ignored (would be hard)>

        set t5corr $trigger(5,$h)
        set t7corr $trigger(7,$h)

	foreach t $scalerinfo(triglist) { 
            set tcorr 0
            if { $t == 1 } {
               set tcorr $t5corr
	    } 
            if { $t == 3 } {
               set tcorr $t5corr
	    } 
            if { $t == 5 } {
               set tcorr $t7corr
	    } 
            if { $t == 6 } {
               set tcorr $t7corr
	    } 
	    set  trigtot($h) [ expr $trigtot($h) + $scal($map(trigger-$t,$h))/$ps($t) - $tcorr/$ps($t)  ]
 	} 

# Add the 30 Hz T9 but only for helicity == 0  
# (but not now -- Dec 2003 -- T9 is disabled
#       if { $h == 0 } {
#          set trigtot($h) [ expr $trigtot($h) + $clock($h)*30/105000 ] 
#       }

	set hvf(u1,$h)  $scal($map(bcm_u1,$h))
	set hvf(u3,$h)  $scal($map(bcm_u3,$h))
	set hvf(u10,$h) $scal($map(bcm_u10,$h))
	set hvf(d1,$h)  $scal($map(bcm_d1,$h))
	set hvf(d3,$h)  $scal($map(bcm_d3,$h))
	set hvf(d10,$h) $scal($map(bcm_d10,$h))
    }"
    (procedure "halla_scaler_process" line 107)
    invoked from within
"halla_scaler_process .mid.tex scalerinfo "

****************************