diff options
Diffstat (limited to 'TESTING/LIN/ddrvsy_aa.f')
| -rw-r--r-- | TESTING/LIN/ddrvsy_aa.f | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/TESTING/LIN/ddrvsy_aa.f b/TESTING/LIN/ddrvsy_aa.f index c0562a5f..08a6bacf 100644 --- a/TESTING/LIN/ddrvsy_aa.f +++ b/TESTING/LIN/ddrvsy_aa.f @@ -9,8 +9,8 @@ * =========== * * SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, -* A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, -* NOUT ) +* A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, +* NOUT ) * * .. Scalar Arguments .. * LOGICAL TSTERR @@ -151,8 +151,8 @@ * * ===================================================================== SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, - $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, - $ RWORK, IWORK, NOUT ) + $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, + $ RWORK, IWORK, NOUT ) * * -- LAPACK test routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -186,9 +186,9 @@ CHARACTER DIST, FACT, TYPE, UPLO, XTYPE CHARACTER*3 MATPATH, PATH INTEGER I, I1, I2, IFACT, IMAT, IN, INFO, IOFF, IUPLO, - $ IZERO, J, K, K1, KL, KU, LDA, LWORK, MODE, N, + $ IZERO, J, K, KL, KU, LDA, LWORK, MODE, N, $ NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT - DOUBLE PRECISION AINVNM, ANORM, CNDNUM, RCOND, RCONDC + DOUBLE PRECISION ANORM, CNDNUM, RCONDC * .. * .. Local Arrays .. CHARACTER FACTS( NFACT ), UPLOS( 2 ) |