GMRAFN5 (822)    ROUTINE (9.8)