LAPACK
3.5.0
LAPACK: Linear Algebra PACKage
Main Page
Files
File List
File Members
Functions/Subroutines
sceil.f File Reference
Go to the source code of this file.
Functions/Subroutines
real function
sceil
(A)
SCEIL
More...
Function/Subroutine Documentation
real function sceil
(
real
A
)
SCEIL
Purpose:
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
November 2011
Definition at line
60
of file
sceil.f
.
60
*
61
* -- LAPACK computational routine (version 3.1) --
62
* -- LAPACK is a software package provided by Univ. of Tennessee, --
63
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
64
* November 2011
65
*
66
* .. Scalar Arguments ..*
67
REAL
a
68
* ..
69
*
70
* =====================================================================
71
*
72
* .. Intrinsic Functions ..
73
INTRINSIC
int
74
* ..
75
* .. Executable Statements ..*
76
*
77
IF
(a-int(a).EQ.0)
THEN
78
sceil
= a
79
ELSE
IF
(a.GT.0)
THEN
80
sceil
= int(a)+1;
81
ELSE
82
sceil
= int(a)
83
END IF
84
85
RETURN
86
*
sceil
real function sceil(A)
SCEIL
Definition:
sceil.f:60
src
VARIANTS
qr
LL
sceil.f
Generated on Wed Jul 8 2015 02:57:12 for LAPACK by
1.8.9.1