XPDIA2 (42)    ROUTINE (9.8)