DGPAR1 (966)    ROUTINE (9.8)