Log entry time 02:13:47 on July 28, 2006

Entry number 175640

****************************
 Run Number: 1758
 End of Run Comment:
Run_type=Optics/Pointing,beam_raster=on,comment_text=OPTICS,fpp_door15=Open,fpp_door3=Open,fpp_door6=Open,fpp_door9=Open,leftarm_p=557.7,leftarm_theta=14.00,rightarm_p=0.361,rightarm_theta=28.30,target_radiator=out,target_type= optics 7 foil 
 

can't read "map(trigger-7,1)": no such element in array
    (parsing index for array "scal")
    invoked from within
"expr $scal($map(trigger-$t,$h)..."
    invoked from within
"set  trigger_real($t,$h)   [ expr $scal($map(trigger-$t,$h)..."
    ("foreach" body line 2)
    invoked from within
"foreach t $scalerinfo(triglist) { 
	    set  trigger_real($t,$h)   [ expr $scal($map(trigger-$t,$h))          ]
            if { $ps($t) != 0 } {
  	     set  trigger($t,$h)        [ expr $scal($map(trigger-$t,$h))/ ( $ps($t) )  ]
            } else {
             set  trigger($t,$h) 0
	    }
	}"
    ("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))          ]
            if { $ps($t) != 0 } {
  	     set  trigger($t,$h)        [ expr $scal($map(trigger-$t,$h))/ ( $ps($t) )  ]
            } else {
             set  trigger($t,$h) 0
	    }
	}
	set trigacc($h)  $scal($map(TS-accept,$h))
	set clock($h)    $scal($map(clock,$h)) 

# July 2006:  account for correlations.  
# Every T5 is a T1,T3. 

        set t5corr $trigger(5,$h)

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

	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 "

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