Searched refs:zeps3 (Results 1 – 1 of 1) sorted by relevance
21 eps3 = epsilon(0._3), zeps3 = real(z'3c00', kind=3), deps3 = 7.8135e-3_3 variable36 logical, parameter :: test_eps3 = eps3 == zeps3 .and. eps3 == deps3