Searched refs:eps4 (Results 1 – 2 of 2) sorted by relevance
23 eps4 = epsilon(0._4), zeps4 = real(z'34000000', kind=4), & variable37 logical, parameter :: test_eps4 = eps4 == zeps4 .and. eps4 == deps4
8 real(4), parameter :: eps4 = 0.000001_4 variable134 - 1.10453617572784423828125_4).LE.(eps4)170 - 1.1045361017187260710414875575224868953227996826171875_8).LE.(eps4)