include	"mctable.h"


# MCT_CLEAR - Clear all table values with given value. Do not reset any
# table counter.

procedure mct_clearr (table, value)

pointer	table			# table descriptor
real	value			# value

begin
	# Check pointer and magic number
	if (table == NULL)
	    call error (0, "mct_clear: Null table pointer")
	if (MCT_MAGIC (table) != MAGIC)
	    call error (0, "mct_clear: Bad magic number")

	# Check table type
	if (MCT_TYPE (table) != TY_REAL)
	    call error (0, "mct_clear: Wrong table type")

	# Move value to data buffer
	call amovkr (value, Memr[MCT_DATA (table)],
		     MCT_MAXROW (table) * MCT_MAXCOL (table))
end