;-----------------------------------------------------------------
; Autor: Andreas Reigber
; 14.4.1997
;------------------------------------------------------------------
; Rounds a value to a given precision
;
; Usage:
; res = round2(var,nr)
;    var = floating point number
;    nr  = desired number of decimal places
;------------------------------------------------------------------
; This software has been released under the terms of the GNU Public
; license. See http://www.gnu.org/copyleft/gpl.html for details.
;------------------------------------------------------------------
function round2,a,anz
	anz = 10^anz
	return,(a/a*round(a*anz))/anz
end