PRSRAU1 (1033)    ROUTINE (9.8)