#############################################################
# HVL_EST.TCL: Half Value Layer estimator for beam quality
#############################################################
# Variable definition for hvl_est.tcl
#
set HVLin   "al_1100
	       0.0
             0         \n";#	material name,  \
                              HVL estimate    \
				      printFlag       \
                                (Flag=1 for labels)	 
#
# Execute hvl_est
set in "$HVLin"
if [catch {exec $BIN/hvl_est << $in} hvlResult] {
        puts stderr "ERROR in HVL_EST:\n $hvlResult"
} else {
	puts $hvlResult
}
#
