LRAPM (511)    ROUTINE (9.8)