LAPACK  3.10.1
LAPACK: Linear Algebra PACKage
sceil.f
Go to the documentation of this file.
1 C> \brief \b SCEIL
2 *
3 * =========== DOCUMENTATION ===========
4 *
5 * Online html documentation available at
6 * http://www.netlib.org/lapack/explore-html/
7 *
8 * Definition:
9 * ===========
10 *
11 * REAL FUNCTION SCEIL( A )
12 *
13 * .. Scalar Arguments ..
14 * REAL A
15 * ..
16 *
17 * =====================================================================
18 *
19 * .. Intrinsic Functions ..
20 * INTRINSIC INT
21 * ..
22 * .. Executable Statements ..*
23 *
24 * IF (A-INT(A).EQ.0) THEN
25 * SCEIL = A
26 * ELSE IF (A.GT.0) THEN
27 * SCEIL = INT(A)+1;
28 * ELSE
29 * SCEIL = INT(A)
30 * END IF
31 *
32 * RETURN
33 *
34 * END
35 * Purpose
36 * =======
37 *
38 C>\details \b Purpose:
39 C>\verbatim
40 C>\endverbatim
41 *
42 * Arguments:
43 * ==========
44 *
45 *
46 * Authors:
47 * ========
48 *
49 C> \author Univ. of Tennessee
50 C> \author Univ. of California Berkeley
51 C> \author Univ. of Colorado Denver
52 C> \author NAG Ltd.
53 *
54 C> \date December 2016
55 *
56 C> \ingroup variantsOTHERcomputational
57 *
58 * =====================================================================
59  REAL function sceil( a )
60 *
61 * -- LAPACK computational routine --
62 * -- LAPACK is a software package provided by Univ. of Tennessee, --
63 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
64 *
65 * .. Scalar Arguments ..*
66  REAL a
67 * ..
68 *
69 * =====================================================================
70 *
71 * .. Intrinsic Functions ..
72  INTRINSIC int
73 * ..
74 * .. Executable Statements ..*
75 *
76  IF (a-int(a).EQ.0) THEN
77  sceil = a
78  ELSE IF (a.GT.0) THEN
79  sceil = int(a)+1;
80  ELSE
81  sceil = int(a)
82  END IF
83 
84  RETURN
85 *
86  END
sceil
real function sceil(A)
SCEIL
Definition: sceil.f:60