Various comment fixes

58 files changed, 124 insertions, 124 deletions

diff --git a/SRC/chfrk.f b/SRC/chfrk.f
index 602a5052..1e01965e 100644
--- a/SRC/chfrk.f
+++ b/SRC/chfrk.f
@@ -39,11 +39,11 @@
 *  Arguments
 *  ==========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  The Normal Form of RFP A is stored;
 *          = 'C':  The Conjugate-transpose Form of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *           On  entry,   UPLO  specifies  whether  the  upper  or  lower
 *           triangular  part  of the  array  C  is to be  referenced  as
 *           follows:
@@ -56,7 +56,7 @@
 *
 *           Unchanged on exit.
 *
-*  TRANS   (input) CHARACTER
+*  TRANS   (input) CHARACTER*1
 *           On entry,  TRANS  specifies the operation to be performed as
 *           follows:
 *
diff --git a/SRC/cpftrf.f b/SRC/cpftrf.f
index cad4ff27..91dc843e 100644
--- a/SRC/cpftrf.f
+++ b/SRC/cpftrf.f
@@ -32,11 +32,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'C':  The Conjugate-transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of RFP A is stored;
 *          = 'L':  Lower triangle of RFP A is stored.
 *
diff --git a/SRC/cpftri.f b/SRC/cpftri.f
index bc6ee252..f1119591 100644
--- a/SRC/cpftri.f
+++ b/SRC/cpftri.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'C':  The Conjugate-transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of A is stored;
 *          = 'L':  Lower triangle of A is stored.
 *
diff --git a/SRC/cpftrs.f b/SRC/cpftrs.f
index 6b6261a9..ddbb8d0f 100644
--- a/SRC/cpftrs.f
+++ b/SRC/cpftrs.f
@@ -26,11 +26,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'C':  The Conjugate-transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of RFP A is stored;
 *          = 'L':  Lower triangle of RFP A is stored.
 *
diff --git a/SRC/ctfsm.f b/SRC/ctfsm.f
index 292472aa..cf4cc105 100644
--- a/SRC/ctfsm.f
+++ b/SRC/ctfsm.f
@@ -40,11 +40,11 @@
 *  Arguments
 *  ==========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  The Normal Form of RFP A is stored;
 *          = 'C':  The Conjugate-transpose Form of RFP A is stored.
 *
-*  SIDE    (input) CHARACTER
+*  SIDE    (input) CHARACTER*1
 *           On entry, SIDE specifies whether op( A ) appears on the left
 *           or right of X as follows:
 *
@@ -54,7 +54,7 @@
 *
 *           Unchanged on exit.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *           On entry, UPLO specifies whether the RFP matrix A came from
 *           an upper or lower triangular matrix as follows:
 *           UPLO = 'U' or 'u' RFP A came from an upper triangular matrix
@@ -62,7 +62,7 @@
 *
 *           Unchanged on exit.
 *
-*  TRANS   (input) CHARACTER
+*  TRANS   (input) CHARACTER*1
 *           On entry, TRANS  specifies the form of op( A ) to be used
 *           in the matrix multiplication as follows:
 *
@@ -72,7 +72,7 @@
 *
 *           Unchanged on exit.
 *
-*  DIAG    (input) CHARACTER
+*  DIAG    (input) CHARACTER*1
 *           On entry, DIAG specifies whether or not RFP A is unit
 *           triangular as follows:
 *
diff --git a/SRC/ctftri.f b/SRC/ctftri.f
index 5a5ad432..2baf7e97 100644
--- a/SRC/ctftri.f
+++ b/SRC/ctftri.f
@@ -27,15 +27,15 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'C':  The Conjugate-transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
-*  DIAG    (input) CHARACTER
+*  DIAG    (input) CHARACTER*1
 *          = 'N':  A is non-unit triangular;
 *          = 'U':  A is unit triangular.
 *
