DGBTE1 (474)    ROUTINE (9.8)