#############################################################
# ATTEN_COEFF.TCL: generate attenuation coefficient tables  
#############################################################
# Variable definition for atten_coeff.tcl
#
set erange  "10 50 2      \n";#	energy min, max, and incr. in keV
set matsN   "2
             al_1100 1.0
             lead    1.0  \n";#	no. of materials,		\
                                material file, thickness (cm)   \
                                for each material
# Execute atten_coeff
set in "$erange $matsN"
if [catch {exec $BIN/atten_coeff << $in} result] {
        puts stderr "ERROR in ATTEN_COEFF:\n $result"}
