LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
real function sceil ( real  A)

SCEIL

Purpose: 

 
Author
Univ. of Tennessee 



Univ. of California Berkeley 



Univ. of Colorado Denver 



NAG Ltd. 


Date
November 2011 



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 *     November 2011


   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 *


sceil
real function sceil(A)
SCEIL 
Definition: sceil.f:60