PRCSP1 (625)    ROUTINE (9.8)