d_isnan Function

public elemental function d_isnan(a) result(bool)

Arguments

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

Return Value logical


Called by

proc~~d_isnan~~CalledByGraph proc~d_isnan d_isnan interface~isnan isnan interface~isnan->proc~d_isnan

Source Code

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