#############################################################
# CM2CM.TCL: convert a spectra from one distance to another 
#############################################################
#
set distance 100.0  ;# new distance in cm
#
set in "$distance \n"
if [catch {exec $BIN/cm2cm << $in} result] {
        puts stderr "ERROR in CM2CM:\n $result"}
#
