#############################################################
# ATTEN.TCL: attenuate spectrum with a layered material 
#############################################################
# Variable definition for atten.tcl
#
set matsN   "2
             al_1100 1.0
             lead    1.0  \n";#	no. of materials,		\
                                material file, thickness (cm)   \
                                for each material
#
# Execute atten
set in "$matsN"
if [catch {exec $BIN/atten << $in} result] {
        puts stderr "ERROR in ATTEN:\n $result"}
#
