diff options
| author | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
| commit | ff981f106bde4ce6a74aa4f4a572c943f5a395b2 (patch) | |
| tree | a386cad907bcaefd6893535c31d67ec9468e693e /TESTING/LIN/zdrvab.f | |
| parent | e58b61578b55644f6391f3333262b72c1dc88437 (diff) | |
| download | lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.gz lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.bz2 lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.zip | |
Diffstat (limited to 'TESTING/LIN/zdrvab.f')
| -rw-r--r-- | TESTING/LIN/zdrvab.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/TESTING/LIN/zdrvab.f b/TESTING/LIN/zdrvab.f index ddb0aef4..07c31808 100644 --- a/TESTING/LIN/zdrvab.f +++ b/TESTING/LIN/zdrvab.f @@ -113,7 +113,7 @@ * .. * .. Scalars in Common .. LOGICAL LERR, OK - CHARACTER*6 SRNAMT + CHARACTER*32 SRNAMT INTEGER INFOT, NUNIT * .. * .. Common blocks .. @@ -223,7 +223,7 @@ CALL ZLACPY( 'Full', M, N, A, LDA, AFAC, LDA ) * CALL ZCGESV( N, NRHS, A, LDA, IWORK, B, LDA, X, LDA, - $ WORK, SWORK, ITER, INFO) + $ WORK, SWORK, RWORK, ITER, INFO) * IF (ITER.LT.0) THEN CALL ZLACPY( 'Full', M, N, AFAC, LDA, A, LDA ) |