is_zero_r128 Function

private elemental function is_zero_r128(scalar)

Arguments

Type IntentOptional Attributes Name
real(kind=real128), intent(in) :: scalar

Return Value logical


Contents

Source Code

is_zero_r128

Source Code

  logical elemental function is_zero_r128(scalar)
    real(real128), intent(in) :: scalar
    is_zero_r128 = exactly_equal(scalar, 0.0_real128)
  end function is_zero_r128