|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
REAL FUNCTION SCEIL( A )
* * -- LAPACK routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. * June 2008 * * .. Scalar Arguments ..* REAL A * .. * * ===================================================================== * * .. Intrinsic Functions .. INTRINSIC INT * .. * .. Executable Statements ..* * IF (A-INT(A).EQ.0) THEN SCEIL = A ELSE IF (A.GT.0) THEN SCEIL = INT(A)+1; ELSE SCEIL = INT(A) END IF RETURN * END |