#############################################################
# DOSE.TCL: dose determination for a specific object 
#############################################################
# Variable definition for dose.tcl
#
set doseDef   "BR12-4cm.mGy
             1.0  1  \n";#	doseTable name,		\
                                mAs, printFlag 		\
                               	    (Flag=1 for labels) 
#
# Execute dose
set in "$doseDef"
if [catch {exec $BIN/dose << $in} doseResult] {
        puts stderr "ERROR in DOSE:\n $doseResult"
} else {
	puts $doseResult
}
	
#
