diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-12-10 03:06:35 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-12-10 03:06:35 +0000 |
| commit | 758888bfa2c99a52ae368c9bf29530dcc321ad3e (patch) | |
| tree | ae14bd8ea16a5a86611b8ecfd475be796db544c9 /TESTING/LIN/cdrvgex.f | |
| parent | 21fdf092e178844b59809e69f37c4b9d8ca84374 (diff) | |
| download | lapack-758888bfa2c99a52ae368c9bf29530dcc321ad3e.tar.gz lapack-758888bfa2c99a52ae368c9bf29530dcc321ad3e.tar.bz2 lapack-758888bfa2c99a52ae368c9bf29530dcc321ad3e.zip | |
Modif call from xLA_RPVGRW to xLA_GERPVGRW
Routien Name was modified before.
Diffstat (limited to 'TESTING/LIN/cdrvgex.f')
| -rw-r--r-- | TESTING/LIN/cdrvgex.f | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/TESTING/LIN/cdrvgex.f b/TESTING/LIN/cdrvgex.f index 5d69580f..96bd07d4 100644 --- a/TESTING/LIN/cdrvgex.f +++ b/TESTING/LIN/cdrvgex.f @@ -217,9 +217,9 @@ * .. * .. External Functions .. LOGICAL LSAME - REAL CLANGE, CLANTR, SGET06, SLAMCH, CLA_RPVGRW + REAL CLANGE, CLANTR, SGET06, SLAMCH, CLA_GERPVGRW EXTERNAL LSAME, CLANGE, CLANTR, SGET06, SLAMCH, - $ CLA_RPVGRW + $ CLA_GERPVGRW * .. * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, CERRVX, CGEEQU, CGESV, @@ -745,9 +745,11 @@ * IF ( INFO .GT. 0 .AND. INFO .LT. N+1 ) THEN - RPVGRW = CLA_RPVGRW(N, INFO, A, LDA, AFAC, LDA) + RPVGRW = CLA_GERPVGRW + $ (N, INFO, A, LDA, AFAC, LDA) ELSE - RPVGRW = CLA_RPVGRW(N, N, A, LDA, AFAC, LDA) + RPVGRW = CLA_GERPVGRW + $ (N, N, A, LDA, AFAC, LDA) ENDIF RESULT( 7 ) = ABS( RPVGRW-rpvgrw_svxx ) / |