GMRAOR3 (838)    ROUTINE (9.8)