function rough,x

;	Returns rough integer value fkr an input floating-point argument.

return, fix(x+(x gt 0)-0.5)
	end