XUSG1 (225)    ROUTINE (9.8)