XLFMTH1 (25)    ROUTINE (9.8)