From 2abb5a57155ed189d2b2f267cf86f81814c303b7 Mon Sep 17 00:00:00 2001 From: Ichitaro Yamazaki Date: Thu, 17 Nov 2016 17:01:03 -0500 Subject: [PATCH] remove compiler warnings. --- TESTING/LIN/cdrvhe_aa.f | 8 ++++---- TESTING/LIN/ddrvsy_aa.f | 12 ++++++------ TESTING/LIN/sdrvsy_aa.f | 12 ++++++------ TESTING/LIN/zchkhe_aa.f | 2 +- TESTING/LIN/zdrvhe_aa.f | 12 ++++++------ TESTING/LIN/zsyt01_aa.f | 4 ++-- 6 files changed, 25 insertions(+), 25 deletions(-) diff --git a/TESTING/LIN/cdrvhe_aa.f b/TESTING/LIN/cdrvhe_aa.f index 38ebca5..77f26dc 100644 --- a/TESTING/LIN/cdrvhe_aa.f +++ b/TESTING/LIN/cdrvhe_aa.f @@ -9,8 +9,8 @@ * =========== * * SUBROUTINE CDRVHE_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 @@ -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 - REAL AINVNM, ANORM, CNDNUM, RCOND, RCONDC + REAL ANORM, CNDNUM, RCONDC * .. * .. Local Arrays .. CHARACTER FACTS( NFACT ), UPLOS( 2 ) diff --git a/TESTING/LIN/ddrvsy_aa.f b/TESTING/LIN/ddrvsy_aa.f index c0562a5..08a6bac 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 ) diff --git a/TESTING/LIN/sdrvsy_aa.f b/TESTING/LIN/sdrvsy_aa.f index 3fef3c7..ffdccee 100644 --- a/TESTING/LIN/sdrvsy_aa.f +++ b/TESTING/LIN/sdrvsy_aa.f @@ -9,8 +9,8 @@ * =========== * * SUBROUTINE SDRVSY_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 @@ -149,8 +149,8 @@ * * ===================================================================== SUBROUTINE SDRVSY_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, -- @@ -184,9 +184,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 - REAL AINVNM, ANORM, CNDNUM, RCOND, RCONDC + REAL ANORM, CNDNUM, RCONDC * .. * .. Local Arrays .. CHARACTER FACTS( NFACT ), UPLOS( 2 ) diff --git a/TESTING/LIN/zchkhe_aa.f b/TESTING/LIN/zchkhe_aa.f index 1559c88..0a7e104 100644 --- a/TESTING/LIN/zchkhe_aa.f +++ b/TESTING/LIN/zchkhe_aa.f @@ -211,7 +211,7 @@ INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT - DOUBLE PRECISION ANORM, CNDNUM, RCOND, RCONDC + DOUBLE PRECISION ANORM, CNDNUM, RCONDC * .. * .. Local Arrays .. CHARACTER UPLOS( 2 ) diff --git a/TESTING/LIN/zdrvhe_aa.f b/TESTING/LIN/zdrvhe_aa.f index 3a43cf7..1322150 100644 --- a/TESTING/LIN/zdrvhe_aa.f +++ b/TESTING/LIN/zdrvhe_aa.f @@ -9,8 +9,8 @@ * =========== * * SUBROUTINE ZDRVHE_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 @@ -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 ) @@ -202,8 +202,8 @@ * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX, ZGET04, $ ZHESV_AA, ZHET01_AA, ZHETRF_AA, - $ ZHETRI2, ZLACPY, ZLAIPD, ZLARHS, ZLATB4, ZLATMS, - $ ZPOT02 + $ ZHETRI2, ZLACPY, ZLAIPD, ZLARHS, ZLATB4, + $ ZLATMS, ZPOT02 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zsyt01_aa.f b/TESTING/LIN/zsyt01_aa.f index 88d65e1..7660a57 100644 --- a/TESTING/LIN/zsyt01_aa.f +++ b/TESTING/LIN/zsyt01_aa.f @@ -145,8 +145,8 @@ * ===================================================================== * * .. Parameters .. - DOUBLE PRECISION ZERO - PARAMETER ( ZERO = 0.0D+0 ) + DOUBLE PRECISION ZERO, ONE + PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 ) COMPLEX*16 CZERO, CONE PARAMETER ( CZERO = 0.0E+0, CONE = 1.0E+0 ) * .. -- 2.7.4