diff options
author | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2016-11-17 17:01:03 -0500 |
---|---|---|
committer | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2016-11-17 17:01:03 -0500 |
commit | 2abb5a57155ed189d2b2f267cf86f81814c303b7 (patch) | |
tree | 90473cf5a7d3875e1a81969f6430bf0e24feee7f /TESTING/LIN/ddrvsy_aa.f | |
parent | 9a72444a62069e351b3c0279f32abfcb5ab2d111 (diff) |
remove compiler warnings.
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 ) |