LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ sceil()

real function sceil ( real  A)

SCEIL

Purpose:

 
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
December 2016

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 * December 2016
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 *
real function sceil(A)
SCEIL
Definition: sceil.f:60