diff options
Diffstat (limited to 'TESTING/MATGEN/zlatme.f')
| -rw-r--r-- | TESTING/MATGEN/zlatme.f | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/TESTING/MATGEN/zlatme.f b/TESTING/MATGEN/zlatme.f index f3345ce2..0063b06c 100644 --- a/TESTING/MATGEN/zlatme.f +++ b/TESTING/MATGEN/zlatme.f @@ -1,4 +1,4 @@ - SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, + SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, $ RSIGN, $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, $ A, @@ -9,7 +9,7 @@ * June 2010 * * .. Scalar Arguments .. - CHARACTER DIST, EI, RSIGN, SIM, UPPER + CHARACTER DIST, RSIGN, SIM, UPPER INTEGER INFO, KL, KU, LDA, MODE, MODES, N DOUBLE PRECISION ANORM, COND, CONDS COMPLEX*16 DMAX @@ -118,10 +118,6 @@ * equal to DMAX. * Not modified. * -* EI (input) CHARACTER*1 array, dimension ( N ) -* (ignored) -* Not modified. -* * RSIGN (input) CHARACTER*1 * If MODE is not 0, 6, or -6, and RSIGN='T', then the * elements of D, as computed according to MODE and COND, will |