LROR1 (381)    ROUTINE (9.8)