Skip to content

Commit 1ad528b

Browse files
authored
Merge pull request #555 from msk/fix-slasq2-xerbla-arg
Correct XERBLA argument in SLASQ2
2 parents 2dafa3d + 57c6476 commit 1ad528b

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

SRC/slasq2.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -182,7 +182,7 @@ SUBROUTINE SLASQ2( N, Z, INFO )
182182
*
183183
IF( Z( 1 ).LT.ZERO ) THEN
184184
INFO = -201
185-
CALL XERBLA( 'DLASQ2', 2 )
185+
CALL XERBLA( 'SLASQ2', 2 )
186186
RETURN
187187
ELSE IF( Z( 2 ).LT.ZERO ) THEN
188188
INFO = -202

0 commit comments

Comments
 (0)