xGESVJ, JOBA parameter: 'CHARACTER* 1' -> 'CHARACTER*1'

diff --git a/SRC/cgesvj.f b/SRC/cgesvj.f
index 695cb45..8cce26b 100644 (file)
--- a/SRC/cgesvj.f
+++ b/SRC/cgesvj.f
@@ -52,7 +52,7 @@
 *
 *> \param[in] JOBA
 *> \verbatim
-*>          JOBA is CHARACTER* 1
+*>          JOBA is 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/dgesvj.f b/SRC/dgesvj.f
index e8f6598..09025c2 100644 (file)
--- a/SRC/dgesvj.f
+++ b/SRC/dgesvj.f
@@ -54,7 +54,7 @@
 *
 *> \param[in] JOBA
 *> \verbatim
-*>          JOBA is CHARACTER* 1
+*>          JOBA is 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/sgesvj.f b/SRC/sgesvj.f
index 371ec8d..adce345 100644 (file)
--- a/SRC/sgesvj.f
+++ b/SRC/sgesvj.f
@@ -54,7 +54,7 @@
 *
 *> \param[in] JOBA
 *> \verbatim
-*>          JOBA is CHARACTER* 1
+*>          JOBA is 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/zgesvj.f b/SRC/zgesvj.f
index 74c99a2..1e1be50 100644 (file)
--- a/SRC/zgesvj.f
+++ b/SRC/zgesvj.f
@@ -52,7 +52,7 @@
 *
 *> \param[in] JOBA
 *> \verbatim
-*>          JOBA is CHARACTER* 1
+*>          JOBA is CHARACTER*1
 *>          Specifies the structure of A.
 *>          = 'L': The input matrix A is lower triangular;
 *>          = 'U': The input matrix A is upper triangular;