XQ93 (103)    ROUTINE (9.8)