1C> \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*
38C>\details \b Purpose:
39C>\verbatim
40C>\endverbatim
41*
42*  Arguments:
43*  ==========
44*
45*
46*  Authors:
47*  ========
48*
49C> \author Univ. of Tennessee
50C> \author Univ. of California Berkeley
51C> \author Univ. of Colorado Denver
52C> \author NAG Ltd.
53*
54C> \date November 2011
55*
56C> \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
88