Merge pull request #3828 from martin-frbg/lapack703-3

martin-frbg · web-flow · commit 3a38dad18ffa · 2022-11-19T22:28:48.000+01:00
Define type conversions explicitly (Reference-LAPACK PR703)
diff --git a/lapack-netlib/SRC/cggrqf.f b/lapack-netlib/SRC/cggrqf.f
@@ -275,7 +275,7 @@ SUBROUTINE CGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK,
 *     RQ factorization of M-by-N matrix A: A = R*Q
 *
       CALL CGERQF( M, N, A, LDA, TAUA, WORK, LWORK, INFO )
-      LOPT = REAL( WORK( 1 ) )
+      LOPT = INT( WORK( 1 ) )
 *
 *     Update B := B*Q**H
 *

Original file line number	Diff line number	Diff line change
`@@ -275,7 +275,7 @@ SUBROUTINE CGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK,`
`275`	`275`	`* RQ factorization of M-by-N matrix A: A = R*Q`
`276`	`276`	`*`
`277`	`277`	`CALL CGERQF( M, N, A, LDA, TAUA, WORK, LWORK, INFO )`
`278`		`- LOPT = REAL( WORK( 1 ) )`
	`278`	`+ LOPT = INT( WORK( 1 ) )`
`279`	`279`	`*`
`280`	`280`	`* Update B := BQ*H`
`281`	`281`	`*`