PROGRAM TEST_OF_D1MACH
IMPLICIT NONE
DOUBLE PRECISION :: D1MACH
DOUBLE PRECISION, DIMENSION(5) :: RTEMP
INTEGER, DIMENSION(10) :: ITEMP
INTEGER :: I
EQUIVALENCE (RTEMP, ITEMP)
DO I = 1, 5
   RTEMP(I) = D1MACH(I)
END DO
WRITE(6,10) ITEMP
10 FORMAT(2Z8)
END