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.

*
*  -- LAPACK computational routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. Scalar Arguments ..*
      REAL A
*     ..
*
*  =====================================================================
*
*     .. Intrinsic Functions ..
              INTRINSIC          int
*     ..
*     .. Executable Statements ..*
*
      IF (a-int(a).EQ.0) THEN
          sceil = a
      ELSE IF (a.GT.0) THEN
          sceil = int(a)+1;
      ELSE
          sceil = int(a)
      END IF
 
      RETURN
*

Here is the call graph for this function:

Here is the caller graph for this function: