Variants Computational routines

Functions
real function	sceil (a)
	SCEIL

Detailed Description

This is the group of Variants Computational routines

Function Documentation

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
*