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 *


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