PRSRL1 (1039)    ROUTINE (9.8)