See post on forum on Thu Mar 31, 2016:

	http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=13&t=4937

Thanks to Eugene Chereshnev (Intel)

diff --git a/SRC/cla_gbamv.f b/SRC/cla_gbamv.f
index b74156d..03e7934 100644 (file)
--- a/SRC/cla_gbamv.f
+++ b/SRC/cla_gbamv.f
@@ -107,7 +107,7 @@
 *>
 *> \param[in] AB
 *> \verbatim
-*>          AB is REAL array, dimension (LDAB,n)
+*>          AB is COMPLEX array, dimension (LDAB,n)
 *>           Before entry, the leading m by n part of the array AB must
 *>           contain the matrix of coefficients.
 *>           Unchanged on exit.
@@ -124,7 +124,7 @@
 *>
 *> \param[in] X
 *> \verbatim
-*>          X is REAL array, dimension
+*>          X is COMPLEX array, dimension
 *>           ( 1 + ( n - 1 )*abs( INCX ) ) when TRANS = 'N' or 'n'
 *>           and at least
 *>           ( 1 + ( m - 1 )*abs( INCX ) ) otherwise.

diff --git a/SRC/cla_herpvgrw.f b/SRC/cla_herpvgrw.f
index dc05aed..a9ae848 100644 (file)
--- a/SRC/cla_herpvgrw.f
+++ b/SRC/cla_herpvgrw.f
@@ -104,7 +104,7 @@
 *>
 *> \param[in] WORK
 *> \verbatim
-*>          WORK is COMPLEX array, dimension (2*N)
+*>          WORK is REAL array, dimension (2*N)
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/cla_lin_berr.f b/SRC/cla_lin_berr.f
index 94db814..1074217 100644 (file)
--- a/SRC/cla_lin_berr.f
+++ b/SRC/cla_lin_berr.f
@@ -67,7 +67,7 @@
 *>
 *> \param[in] RES
 *> \verbatim
-*>          RES is REAL array, dimension (N,NRHS)
+*>          RES is COMPLEX array, dimension (N,NRHS)
 *>     The residual matrix, i.e., the matrix R in the relative backward
 *>     error formula above.
 *> \endverbatim
@@ -82,7 +82,7 @@
 *>     
 *> \param[out] BERR
 *> \verbatim
-*>          BERR is COMPLEX array, dimension (NRHS)
+*>          BERR is REAL array, dimension (NRHS)
 *>     The componentwise relative backward error from the formula above.
 *> \endverbatim
 *

diff --git a/SRC/cla_porpvgrw.f b/SRC/cla_porpvgrw.f
index 607752a..a190911 100644 (file)
--- a/SRC/cla_porpvgrw.f
+++ b/SRC/cla_porpvgrw.f
@@ -87,7 +87,7 @@
 *>
 *> \param[in] WORK
 *> \verbatim
-*>          WORK is COMPLEX array, dimension (2*N)
+*>          WORK is REAL array, dimension (2*N)
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/clarcm.f b/SRC/clarcm.f
index 30a9204..7f26253 100644 (file)
--- a/SRC/clarcm.f
+++ b/SRC/clarcm.f
@@ -72,7 +72,7 @@
 *>
 *> \param[in] B
 *> \verbatim
-*>          B is REAL array, dimension (LDB, N)
+*>          B is COMPLEX array, dimension (LDB, N)
 *>          B contains the M by N matrix B.
 *> \endverbatim
 *>

diff --git a/SRC/clatdf.f b/SRC/clatdf.f
index 441cb31..fa20f8d 100644 (file)
--- a/SRC/clatdf.f
+++ b/SRC/clatdf.f
@@ -70,7 +70,7 @@
 *>
 *> \param[in] Z
 *> \verbatim
-*>          Z is REAL array, dimension (LDZ, N)
+*>          Z is COMPLEX array, dimension (LDZ, N)
 *>          On entry, the LU part of the factorization of the n-by-n
 *>          matrix Z computed by CGETC2:  Z = P * L * U * Q
 *> \endverbatim
