Searched refs:zeps4 (Results 1 – 1 of 1) sorted by relevance
23 eps4 = epsilon(0._4), zeps4 = real(z'34000000', kind=4), & variable37 logical, parameter :: test_eps4 = eps4 == zeps4 .and. eps4 == deps4