XUS4 (214)    ROUTINE (9.8)