@@ -83,7 +83,7 @@
 *>
 *> \param[in,out] RHS
 *> \verbatim
-*>          RHS is REAL array, dimension (N).
+*>          RHS is COMPLEX array, dimension (N).
 *>          On entry, RHS contains contributions from other subsystems.
 *>          On exit, RHS contains the solution of the subsystem with
 *>          entries according to the value of IJOB (see above).

diff --git a/SRC/cpttrs.f b/SRC/cpttrs.f
index 4214dd1..70e1fbc 100644 (file)
--- a/SRC/cpttrs.f
+++ b/SRC/cpttrs.f
@@ -87,7 +87,7 @@
 *>
 *> \param[in,out] B
 *> \verbatim
-*>          B is REAL array, dimension (LDB,NRHS)
+*>          B is COMPLEX array, dimension (LDB,NRHS)
 *>          On entry, the right hand side vectors B for the system of
 *>          linear equations.
 *>          On exit, the solution vectors, X.

diff --git a/SRC/cptts2.f b/SRC/cptts2.f
index 379ca49..ecd005b 100644 (file)
--- a/SRC/cptts2.f
+++ b/SRC/cptts2.f
@@ -86,7 +86,7 @@
 *>
 *> \param[in,out] B
 *> \verbatim
-*>          B is REAL array, dimension (LDB,NRHS)
+*>          B is COMPLEX array, dimension (LDB,NRHS)
 *>          On entry, the right hand side vectors B for the system of
 *>          linear equations.
 *>          On exit, the solution vectors, X.

diff --git a/SRC/ctrttf.f b/SRC/ctrttf.f
index b1086b6..6606ab7 100644 (file)
--- a/SRC/ctrttf.f
+++ b/SRC/ctrttf.f
@@ -81,7 +81,7 @@
 *>
 *> \param[out] ARF
 *> \verbatim
-*>          ARF is COMPLEX*16 array, dimension ( N*(N+1)/2 ),
+*>          ARF is COMPLEX array, dimension ( N*(N+1)/2 ),
 *>          On exit, the upper or lower triangular matrix A stored in
 *>          RFP format. For a further discussion see Notes below.
 *> \endverbatim

diff --git a/SRC/dlasq4.f b/SRC/dlasq4.f
index 97d9bde..cb54029 100644 (file)
--- a/SRC/dlasq4.f
+++ b/SRC/dlasq4.f
@@ -122,7 +122,7 @@
 *>
 *> \param[in,out] G
 *> \verbatim
-*>          G is REAL
+*>          G is DOUBLE PRECISION
 *>        G is passed as an argument in order to save its value between
 *>        calls to DLASQ4.
 *> \endverbatim

diff --git a/SRC/dsytrs2.f b/SRC/dsytrs2.f
index 09a87fe..fe40ec2 100644 (file)
--- a/SRC/dsytrs2.f
+++ b/SRC/dsytrs2.f
@@ -106,7 +106,7 @@
 *>
 *> \param[out] WORK
 *> \verbatim
-*>          WORK is REAL array, dimension (N)
+*>          WORK is DOUBLE PRECISION array, dimension (N)
 *> \endverbatim
 *>
 *> \param[out] INFO

diff --git a/SRC/zgbequb.f b/SRC/zgbequb.f
index 3dce529..a405bc2 100644 (file)
--- a/SRC/zgbequb.f
+++ b/SRC/zgbequb.f
@@ -84,7 +84,7 @@
 *>
 *> \param[in] AB
 *> \verbatim
-*>          AB is DOUBLE PRECISION array, dimension (LDAB,N)
+*>          AB is COMPLEX*16 array, dimension (LDAB,N)
 *>          On entry, the matrix A in band storage, in rows 1 to KL+KU+1.
 *>          The j-th column of A is stored in the j-th column of the
 *>          array AB as follows:

diff --git a/SRC/zggbal.f b/SRC/zggbal.f
index 7298da3..a8147e6 100644 (file)
--- a/SRC/zggbal.f
+++ b/SRC/zggbal.f
@@ -140,7 +140,7 @@
 *>
 *> \param[out] WORK
 *> \verbatim
-*>          WORK is REAL array, dimension (lwork)
+*>          WORK is DOUBLE PRECISION array, dimension (lwork)
 *>          lwork must be at least max(1,6*N) when JOB = 'S' or 'B', and
 *>          at least 1 when JOB = 'N' or 'P'.
 *> \endverbatim

diff --git a/SRC/zhetrs2.f b/SRC/zhetrs2.f
index 15b460b..948b516 100644 (file)
--- a/SRC/zhetrs2.f
+++ b/SRC/zhetrs2.f
@@ -101,7 +101,7 @@
 *>
 *> \param[out] WORK
 *> \verbatim
-*>          WORK is REAL array, dimension (N)
+*>          WORK is COMPLEX*16 array, dimension (N)
 *> \endverbatim
 *>
 *> \param[out] INFO

diff --git a/SRC/zla_gerpvgrw.f b/SRC/zla_gerpvgrw.f
index aae5e66..0135970 100644 (file)
--- a/SRC/zla_gerpvgrw.f
+++ b/SRC/zla_gerpvgrw.f
@@ -61,7 +61,7 @@
 *>
 *> \param[in] A
 *> \verbatim
-*>          A is DOUBLE PRECISION array, dimension (LDA,N)
+*>          A is COMPLEX*16 array, dimension (LDA,N)
 *>     On entry, the N-by-N matrix A.
 *> \endverbatim
 *>
@@ -73,7 +73,7 @@
 *>
 *> \param[in] AF
 *> \verbatim
-*>          AF is DOUBLE PRECISION array, dimension (LDAF,N)
+*>          AF is COMPLEX*16 array, dimension (LDAF,N)
 *>     The factors L and U from the factorization
 *>     A = P*L*U as computed by ZGETRF.
 *> \endverbatim

diff --git a/SRC/zla_herpvgrw.f b/SRC/zla_herpvgrw.f
index e1fb5c4..735538b 100644 (file)
--- a/SRC/zla_herpvgrw.f
+++ b/SRC/zla_herpvgrw.f
@@ -104,7 +104,7 @@
 *>
 *> \param[in] WORK
 *> \verbatim
-*>          WORK is COMPLEX*16 array, dimension (2*N)
+*>          WORK is DOUBLE PRECISION array, dimension (2*N)
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/zla_lin_berr.f b/SRC/zla_lin_berr.f
index 161eed9..3ddabdc 100644 (file)
--- a/SRC/zla_lin_berr.f
+++ b/SRC/zla_lin_berr.f
@@ -67,7 +67,7 @@
 *>
 *> \param[in] RES
 *> \verbatim
-*>          RES is DOUBLE PRECISION array, dimension (N,NRHS)
+*>          RES is COMPLEX*16 array, dimension (N,NRHS)
 *>     The residual matrix, i.e., the matrix R in the relative backward
 *>     error formula above.
 *> \endverbatim
@@ -82,7 +82,7 @@
 *>     
 *> \param[out] BERR
 *> \verbatim
-*>          BERR is COMPLEX*16 array, dimension (NRHS)
+*>          BERR is DOUBLE PRECISION array, dimension (NRHS)
 *>     The componentwise relative backward error from the formula above.
 *> \endverbatim
 *

diff --git a/SRC/zla_porpvgrw.f b/SRC/zla_porpvgrw.f
index 682a670..0e7b51e 100644 (file)
--- a/SRC/zla_porpvgrw.f
+++ b/SRC/zla_porpvgrw.f
@@ -88,7 +88,7 @@
 *>
 *> \param[in] WORK
 *> \verbatim