diff --git a/SRC/ctfttp.f b/SRC/ctfttp.f
index af73f721..f90989dd 100644
--- a/SRC/ctfttp.f
+++ b/SRC/ctfttp.f
@@ -26,11 +26,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF is in Normal format;
 *          = 'C':  ARF is in Conjugate-transpose format;
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/ctfttr.f b/SRC/ctfttr.f
index 0c46bc2d..a97cb40c 100644
--- a/SRC/ctfttr.f
+++ b/SRC/ctfttr.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF is in Normal format;
 *          = 'C':  ARF is in Conjugate-transpose format;
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/ctpttf.f b/SRC/ctpttf.f
index 3854dbfb..80586795 100644
--- a/SRC/ctpttf.f
+++ b/SRC/ctpttf.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF in Normal format is wanted;
 *          = 'C':  ARF in Conjugate-transpose format is wanted.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/ctpttr.f b/SRC/ctpttr.f
index 7e990f47..7aa86b3f 100644
--- a/SRC/ctpttr.f
+++ b/SRC/ctpttr.f
@@ -25,7 +25,7 @@
 *  Arguments
 *  =========
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular.
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/ctrttf.f b/SRC/ctrttf.f
index 1a7b9089..6f2b040e 100644
--- a/SRC/ctrttf.f
+++ b/SRC/ctrttf.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF in Normal mode is wanted;
 *          = 'C':  ARF in Conjugate Transpose mode is wanted;
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/ctrttp.f b/SRC/ctrttp.f
index 4bede256..46e059c0 100644
--- a/SRC/ctrttp.f
+++ b/SRC/ctrttp.f
@@ -25,7 +25,7 @@
 *  Arguments
 *  =========
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/dgesvj.f b/SRC/dgesvj.f
index 0bb49cb6..b9d568ed 100644
--- a/SRC/dgesvj.f
+++ b/SRC/dgesvj.f
@@ -93,7 +93,7 @@
 *  Arguments
 *  =========
 *
-*  JOBA    (input) CHARACTER* 1
+*  JOBA    (input) CHARACTER*1
 *          Specifies the structure of A.
 *          = 'L': The input matrix A is lower triangular;
 *          = 'U': The input matrix A is upper triangular;
diff --git a/SRC/dlansf.f b/SRC/dlansf.f
index 2abfd5ba..2e0cc7d6 100644
--- a/SRC/dlansf.f
+++ b/SRC/dlansf.f
@@ -44,17 +44,17 @@
 *  Arguments
 *  =========
 *
-*  NORM    (input) CHARACTER
+*  NORM    (input) CHARACTER*1
 *          Specifies the value to be returned in DLANSF as described
 *          above.
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          Specifies whether the RFP format of A is normal or
 *          transposed format.
 *          = 'N':  RFP format is Normal;
 *          = 'T':  RFP format is Transpose.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *           On entry, UPLO specifies whether the RFP matrix A came from
 *           an upper or lower triangular matrix as follows:
 *           = 'U': RFP A came from an upper triangular matrix;
diff --git a/SRC/dlarrd.f b/SRC/dlarrd.f
index 12a63acd..96b8f53e 100644
--- a/SRC/dlarrd.f
+++ b/SRC/dlarrd.f
@@ -42,14 +42,14 @@
 *  Arguments
 *  =========
 *
-*  RANGE   (input) CHARACTER
+*  RANGE   (input) CHARACTER*1
 *          = 'A': ("All")   all eigenvalues will be found.
 *          = 'V': ("Value") all eigenvalues in the half-open interval
 *                           (VL, VU] will be found.
 *          = 'I': ("Index") the IL-th through IU-th eigenvalues (of the
 *                           entire matrix) will be found.
 *
-*  ORDER   (input) CHARACTER
+*  ORDER   (input) CHARACTER*1
 *          = 'B': ("By Block") the eigenvalues will be grouped by
 *                              split-off block (see IBLOCK, ISPLIT) and
 *                              ordered from smallest to largest within
diff --git a/SRC/dlarre.f b/SRC/dlarre.f
index 0bda7632..c3243afc 100644
--- a/SRC/dlarre.f
+++ b/SRC/dlarre.f
@@ -41,7 +41,7 @@
 *  Arguments
 *  =========
 *
