diff options
Diffstat (limited to 'math/lapack/files/patch-SRC_DEPRECATED_cgelsx.f')
| -rw-r--r-- | math/lapack/files/patch-SRC_DEPRECATED_cgelsx.f | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_cgelsx.f b/math/lapack/files/patch-SRC_DEPRECATED_cgelsx.f new file mode 100644 index 000000000000..512fc7cc5349 --- /dev/null +++ b/math/lapack/files/patch-SRC_DEPRECATED_cgelsx.f @@ -0,0 +1,13 @@ +--- SRC/DEPRECATED/cgelsx.f.orig 2024-12-03 11:39:11 UTC ++++ SRC/DEPRECATED/cgelsx.f +@@ -364,8 +364,8 @@ + * + * B(1:M,1:NRHS) := Q**H * B(1:M,1:NRHS) + * +- CALL CUNM2R( 'Left', 'Conjugate transpose', M, NRHS, MN, A, LDA, +- $ WORK( 1 ), B, LDB, WORK( 2*MN+1 ), INFO ) ++ CALL CUNM2R( 'Left', 'Conjugate transpose', M, NRHS, MN, A, ++ $ LDA, WORK( 1 ), B, LDB, WORK( 2*MN+1 ), INFO ) + * + * workspace NRHS + * |