tiny(x) returns the smallest positive (non zero) number in the model of the type of x.
tiny(x)
x
Fortran 95 and later
Inquiry function
result = tiny(x)
real
The return value is of the same type and kind as x
See huge for an example.