diff options
| author | Henning Thielemann <git@henning-thielemann.de> | 2017-06-03 17:51:25 +0200 |
|---|---|---|
| committer | Henning Thielemann <git@henning-thielemann.de> | 2017-06-03 17:51:25 +0200 |
| commit | 402d68531bd540c2a765561405338a7d6abfc069 (patch) | |
| tree | 355a1955c82109690798f9985ee4ab7d4dc1ecea /SRC | |
| parent | 9361215ab9c60fb8b6ca878f2bc1b895d95b18ff (diff) | |
| download | lapack-402d68531bd540c2a765561405338a7d6abfc069.tar.gz lapack-402d68531bd540c2a765561405338a7d6abfc069.tar.bz2 lapack-402d68531bd540c2a765561405338a7d6abfc069.zip | |
xGESVJ, JOBA parameter: 'CHARACTER* 1' -> 'CHARACTER*1'
Diffstat (limited to 'SRC')
| -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; |