1C> \brief \b SCEIL 2* 3* =========== DOCUMENTATION =========== 4* 5* Online html documentation available at 6* http://www.netlib.org/lapack/explore-html/ 7* 8* Definition: 9* =========== 10* 11* REAL FUNCTION SCEIL( A ) 12* 13* .. Scalar Arguments .. 14* REAL A 15* .. 16* 17* ===================================================================== 18* 19* .. Intrinsic Functions .. 20* INTRINSIC INT 21* .. 22* .. Executable Statements ..* 23* 24* IF (A-INT(A).EQ.0) THEN 25* SCEIL = A 26* ELSE IF (A.GT.0) THEN 27* SCEIL = INT(A)+1; 28* ELSE 29* SCEIL = INT(A) 30* END IF 31* 32* RETURN 33* 34* END 35* Purpose 36* ======= 37* 38C>\details \b Purpose: 39C>\verbatim 40C>\endverbatim 41* 42* Arguments: 43* ========== 44* 45* 46* Authors: 47* ======== 48* 49C> \author Univ. of Tennessee 50C> \author Univ. of California Berkeley 51C> \author Univ. of Colorado Denver 52C> \author NAG Ltd. 53* 54C> \date November 2011 55* 56C> \ingroup variantsOTHERcomputational 57* 58* ===================================================================== 59 REAL FUNCTION SCEIL( A ) 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* 87 END 88