OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
sceil.f
Go to the documentation of this file.
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 December 2016
55*
56C> \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