phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #1099 from martin-frbg/reflow_lines

Browse Source 
Fix line reflow in some of the DEPRECATED sources
This commit is contained in:
langou
2025-01-20 01:02:07 -07:00
committed by GitHub
parent ba83427c03 3c209c6bdf
commit 447fd4e784
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SRC/DEPRECATED/cgelsx.f
+2 -2
View File
@@ -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
*
SRC/DEPRECATED/dgeqpf.f
+2 -2
View File
@@ -218,8 +218,8 @@
MA = MIN( ITEMP, M )
CALL DGEQR2( M, MA, A, LDA, TAU, WORK, INFO )
IF( MA.LT.N ) THEN
CALL DORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA, TAU,
$ A( 1, MA+1 ), LDA, WORK, INFO )
CALL DORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA,
$ TAU, A( 1, MA+1 ), LDA, WORK, INFO )
END IF
END IF
*
SRC/DEPRECATED/sgeqpf.f
+2 -2
View File
@@ -218,8 +218,8 @@
MA = MIN( ITEMP, M )
CALL SGEQR2( M, MA, A, LDA, TAU, WORK, INFO )
IF( MA.LT.N ) THEN
CALL SORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA, TAU,
$ A( 1, MA+1 ), LDA, WORK, INFO )
CALL SORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA,
$ TAU, A( 1, MA+1 ), LDA, WORK, INFO )
END IF
END IF
*