LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
sceil.f
Go to the documentation of this file.
00001 C> \brief \b SCEIL
00002 *
00003 *  =========== DOCUMENTATION ===========
00004 *
00005 * Online html documentation available at 
00006 *            http://www.netlib.org/lapack/explore-html/ 
00007 *
00008 *  Definition:
00009 *  ===========
00010 *
00011 *       REAL FUNCTION SCEIL( A )
00012 * 
00013 *       .. Scalar Arguments ..
00014 *       REAL A
00015 *       ..
00016 *  
00017 *    =====================================================================
00018 *  
00019 *       .. Intrinsic Functions ..
00020 *             INTRINSIC          INT
00021 *       ..
00022 *       .. Executable Statements ..*
00023 *        
00024 *       IF (A-INT(A).EQ.0) THEN
00025 *           SCEIL = A
00026 *       ELSE IF (A.GT.0) THEN
00027 *           SCEIL = INT(A)+1;
00028 *       ELSE
00029 *           SCEIL = INT(A)
00030 *       END IF
00031 * 
00032 *       RETURN
00033 *  
00034 *       END
00035 *  Purpose
00036 *  =======
00037 *
00038 C>\details \b Purpose:
00039 C>\verbatim
00040 C>\endverbatim
00041 *
00042 *  Arguments:
00043 *  ==========
00044 *
00045 *
00046 *  Authors:
00047 *  ========
00048 *
00049 C> \author Univ. of Tennessee 
00050 C> \author Univ. of California Berkeley 
00051 C> \author Univ. of Colorado Denver 
00052 C> \author NAG Ltd. 
00053 *
00054 C> \date November 2011
00055 *
00056 C> \ingroup variantsOTHERcomputational
00057 *
00058 *  =====================================================================
00059       REAL FUNCTION SCEIL( A )
00060 *
00061 *  -- LAPACK computational routine (version 3.1) --
00062 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
00063 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00064 *     November 2011
00065 *
00066 *     .. Scalar Arguments ..*
00067       REAL A
00068 *     ..
00069 *
00070 *  =====================================================================
00071 *
00072 *     .. Intrinsic Functions ..
00073               INTRINSIC          INT
00074 *     ..
00075 *     .. Executable Statements ..*
00076 *      
00077       IF (A-INT(A).EQ.0) THEN
00078           SCEIL = A
00079       ELSE IF (A.GT.0) THEN
00080           SCEIL = INT(A)+1;
00081       ELSE
00082           SCEIL = INT(A)
00083       END IF
00084 
00085       RETURN
00086 *
00087       END
 All Files Functions