DGRUG16 (643)    ROUTINE (9.8)