d7/d99/sceil_8f_source.html

00001       REAL FUNCTION SCEIL( A )
00002 *
00003 *  -- LAPACK routine (version 3.1) --
00004 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
00005 *     June 2008
00006 *
00007 *     .. Scalar Arguments ..*
00008       REAL A
00009 *     ..
00010 *
00011 *  =====================================================================
00012 *
00013 *     .. Intrinsic Functions ..
00014           INTRINSIC          INT
00015 *     ..
00016 *     .. Executable Statements ..*
00017 *
00018       IF (A-INT(A).EQ.0) THEN
00019           SCEIL = A
00020       ELSE IF (A.GT.0) THEN
00021           SCEIL = INT(A)+1;
00022       ELSE
00023           SCEIL = INT(A)
00024       END IF
00025
00026       RETURN
00027 *
00028       END