-*>          WORK is COMPLEX*16 array, dimension (2*N)
+*>          WORK is DOUBLE PRECISION array, dimension (2*N)
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/zlarcm.f b/SRC/zlarcm.f
index e72c106..701202f 100644 (file)
--- a/SRC/zlarcm.f
+++ b/SRC/zlarcm.f
@@ -72,7 +72,7 @@
 *>
 *> \param[in] B
 *> \verbatim
-*>          B is DOUBLE PRECISION array, dimension (LDB, N)
+*>          B is COMPLEX*16 array, dimension (LDB, N)
 *>          B contains the M by N matrix B.
 *> \endverbatim
 *>

diff --git a/SRC/zlatdf.f b/SRC/zlatdf.f
index 23b4713..bfba5a8 100644 (file)
--- a/SRC/zlatdf.f
+++ b/SRC/zlatdf.f
@@ -70,7 +70,7 @@
 *>
 *> \param[in] Z
 *> \verbatim
-*>          Z is DOUBLE PRECISION array, dimension (LDZ, N)
+*>          Z is COMPLEX*16 array, dimension (LDZ, N)
 *>          On entry, the LU part of the factorization of the n-by-n
 *>          matrix Z computed by ZGETC2:  Z = P * L * U * Q
 *> \endverbatim
@@ -83,7 +83,7 @@
 *>
 *> \param[in,out] RHS
 *> \verbatim
-*>          RHS is DOUBLE PRECISION array, dimension (N).
+*>          RHS is COMPLEX*16 array, dimension (N).
 *>          On entry, RHS contains contributions from other subsystems.
 *>          On exit, RHS contains the solution of the subsystem with
 *>          entries according to the value of IJOB (see above).

diff --git a/SRC/zpbrfs.f b/SRC/zpbrfs.f
index a75f563..f5e44d3 100644 (file)
--- a/SRC/zpbrfs.f
+++ b/SRC/zpbrfs.f
@@ -75,7 +75,7 @@
 *>
 *> \param[in] AB
 *> \verbatim
-*>          AB is DOUBLE PRECISION array, dimension (LDAB,N)
+*>          AB is COMPLEX*16 array, dimension (LDAB,N)
 *>          The upper or lower triangle of the Hermitian band matrix A,
 *>          stored in the first KD+1 rows of the array.  The j-th column
 *>          of A is stored in the j-th column of the array AB as follows:

diff --git a/SRC/zpttrs.f b/SRC/zpttrs.f
index 8d6aa39..4536ea1 100644 (file)
--- a/SRC/zpttrs.f
+++ b/SRC/zpttrs.f
@@ -87,7 +87,7 @@
 *>
 *> \param[in,out] B
 *> \verbatim
-*>          B is DOUBLE PRECISION array, dimension (LDB,NRHS)
+*>          B is COMPLEX*16 array, dimension (LDB,NRHS)
 *>          On entry, the right hand side vectors B for the system of
 *>          linear equations.
 *>          On exit, the solution vectors, X.

diff --git a/SRC/zptts2.f b/SRC/zptts2.f
index 3be100a..367ed5c 100644 (file)
--- a/SRC/zptts2.f
+++ b/SRC/zptts2.f
@@ -86,7 +86,7 @@
 *>
 *> \param[in,out] B
 *> \verbatim
-*>          B is DOUBLE PRECISION array, dimension (LDB,NRHS)
+*>          B is COMPLEX*16 array, dimension (LDB,NRHS)
 *>          On entry, the right hand side vectors B for the system of
 *>          linear equations.
 *>          On exit, the solution vectors, X.

diff --git a/SRC/zsytrs2.f b/SRC/zsytrs2.f
index 6321197..4f8bc64 100644 (file)
--- a/SRC/zsytrs2.f
+++ b/SRC/zsytrs2.f
@@ -106,7 +106,7 @@
 *>
 *> \param[out] WORK
 *> \verbatim
-*>          WORK is REAL array, dimension (N)
+*>          WORK is COMPLEX*16 array, dimension (N)
 *> \endverbatim
 *>
 *> \param[out] INFO