XPDIA1 (41)    ROUTINE (9.8)