real(4) function ULP(x)
! Computes ULP(x) for a real*4 x: 
! ULP(x) = "Unit in the Last Place".
! exponent(x): exponentul lui x in modelul de reprezentare.
real(4) x

ULP =2.0**(exponent(x) -24)
END
