diff options
Diffstat (limited to 'TESTING/EIG/zchkhb2stg.f')
| -rw-r--r-- | TESTING/EIG/zchkhb2stg.f | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/TESTING/EIG/zchkhb2stg.f b/TESTING/EIG/zchkhb2stg.f index 0660b6fb..c9ed5531 100644 --- a/TESTING/EIG/zchkhb2stg.f +++ b/TESTING/EIG/zchkhb2stg.f @@ -1,7 +1,5 @@ *> \brief \b ZCHKHBSTG * -* @precisions fortran z -> c -* * =========== DOCUMENTATION =========== * * Online html documentation available at @@ -315,7 +313,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date November 2016 * *> \ingroup complex16_eig * @@ -325,10 +323,10 @@ $ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.4.0) -- +* -- LAPACK test routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* November 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, @@ -360,8 +358,8 @@ * .. Local Scalars .. LOGICAL BADNN, BADNNB INTEGER I, IINFO, IMODE, ITYPE, J, JC, JCOL, JR, JSIZE, - $ JTYPE, JWIDTH, K, KMAX, MTYPES, N, NERRS, - $ NMATS, NMAX, NTEST, NTESTT + $ JTYPE, JWIDTH, K, KMAX, LH, LW, MTYPES, N, + $ NERRS, NMATS, NMAX, NTEST, NTESTT DOUBLE PRECISION ANINV, ANORM, COND, OVFL, RTOVFL, RTUNFL, $ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL * .. |