-*  RANGE   (input) CHARACTER
+*  RANGE   (input) CHARACTER*1
 *          = 'A': ("All")   all eigenvalues will be found.
 *          = 'V': ("Value") all eigenvalues in the half-open interval
 *                           (VL, VU] will be found.
diff --git a/SRC/dpftrf.f b/SRC/dpftrf.f
index dc92a880..7b0326e6 100644
--- a/SRC/dpftrf.f
+++ b/SRC/dpftrf.f
@@ -32,11 +32,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'T':  The Transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of RFP A is stored;
 *          = 'L':  Lower triangle of RFP A is stored.
 *
diff --git a/SRC/dpftri.f b/SRC/dpftri.f
index 7e0716a0..dcdfd475 100644
--- a/SRC/dpftri.f
+++ b/SRC/dpftri.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'T':  The Transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of A is stored;
 *          = 'L':  Lower triangle of A is stored.
 *
diff --git a/SRC/dpftrs.f b/SRC/dpftrs.f
index 4e81c18e..00508384 100644
--- a/SRC/dpftrs.f
+++ b/SRC/dpftrs.f
@@ -26,11 +26,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'T':  The Transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of RFP A is stored;
 *          = 'L':  Lower triangle of RFP A is stored.
 *
diff --git a/SRC/dsfrk.f b/SRC/dsfrk.f
index f821e354..dca24eaa 100644
--- a/SRC/dsfrk.f
+++ b/SRC/dsfrk.f
@@ -39,11 +39,11 @@
 *  Arguments
 *  ==========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  The Normal Form of RFP A is stored;
 *          = 'T':  The Transpose Form of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *           On  entry, UPLO specifies whether the upper or lower
 *           triangular part of the array C is to be referenced as
 *           follows:
@@ -56,7 +56,7 @@
 *
 *           Unchanged on exit.
 *
-*  TRANS   (input) CHARACTER
+*  TRANS   (input) CHARACTER*1
 *           On entry, TRANS specifies the operation to be performed as
 *           follows:
 *
diff --git a/SRC/dsposv.f b/SRC/dsposv.f
index 36b89a44..cb996968 100644
--- a/SRC/dsposv.f
+++ b/SRC/dsposv.f
@@ -54,7 +54,7 @@
 *  Arguments
 *  =========
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of A is stored;
 *          = 'L':  Lower triangle of A is stored.
 *
diff --git a/SRC/dtfsm.f b/SRC/dtfsm.f
index 5d6e0596..e5adb8f7 100644
--- a/SRC/dtfsm.f
+++ b/SRC/dtfsm.f
@@ -40,11 +40,11 @@
 *  Arguments
 *  ==========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  The Normal Form of RFP A is stored;
 *          = 'T':  The Transpose Form of RFP A is stored.
 *
-*  SIDE    (input) CHARACTER
+*  SIDE    (input) CHARACTER*1
 *           On entry, SIDE specifies whether op( A ) appears on the left
 *           or right of X as follows:
 *
@@ -54,7 +54,7 @@
 *
 *           Unchanged on exit.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *           On entry, UPLO specifies whether the RFP matrix A came from
 *           an upper or lower triangular matrix as follows:
 *           UPLO = 'U' or 'u' RFP A came from an upper triangular matrix
@@ -62,7 +62,7 @@
 *
 *           Unchanged on exit.
 *
-*  TRANS   (input) CHARACTER
+*  TRANS   (input) CHARACTER*1
 *           On entry, TRANS  specifies the form of op( A ) to be used
 *           in the matrix multiplication as follows:
 *
@@ -72,7 +72,7 @@
 *
 *           Unchanged on exit.
 *
-*  DIAG    (input) CHARACTER
+*  DIAG    (input) CHARACTER*1
 *           On entry, DIAG specifies whether or not RFP A is unit
 *           triangular as follows:
 *
diff --git a/SRC/dtftri.f b/SRC/dtftri.f
index ae75fe45..20e9bbf9 100644
--- a/SRC/dtftri.f
+++ b/SRC/dtftri.f
@@ -27,15 +27,15 @@
 *  Arguments
 *  =========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'T':  The Transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
