IBEMTF1 (931)    ROUTINE (9.8)