Define type conversions explicitly (Reference-LAPACK PR 703)

2022-11-19 15:22:46 +01:00
parent e9b0f5a364
commit 4e60737c2d
18 changed files with 44 additions and 44 deletions
@@ -276,7 +276,7 @@
 *     QR factorization of N-by-M matrix A: A = Q*R
 *
      CALL ZGEQRF( N, M, A, LDA, TAUA, WORK, LWORK, INFO )
-      LOPT = DBLE( WORK( 1 ) )
+      LOPT = INT( WORK( 1 ) )
 *
 *     Update B := Q**H*B.
 *