Define type conversions explicitly (Reference-LAPACK PR 703)

2022-11-19 15:04:30 +01:00
parent 35295912a3
commit 08bc43c73d
16 changed files with 40 additions and 34 deletions
--- a/lapack-netlib/SRC/dggrqf.f
+++ b/lapack-netlib/SRC/dggrqf.f
@@ -275,7 +275,7 @@
 *     RQ factorization of M-by-N matrix A: A = R*Q
 *
      CALL DGERQF( M, N, A, LDA, TAUA, WORK, LWORK, INFO )
-      LOPT = WORK( 1 )
+      LOPT = INT( WORK( 1 ) )
 *
 *     Update B := B*Q**T
 *