GMRAPST1 (870)    ROUTINE (9.8)