GMRAPEH0 (849)    ROUTINE (9.8)