SUBROUTINE	DEFGET(STRING,DEFAULT)
	CALL RUBBISH(STRING,DEFAULT)
	END
	SUBROUTINE RUBBISH(STRING,DEFAULT)
	CHARACTER *(*) STRING,DEFAULT
	CALL RUB2(STRING,DEFAULT)
	END