diff options
Diffstat (limited to 'TESTING')
| -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 ) |