z_isnan Function

public elemental function z_isnan(a) result(bool)

Arguments

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

Return Value logical


Called by

proc~~z_isnan~~CalledByGraph proc~z_isnan z_isnan interface~isnan isnan interface~isnan->proc~z_isnan

Source Code

  elemental function z_isnan(a) result(bool)
    complex(8),intent(in) :: a
    logical               :: bool
    bool = (a /= a) .OR. (a-1 == a)
  end function z_isnan