pkg/utilities/nttools/tjoin/freetol.x


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

include	"tjoin.h"

# B.Simon	16-Apr-99	first code

# FREE_TOL -- Free the structure containing tolerance values

procedure free_tol (tol)

pointer	tol		# i: Vector of tolerance values
#--

begin
	call mfree (TOL_PTR(tol), TY_DOUBLE)
	call mfree (tol, TY_INT)
end