GMRVGR3 (1091)    ROUTINE (9.8)