#############################################################
# SR2CM.TCL: steradian to cm^2 conversion. 
#############################################################
#
set distance 80.0   ;# new distance in cm
#
set in "$distance \n"
if [catch {exec $BIN/sr2cm << $in} result] {
        puts stderr "ERROR in SR2CM:\n $result"}
#
