floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Delete and replace with CEILING intrinsic (Reference-LAPACK PR 847)

This commit is contained in:
Martin Kroeker 2023-06-18 10:08:36 +02:00 committed by GitHub
parent 2dae4a34a9
commit f330f862f9
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f
View File

@ -1,86 +0,0 @@
C> \brief \b SCEIL
*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
* http://www.netlib.org/lapack/explore-html/
*
* Definition:
* ===========
*
* REAL FUNCTION SCEIL( A )
*
* .. 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
* Purpose
* =======
*
C>\details \b Purpose:
C>\verbatim
C>\endverbatim
*
* Arguments:
* ==========
*
*
* Authors:
* ========
*
C> \author Univ. of Tennessee
C> \author Univ. of California Berkeley
C> \author Univ. of Colorado Denver
C> \author NAG Ltd.
*
C> \date December 2016
*
C> \ingroup variantsOTHERcomputational
*
* =====================================================================
REAL FUNCTION SCEIL( A )
*
* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
* .. 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