LAPACK  3.10.1
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 59 of file sceil.f.

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