-*  DIAG    (input) CHARACTER
+*  DIAG    (input) CHARACTER*1
 *          = 'N':  A is non-unit triangular;
 *          = 'U':  A is unit triangular.
 *
diff --git a/SRC/dtfttp.f b/SRC/dtfttp.f
index 74b32466..41d8c9b2 100644
--- a/SRC/dtfttp.f
+++ b/SRC/dtfttp.f
@@ -26,11 +26,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  ARF is in Normal format;
 *          = 'T':  ARF is in Transpose format;
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/dtfttr.f b/SRC/dtfttr.f
index 1e4d889c..78ce0daa 100644
--- a/SRC/dtfttr.f
+++ b/SRC/dtfttr.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  ARF is in Normal format;
 *          = 'T':  ARF is in Transpose format.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/dtpttf.f b/SRC/dtpttf.f
index 3491dc16..fd0998a2 100644
--- a/SRC/dtpttf.f
+++ b/SRC/dtpttf.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  ARF in Normal format is wanted;
 *          = 'T':  ARF in Conjugate-transpose format is wanted.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/dtpttr.f b/SRC/dtpttr.f
index efa2e1f2..f93a0fe9 100644
--- a/SRC/dtpttr.f
+++ b/SRC/dtpttr.f
@@ -25,7 +25,7 @@
 *  Arguments
 *  =========
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular.
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/dtrttf.f b/SRC/dtrttf.f
index ad5a9e0a..b0721a3a 100644
--- a/SRC/dtrttf.f
+++ b/SRC/dtrttf.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  ARF in Normal form is wanted;
 *          = 'T':  ARF in Transpose form is wanted.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of A is stored;
 *          = 'L':  Lower triangle of A is stored.
 *
diff --git a/SRC/dtrttp.f b/SRC/dtrttp.f
index ea4db24a..ec3c539e 100644
--- a/SRC/dtrttp.f
+++ b/SRC/dtrttp.f
@@ -25,7 +25,7 @@
 *  Arguments
 *  =========
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular.
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/sgesvj.f b/SRC/sgesvj.f
index 40cd859b..f6939ccc 100644
--- a/SRC/sgesvj.f
+++ b/SRC/sgesvj.f
@@ -93,7 +93,7 @@
 *  Arguments
 *  =========
 *
-*  JOBA    (input) CHARACTER* 1
+*  JOBA    (input) CHARACTER*1
 *          Specifies the structure of A.
 *          = 'L': The input matrix A is lower triangular;
 *          = 'U': The input matrix A is upper triangular;
diff --git a/SRC/slansf.f b/SRC/slansf.f
index c13eb32b..2c779002 100644
--- a/SRC/slansf.f
+++ b/SRC/slansf.f
@@ -44,17 +44,17 @@
 *  Arguments
 *  =========
 *
-*  NORM    (input) CHARACTER
+*  NORM    (input) CHARACTER*1
 *          Specifies the value to be returned in SLANSF as described
 *          above.
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          Specifies whether the RFP format of A is normal or
 *          transposed format.
 *          = 'N':  RFP format is Normal;
 *          = 'T':  RFP format is Transpose.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *           On entry, UPLO specifies whether the RFP matrix A came from
 *           an upper or lower triangular matrix as follows:
 *           = 'U': RFP A came from an upper triangular matrix;
diff --git a/SRC/slarrd.f b/SRC/slarrd.f
index 3f421a9f..570e574a 100644
--- a/SRC/slarrd.f
+++ b/SRC/slarrd.f
@@ -42,14 +42,14 @@
 *  Arguments
 *  =========
 *
-*  RANGE   (input) CHARACTER
+*  RANGE   (input) CHARACTER*1
 *          = 'A': ("All")   all eigenvalues will be found.
 *          = 'V': ("Value") all eigenvalues in the half-open interval
 *                           (VL, VU] will be found.
 *          = 'I': ("Index") the IL-th through IU-th eigenvalues (of the
 *                           entire matrix) will be found.
 *
