Update LAPACK/LAPACKE to Reference-LAPACK 3.10.1

This commit is contained in:
martin-frbg
2022-04-21 20:39:29 +02:00
parent 18b19d135b
commit 329cdc31b3
4696 changed files with 27384 additions and 17931 deletions
+2 -5
View File
@@ -258,8 +258,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date June 2016
*
*> \ingroup complexOTHEReigen
*
* =====================================================================
@@ -267,10 +265,9 @@
$ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK,
$ IWORK, IFAIL, INFO )
*
* -- LAPACK driver routine (version 3.7.0) --
* -- LAPACK driver routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* June 2016
*
* .. Scalar Arguments ..
CHARACTER JOBZ, RANGE, UPLO
@@ -382,7 +379,7 @@
$ M = 0
END IF
IF( M.EQ.1 ) THEN
W( 1 ) = CTMP1
W( 1 ) = REAL( CTMP1 )
IF( WANTZ )
$ Z( 1, 1 ) = CONE
END IF