IBCD1 (922)    ROUTINE (9.8)