GMRGUTL (1082)    ROUTINE (9.8)