The TINY function returns the smallest positive number of a numeric data type that can be represented without loss of precision.
x is an INTENT(IN) scalar or array of type REAL.
The result is a scalar of the same type and kind as x. Its value is the smallest positive number in the data type of x.
Examplereal(kind(1.e0)) :: r10 real(kind(1.d0)) :: r100 real(kind(1.q0)) :: r1000 write(*,*) tiny(r10) ! writes 1.1754943E-38 write(*,*) tiny(r100) ! writes 2.2250738585072E-308 write(*,*) tiny(r1000) ! writes 3.362103143112093506262677817321752E-4932