huge(x)
returns the largest number that is not an infinity in the model of the type of x
.
Fortran 95 and later
result = huge(x)
x
- Shall be of type real
or integer
.The return value is of the same type and kind as x
program test_huge_tiny
print *, huge(0), huge(0.0), huge(0.0d0)
print *, tiny(0.0), tiny(0.0d0)
end program test_huge_tiny