exactly_equal_c128 Function

private elemental function exactly_equal_c128(a, b)

Arguments

Type IntentOptional Attributes Name
complex(kind=real128), intent(in) :: a
complex(kind=real128), intent(in) :: b

Return Value logical


Contents

Source Code

exactly_equal_c128

Source Code

  logical elemental function exactly_equal_c128(a, b)
    complex(real128), intent(in) :: a, b
    exactly_equal_c128 = exactly_equal(real(a), real(b)) .and. exactly_equal(aimag(a), aimag(b))
  end function exactly_equal_c128