Rounding in decimal arithmetic

myround.tcl

package require math::decimal
math::decimal::setVariable extended 0

proc tcl::mathfunc::roundto {value sigfig dp} {
	math::decimal::setVariable precision $sigfig
	set d_val [math::decimal::fromstr $value]
	set d_rou [math::decimal::round_half_up $d_val 100]
	set d_rou [math::decimal::round_floor $d_rou $dp]
	
	math::decimal::tostr $d_rou
}