XQSMD1 (151)    ROUTINE (9.8)