Missing initialization of ICTXT in a few ScaLAPACK routines

[dbakshee]

In the following files ICTXT is declared as local variable but is not defined:

Code: Select all

$ grep -iw ictxt SRC/pdlasrt.f SRC/pdsyevd.f SRC/pslasrt.f SRC/pssyevd.f
SRC/pdlasrt.f:      INTEGER            CL, COL, DUMMY, I, ICTXT, IID, IIQ, INDCOL,
SRC/pdlasrt.f:         CALL PXERBLA( ICTXT, 'PDLASRT', -INFO )
SRC/pdsyevd.f:      INTEGER            IACOL, IAROW, ICOFFA, ICOFFZ, ICTXT, IINFO,
SRC/pdsyevd.f:         CALL PXERBLA( ICTXT, 'PDSYEVD', -INFO )
SRC/pslasrt.f:      INTEGER            CL, COL, DUMMY, I, ICTXT, IID, IIQ, INDCOL,
SRC/pslasrt.f:         CALL PXERBLA( ICTXT, 'PSLASRT', -INFO )
SRC/pssyevd.f:      INTEGER            IACOL, IAROW, ICOFFA, ICOFFZ, ICTXT, IINFO,
SRC/pssyevd.f:         CALL PXERBLA( ICTXT, 'PSSYEVD', -INFO )

Thanks
Dima

[admin]

Thank you again!
I corrected the issue in revision 202.
I found the same issue in pcheevd.f and pzheevd.f
Julie