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

Define type conversions explicitly (Reference-LAPACK PR 703)

Browse Source
This commit is contained in:
Martin Kroeker
2022-11-19 15:22:46 +01:00
committed by GitHub
parent e9b0f5a364
commit 4e60737c2d
18 changed files with 44 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lapack-netlib/SRC/zhegvd.f
View File

@@ -360,9 +360,9 @@
CALL ZHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO )
CALL ZHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, LRWORK,
$ IWORK, LIWORK, INFO )
LOPT = MAX( DBLE( LOPT ), DBLE( WORK( 1 ) ) )
LROPT = MAX( DBLE( LROPT ), DBLE( RWORK( 1 ) ) )
LIOPT = MAX( DBLE( LIOPT ), DBLE( IWORK( 1 ) ) )
LOPT = INT( MAX( DBLE( LOPT ), DBLE( WORK( 1 ) ) ) )
LROPT = INT( MAX( DBLE( LROPT ), DBLE( RWORK( 1 ) ) ) )
LIOPT = INT( MAX( DBLE( LIOPT ), DBLE( IWORK( 1 ) ) ) )
*
IF( WANTZ .AND. INFO.EQ.0 ) THEN
*