PROGRAM pyorista
  IMPLICIT NONE
  REAL, DIMENSION(6) :: numerot = &
      (/ 1.4, 1.5, 1.6, -1.4, -1.5, -1.6 /)
  INTEGER :: i
  WRITE (*,'(A)') '         F   C   I   N'
  DO i = 1, 6
    WRITE (*,'(F6.2, 4i4)') numerot(i), &
        FLOOR(numerot(i)), CEILING(numerot(i)), &
        INT(numerot(i)), NINT(numerot(i))
  END DO
END PROGRAM pyorista