IBDF5 (1105)    ROUTINE (9.8)