GMRAPED3 (847)    ROUTINE (9.8)