SciFortran
Source Files
Modules
Procedures
Abstract Interfaces
Derived Types
isinfty
Function
5 statements
Source File
optimize_cgfit_routines.f90
CGFIT_ROUTINES
isinfty
Contents
Source Code
isinfty
public function isinfty(a) result(bool)
Arguments
Type
Intent
Optional
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