-*  ORDER   (input) CHARACTER
+*  ORDER   (input) CHARACTER*1
 *          = 'B': ("By Block") the eigenvalues will be grouped by
 *                              split-off block (see IBLOCK, ISPLIT) and
 *                              ordered from smallest to largest within
diff --git a/SRC/slarre.f b/SRC/slarre.f
index 0e61ca3f..6154a204 100644
--- a/SRC/slarre.f
+++ b/SRC/slarre.f
@@ -41,7 +41,7 @@
 *  Arguments
 *  =========
 *
-*  RANGE   (input) CHARACTER
+*  RANGE   (input) CHARACTER*1
 *          = 'A': ("All")   all eigenvalues will be found.
 *          = 'V': ("Value") all eigenvalues in the half-open interval
 *                           (VL, VU] will be found.
diff --git a/SRC/spftrf.f b/SRC/spftrf.f
index 65ca45cc..f283cab2 100644
--- a/SRC/spftrf.f
+++ b/SRC/spftrf.f
@@ -32,11 +32,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'T':  The Transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of RFP A is stored;
 *          = 'L':  Lower triangle of RFP A is stored.
 *
diff --git a/SRC/spftri.f b/SRC/spftri.f
index 488ed932..60214156 100644
--- a/SRC/spftri.f
+++ b/SRC/spftri.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'T':  The Transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of A is stored;
 *          = 'L':  Lower triangle of A is stored.
 *
diff --git a/SRC/spftrs.f b/SRC/spftrs.f
index a751368e..c08e21d6 100644
--- a/SRC/spftrs.f
+++ b/SRC/spftrs.f
@@ -26,11 +26,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'T':  The Transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of RFP A is stored;
 *          = 'L':  Lower triangle of RFP A is stored.
 *
diff --git a/SRC/ssfrk.f b/SRC/ssfrk.f
index 5cd7b77f..e52af884 100644
--- a/SRC/ssfrk.f
+++ b/SRC/ssfrk.f
@@ -39,11 +39,11 @@
 *  Arguments
 *  ==========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  The Normal Form of RFP A is stored;
 *          = 'T':  The Transpose Form of RFP A is stored.
 *
-*  UPLO     (input) CHARACTER
+*  UPLO     (input) CHARACTER*1
 *           On  entry, UPLO specifies whether the upper or lower
 *           triangular part of the array C is to be referenced as
 *           follows:
@@ -56,7 +56,7 @@
 *
 *           Unchanged on exit.
 *
-*  TRANS    (input) CHARACTER
+*  TRANS    (input) CHARACTER*1
 *           On entry, TRANS specifies the operation to be performed as
 *           follows:
 *
diff --git a/SRC/stfsm.f b/SRC/stfsm.f
index d79d549c..09f7e436 100644
--- a/SRC/stfsm.f
+++ b/SRC/stfsm.f
@@ -40,11 +40,11 @@
 *  Arguments
 *  ==========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  The Normal Form of RFP A is stored;
 *          = 'T':  The Transpose Form of RFP A is stored.
 *
-*  SIDE    (input) CHARACTER
+*  SIDE    (input) CHARACTER*1
 *           On entry, SIDE specifies whether op( A ) appears on the left
 *           or right of X as follows:
 *
@@ -54,7 +54,7 @@
 *
 *           Unchanged on exit.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *           On entry, UPLO specifies whether the RFP matrix A came from
 *           an upper or lower triangular matrix as follows:
 *           UPLO = 'U' or 'u' RFP A came from an upper triangular matrix
@@ -62,7 +62,7 @@
 *
 *           Unchanged on exit.
 *
-*  TRANS   (input) CHARACTER
+*  TRANS   (input) CHARACTER*1
 *           On entry, TRANS  specifies the form of op( A ) to be used
 *           in the matrix multiplication as follows:
 *
@@ -72,7 +72,7 @@
 *
 *           Unchanged on exit.
 *
-*  DIAG    (input) CHARACTER
+*  DIAG    (input) CHARACTER*1
 *           On entry, DIAG specifies whether or not RFP A is unit
 *           triangular as follows:
 *
