PROGRAM TEST2_OF_R1MACH
!     Revised 1999-04-12
!     The hexadecimal output does not work with the NAG compiler
      IMPLICIT NONE
      REAL R1MACH
      REAL RTEMP(5)
      INTEGER I
      DO 10 I = 1, 5
        RTEMP(I) = R1MACH(I)
  10  CONTINUE
!     Floating point output
      DO 20 I = 1, 5
        WRITE(6,*) RTEMP(I)
  20  CONTINUE
      WRITE(*,*)
!     Hexadecimal output
      DO 30 I = 1, 5
        WRITE(6,100) RTEMP(I)
  30  CONTINUE
 100  FORMAT(Z32)
      END