DENTE2 (1000)    ROUTINE (9.8)