diff --git a/SRC/stftri.f b/SRC/stftri.f
index 17071c81..5d84165b 100644
--- a/SRC/stftri.f
+++ b/SRC/stftri.f
@@ -27,15 +27,15 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'T':  The Transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
-*  DIAG    (input) CHARACTER
+*  DIAG    (input) CHARACTER*1
 *          = 'N':  A is non-unit triangular;
 *          = 'U':  A is unit triangular.
 *
diff --git a/SRC/stfttp.f b/SRC/stfttp.f
index b6afaef7..90974092 100644
--- a/SRC/stfttp.f
+++ b/SRC/stfttp.f
@@ -26,11 +26,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF is in Normal format;
 *          = 'T':  ARF is in Transpose format;
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/stfttr.f b/SRC/stfttr.f
index fcbeec19..565f26e6 100644
--- a/SRC/stfttr.f
+++ b/SRC/stfttr.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF is in Normal format;
 *          = 'T':  ARF is in Transpose format.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/stpttf.f b/SRC/stpttf.f
index a6780534..c83b0d94 100644
--- a/SRC/stpttf.f
+++ b/SRC/stpttf.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF in Normal format is wanted;
 *          = 'T':  ARF in Conjugate-transpose format is wanted.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/stpttr.f b/SRC/stpttr.f
index d500cf48..6666c84f 100644
--- a/SRC/stpttr.f
+++ b/SRC/stpttr.f
@@ -25,7 +25,7 @@
 *  Arguments
 *  =========
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular.
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/strttf.f b/SRC/strttf.f
index 71d57cf8..544bcf8f 100644
--- a/SRC/strttf.f
+++ b/SRC/strttf.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF in Normal form is wanted;
 *          = 'T':  ARF in Transpose form is wanted.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of A is stored;
 *          = 'L':  Lower triangle of A is stored.
 *
diff --git a/SRC/strttp.f b/SRC/strttp.f
index 51ad2f39..624babdc 100644
--- a/SRC/strttp.f
+++ b/SRC/strttp.f
@@ -25,7 +25,7 @@
 *  Arguments
 *  =========
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular.
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/zcposv.f b/SRC/zcposv.f
index 4292df9d..dc33aafd 100644
--- a/SRC/zcposv.f
+++ b/SRC/zcposv.f
@@ -57,7 +57,7 @@
 *  Arguments
 *  =========
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of A is stored;
 *          = 'L':  Lower triangle of A is stored.
 *
diff --git a/SRC/zhfrk.f b/SRC/zhfrk.f
index cf2e9754..87e52256 100644
--- a/SRC/zhfrk.f
+++ b/SRC/zhfrk.f
@@ -39,11 +39,11 @@
 *  Arguments
 *  ==========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  The Normal Form of RFP A is stored;
 *          = 'C':  The Conjugate-transpose Form of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *           On  entry,   UPLO  specifies  whether  the  upper  or  lower
 *           triangular  part  of the  array  C  is to be  referenced  as
 *           follows:
@@ -56,7 +56,7 @@
 *
 *           Unchanged on exit.
 *
-*  TRANS   (input) CHARACTER
+*  TRANS   (input) CHARACTER*1
 *           On entry,  TRANS  specifies the operation to be performed as
 *           follows:
 *
diff --git a/SRC/zpftrf.f b/SRC/zpftrf.f
index 715b0b33..f9d7f946 100644
--- a/SRC/zpftrf.f
+++ b/SRC/zpftrf.f
@@ -32,11 +32,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'C':  The Conjugate-transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of RFP A is stored;
 *          = 'L':  Lower triangle of RFP A is stored.
 *
diff --git a/SRC/zpftri.f b/SRC/zpftri.f
index d669842f..9eba2666 100644
--- a/SRC/zpftri.f
+++ b/SRC/zpftri.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'C':  The Conjugate-transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of A is stored;
 *          = 'L':  Lower triangle of A is stored.
 *
diff --git a/SRC/zpftrs.f b/SRC/zpftrs.f
index 2d399e95..13318ece 100644
--- a/SRC/zpftrs.f
+++ b/SRC/zpftrs.f
@@ -26,11 +26,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'C':  The Conjugate-transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of RFP A is stored;
 *          = 'L':  Lower triangle of RFP A is stored.
 *
