GMRAPEL0 (850)    ROUTINE (9.8)