GMRADSP6 (807)    ROUTINE (9.8)