Correct XERBLA argument in SLASQ2

Author: msk

SRC/slasq2.f

@@ -182,7 +182,7 @@ SUBROUTINE SLASQ2( N, Z, INFO )
 *
          IF( Z( 1 ).LT.ZERO ) THEN
             INFO = -201
-            CALL XERBLA( 'DLASQ2', 2 )
+            CALL XERBLA( 'SLASQ2', 2 )
             RETURN
          ELSE IF( Z( 2 ).LT.ZERO ) THEN
             INFO = -202