XLFDT2 (16)    ROUTINE (9.8)