diff --git a/SRC/ztfsm.f b/SRC/ztfsm.f
index 81ff23d0..835194c7 100644
--- a/SRC/ztfsm.f
+++ b/SRC/ztfsm.f
@@ -40,11 +40,11 @@
 *  Arguments
 *  ==========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  The Normal Form of RFP A is stored;
 *          = 'C':  The Conjugate-transpose Form of RFP A is stored.
 *
-*  SIDE    (input) CHARACTER
+*  SIDE    (input) CHARACTER*1
 *           On entry, SIDE specifies whether op( A ) appears on the left
 *           or right of X as follows:
 *
@@ -54,7 +54,7 @@
 *
 *           Unchanged on exit.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *           On entry, UPLO specifies whether the RFP matrix A came from
 *           an upper or lower triangular matrix as follows:
 *           UPLO = 'U' or 'u' RFP A came from an upper triangular matrix
@@ -62,7 +62,7 @@
 *
 *           Unchanged on exit.
 *
-*  TRANS   (input) CHARACTER
+*  TRANS   (input) CHARACTER*1
 *           On entry, TRANS  specifies the form of op( A ) to be used
 *           in the matrix multiplication as follows:
 *
@@ -72,7 +72,7 @@
 *
 *           Unchanged on exit.
 *
-*  DIAG    (input) CHARACTER
+*  DIAG    (input) CHARACTER*1
 *           On entry, DIAG specifies whether or not RFP A is unit
 *           triangular as follows:
 *
diff --git a/SRC/ztftri.f b/SRC/ztftri.f
index d3619a3f..6853d383 100644
--- a/SRC/ztftri.f
+++ b/SRC/ztftri.f
@@ -27,15 +27,15 @@
 *  Arguments
 *  =========
 *
-*  TRANSR    (input) CHARACTER
+*  TRANSR    (input) CHARACTER*1
 *          = 'N':  The Normal TRANSR of RFP A is stored;
 *          = 'C':  The Conjugate-transpose TRANSR of RFP A is stored.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
-*  DIAG    (input) CHARACTER
+*  DIAG    (input) CHARACTER*1
 *          = 'N':  A is non-unit triangular;
 *          = 'U':  A is unit triangular.
 *
diff --git a/SRC/ztfttp.f b/SRC/ztfttp.f
index 01317e76..84bd82a6 100644
--- a/SRC/ztfttp.f
+++ b/SRC/ztfttp.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF is in Normal format;
 *          = 'C':  ARF is in Conjugate-transpose format;
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/ztfttr.f b/SRC/ztfttr.f
index 1ee876c5..b8afb199 100644
--- a/SRC/ztfttr.f
+++ b/SRC/ztfttr.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF is in Normal format;
 *          = 'C':  ARF is in Conjugate-transpose format;
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/ztpttf.f b/SRC/ztpttf.f
index b57d8523..916008c1 100644
--- a/SRC/ztpttf.f
+++ b/SRC/ztpttf.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF in Normal format is wanted;
 *          = 'C':  ARF in Conjugate-transpose format is wanted.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/ztpttr.f b/SRC/ztpttr.f
index 2325e700..0180c71b 100644
--- a/SRC/ztpttr.f
+++ b/SRC/ztpttr.f
@@ -25,7 +25,7 @@
 *  Arguments
 *  =========
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular.
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/ztrttf.f b/SRC/ztrttf.f
index efe7df43..90c6f405 100644
--- a/SRC/ztrttf.f
+++ b/SRC/ztrttf.f
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR   (input) CHARACTER
+*  TRANSR   (input) CHARACTER*1
 *          = 'N':  ARF in Normal mode is wanted;
 *          = 'C':  ARF in Conjugate Transpose mode is wanted;
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
diff --git a/SRC/ztrttp.f b/SRC/ztrttp.f
index d0885877..b820c82a 100644
--- a/SRC/ztrttp.f
+++ b/SRC/ztrttp.f
@@ -26,7 +26,7 @@
 *  Arguments
 *  =========
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *