isinfty Function

public function isinfty(a) result(bool)

Arguments

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

Return Value logical


Source Code

  function isinfty(a) result(bool)
    real(8) :: a
    logical :: bool
    bool = (a-1 == a)
  end function isinfty