diff options
| -rw-r--r-- | SRC/cgesvj.f | 2 | ||||
| -rw-r--r-- | SRC/dgesvj.f | 2 | ||||
| -rw-r--r-- | SRC/sgesvj.f | 2 | ||||
| -rw-r--r-- | SRC/zgesvj.f | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/SRC/cgesvj.f b/SRC/cgesvj.f index 695cb45d..8cce26b4 100644 --- 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 e8f6598f..09025c23 100644 --- 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 371ec8dc..adce3451 100644 --- 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 74c99a22..1e1be50c 100644 --- 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; |