/************************************************************************
* error -- the common that holds the return status			*
*	(shared by seterr and ratout only!)				*
************************************************************************/

common /error/ error
integer error			# (1) must be initialized to SUCCESS_RET