XQ83D (97)    ROUTINE (9.8)