LAPACK  3.9.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 *












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