#############################################################
# INT_SPECT.TCL: integrate the x-ray spectrum over energy 
#############################################################
if [catch {exec $BIN/int_spect } intResult] {
	puts stderr "ERROR in INT_SPECT:\n $intResult"
} else {
	puts $intResult
	set intResult [lindex $intResult 5]
}
#
