![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
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