Skip to content

Commit 402d685

Browse files
committed
xGESVJ, JOBA parameter: 'CHARACTER* 1' -> 'CHARACTER*1'
1 parent 9361215 commit 402d685

4 files changed

Lines changed: 4 additions & 4 deletions

File tree

SRC/cgesvj.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,7 @@
5252
*
5353
*> \param[in] JOBA
5454
*> \verbatim
55-
*> JOBA is CHARACTER* 1
55+
*> JOBA is CHARACTER*1
5656
*> Specifies the structure of A.
5757
*> = 'L': The input matrix A is lower triangular;
5858
*> = 'U': The input matrix A is upper triangular;

SRC/dgesvj.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -54,7 +54,7 @@
5454
*
5555
*> \param[in] JOBA
5656
*> \verbatim
57-
*> JOBA is CHARACTER* 1
57+
*> JOBA is CHARACTER*1
5858
*> Specifies the structure of A.
5959
*> = 'L': The input matrix A is lower triangular;
6060
*> = 'U': The input matrix A is upper triangular;

SRC/sgesvj.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -54,7 +54,7 @@
5454
*
5555
*> \param[in] JOBA
5656
*> \verbatim
57-
*> JOBA is CHARACTER* 1
57+
*> JOBA is CHARACTER*1
5858
*> Specifies the structure of A.
5959
*> = 'L': The input matrix A is lower triangular;
6060
*> = 'U': The input matrix A is upper triangular;

SRC/zgesvj.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,7 @@
5252
*
5353
*> \param[in] JOBA
5454
*> \verbatim
55-
*> JOBA is CHARACTER* 1
55+
*> JOBA is CHARACTER*1
5656
*> Specifies the structure of A.
5757
*> = 'L': The input matrix A is lower triangular;
5858
*> = 'U': The input matrix A is upper triangular;

0 commit comments

Comments
 (0)