IBDF15A (1115)    ROUTINE (9.8)