PROGRAM TEST2_OF_D1MACH
!     Revised 1999-04-12
!     The hexadecimal output does not work with the NAG compiler
!     nor on the Cray C90
      IMPLICIT NONE
      DOUBLE PRECISION D1MACH
      DOUBLE PRECISION RTEMP(5)
      INTEGER I
      DO 10 I = 1, 5
        RTEMP(I) = D1MACH(I)
  10  CONTINUE
      DO 20 I = 1, 5
        WRITE(6,*) RTEMP(I)
  20  CONTINUE
      WRITE(6,*)
      DO 30 I = 1, 5
        WRITE(6,100) RTEMP(I)
  30  CONTINUE
 100  FORMAT(Z32)
      END