Merge pull request #792 from dklyuchinskiy/fix-sbgv-xerbla-call

remove redundant space from xerbla call sbgv/hbgv
Reference-LAPACK · Feb 8, 2023 · 10abd46 · 10abd46
2 parents 1fafb88 + 9f7c029
commit 10abd46
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/SRC/chbgv.f b/SRC/chbgv.f
@@ -235,7 +235,7 @@ SUBROUTINE CHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z,
          INFO = -12
       END IF
       IF( INFO.NE.0 ) THEN
-         CALL XERBLA( 'CHBGV ', -INFO )
+         CALL XERBLA( 'CHBGV', -INFO )
          RETURN
       END IF
 *

diff --git a/SRC/dsbgv.f b/SRC/dsbgv.f
@@ -228,7 +228,7 @@ SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z,
          INFO = -12
       END IF
       IF( INFO.NE.0 ) THEN
-         CALL XERBLA( 'DSBGV ', -INFO )
+         CALL XERBLA( 'DSBGV', -INFO )
          RETURN
       END IF
 *

diff --git a/SRC/ssbgv.f b/SRC/ssbgv.f
@@ -228,7 +228,7 @@ SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z,
          INFO = -12
       END IF
       IF( INFO.NE.0 ) THEN
-         CALL XERBLA( 'SSBGV ', -INFO )
+         CALL XERBLA( 'SSBGV', -INFO )
          RETURN
       END IF
 *

diff --git a/SRC/zhbgv.f b/SRC/zhbgv.f
@@ -235,7 +235,7 @@ SUBROUTINE ZHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z,
          INFO = -12
       END IF
       IF( INFO.NE.0 ) THEN
-         CALL XERBLA( 'ZHBGV ', -INFO )
+         CALL XERBLA( 'ZHBGV', -INFO )
          RETURN
       END IF
 *