GMRAFN3 (820)    ROUTINE (9.8)