GMRAPEM2 (853)    ROUTINE (9.8)