Log entry time 20:28:07 on October 30, 2004

Entry number 135437

****************************
 Run Number: 4226
 End of Run Comment:
Run_type=DVCS,beam_energy=5.77,beam_halfwaveplate=in,beam_raster=off,comment_text=DVCS production kinematics3, 2.5uA, no raster,daq_mode=HRS+DVCS,dvcsarm_distance=1.1,dvcsarm_theta=14.8,kin_name=,leftarm_p=2.35,leftarm_theta=23.91,rightarm_p=0.6,rightarm_theta=70,target_type=LH2 15cm
 

grab failed: another application has grab
    while executing
"grab $w"
    (procedure "tk_dialog" line 64)
    invoked from within
"tk_dialog .halla_message "$argv0: $message" "$routine: $message" $type  -1 OK"
    invoked from within
"if { $tkmode } { 
	bell
	option add *Dialog*background     red startupFile
	option add *Dialog.msg.wrapLength 0   startupFile
	tk_dialog .halla_message "$argv0: $message" "$routine: $message" $type  -1 OK
    } else {
	puts "\a\a\a\a$argv0: $routine: $message" 
    }"
    (procedure "halla_message" line 6)
    invoked from within
"halla_message "halla_scaler_process" "total number of triggers for helicity $h less than 1 ($trigtot($h))""
    invoked from within
"if { $trigtot($h) > 0 } { 
	    set live($h) [ expr 1.0*$trigacc($h)/$trigtot($h) ] 
	} else {
	    set live($h) 1.0 
            halla_message "halla_scaler_process" "total number of triggers for helicity $h less than 1 ($trigtot($h))"
	}"
    ("foreach" body line 14)
    invoked from within
"foreach h { 0 1 -1 } { 
	set time($h)     [ expr $clock($h) / 1024. ]
	set mins($h)     [ expr $time($h)  / 60. ]
	
	if { $clock($h) > 0 } {
	    set time($h)     [ expr $clock($h) / 1024. ]
	    set mins($h)     [ expr $time($h)  / 60. ]
	} else {
	    set clock($h)    1
	    set time($h)     1.0     ; # for now 
	    set mins($h)     0.01667 
	}
	
	if { $trigtot($h) > 0 } { 
	    set live($h) [ expr 1.0*$trigacc($h)/$trigtot($h) ] 
	} else {
	    set live($h) 1.0 
            halla_message "halla_scaler_process" "total number of triggers for helicity $h less than 1 ($trigtot($h))"
	}
	set dead($h) [ expr 1.0 - $live($h) ]

	foreach t [ lsort [ array names trigger "*,$h" ] ] {
	    set trigrate($t)      [ expr $trigger($t)/$time($h) ] 
	    set trigrate_real($t) [ expr $trigger_real($t)/$time($h) ] 
	}
    }"
    (procedure "halla_scaler_process" line 141)
    invoked from within
"halla_scaler_process .mid.tex scalerinfo "

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