Adding missing context to PXERBLA calls. The assumption that it is ca…

…lled from an invalid argument error seems dubious, as -INFO is resulting in a negative value. Perhaps the problem is in a workspace query to PDLAQR{0,1}.
scibuilder · Mar 24, 2014 · 3dfdf1b · 3dfdf1b
1 parent 091ea6a
commit 3dfdf1b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/SRC/pdhseqr.f b/SRC/pdhseqr.f
@@ -354,7 +354,7 @@ SUBROUTINE PDHSEQR( JOB, COMPZ, N, ILO, IHI, H, DESCH, WR, WI, Z,
 *
 *        Quick return in case of invalid argument.
 *
-         CALL PXERBLA( 'PDHSEQR', -INFO )
+         CALL PXERBLA( ICTXT, 'PDHSEQR', -INFO )
          RETURN
 *
       ELSE IF( N.EQ.0 ) THEN

diff --git a/SRC/pshseqr.f b/SRC/pshseqr.f
@@ -354,7 +354,7 @@ SUBROUTINE PSHSEQR( JOB, COMPZ, N, ILO, IHI, H, DESCH, WR, WI, Z,
 *
 *        Quick return in case of invalid argument.
 *
-         CALL PXERBLA( 'PSHSEQR', -INFO )
+         CALL PXERBLA( ICTXT, 'PSHSEQR', -INFO )
          RETURN
 *
       ELSE IF( N.EQ.0 ) THEN