d_isinfty Function

public elemental function d_isinfty(a) result(bool)

Arguments

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

Return Value logical


Called by

proc~~d_isinfty~~CalledByGraph proc~d_isinfty d_isinfty interface~isinfty isinfty interface~isinfty->proc~d_isinfty

Source Code

  elemental function d_isinfty(a) result(bool)
    real(8),intent(in) :: a
    logical            :: bool
    bool = (a-1 == a)
  end function d_isinfty