DGPTFM7 (909)    ROUTINE (9.8)