LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
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 November 2011
55 *
56 C> \ingroup variantsOTHERcomputational
57 *
58 * =====================================================================
59  REAL FUNCTION sceil( A )
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 *
87  END