PROGRAM TEST_OF_I1MACH
IMPLICIT NONE
INTEGER, DIMENSION(16) :: ITEMP
INTEGER :: I
INTEGER, EXTERNAL :: I1MACH

DO I = 1, 16
   ITEMP(I) = I1MACH(I)
END DO
WRITE(6,10) ITEMP
10 FORMAT(I16)
END