XUS1 (208)    ROUTINE (9.8)