diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2016-11-21 23:19:13 +0100 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-11-21 23:19:13 +0100 |
| commit | e7f8d116ca67359fa77ba3bb4a5e994ce443d451 (patch) | |
| tree | f1abf9c89927d2cbb7bbcb97ca2ae31c543d1922 | |
| parent | ed4e95e4d25f5f995db75445cbc2ba1db5736d23 (diff) | |
working on issue https://github.com/Reference-LAPACK/lapack/issues/85
| -rw-r--r-- | TESTING/LIN/cdrvls.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zdrvls.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/TESTING/LIN/cdrvls.f b/TESTING/LIN/cdrvls.f index de9890f4..ededde5a 100644 --- a/TESTING/LIN/cdrvls.f +++ b/TESTING/LIN/cdrvls.f @@ -489,7 +489,7 @@ CALL CLACPY( 'Full', NROWS, NRHS, $ COPYB, LDB, B, LDB ) END IF - SRNAMT = 'DGETSLS ' + SRNAMT = 'CGETSLS ' CALL CGETSLS( TRANS, M, N, NRHS, A, $ LDA, B, LDB, WORK, LWORK, INFO ) IF( INFO.NE.0 ) diff --git a/TESTING/LIN/zdrvls.f b/TESTING/LIN/zdrvls.f index 63fcc69e..fe63b540 100644 --- a/TESTING/LIN/zdrvls.f +++ b/TESTING/LIN/zdrvls.f @@ -487,7 +487,7 @@ CALL ZLACPY( 'Full', NROWS, NRHS, $ COPYB, LDB, B, LDB ) END IF - SRNAMT = 'DGETSLS ' + SRNAMT = 'ZGETSLS ' CALL ZGETSLS( TRANS, M, N, NRHS, A, $ LDA, B, LDB, WORK, LWORK, INFO ) IF( INFO.NE.0 ) |