#############################################################
# mR.tcl: Exposure calucation. 
#############################################################
if [catch {exec $BIN/mR} mRresult] {
        puts stderr "ERROR in mR:\n $mRresult"
} else {
	puts $mRresult
}
#
