Semantics: Implement TINY (Compile Time)
As per the standard defined by J3/18-007r1 (F2018 Interpretation Document):
Practically this shows up in tandem with error handling methods like (from dftatom
):
if (a < 0) then
call stop_error("mesh_exp_deriv: a > 0 required")
else if (abs(a - 1) < tiny(1._dp)) then
call stop_error("mesh_exp_deriv: a == 1 not implemented")
else
....
Note that the relevant standard can be found here: 18-007r1.pdf