GMRAFN4 (821)    ROUTINE (9.8)