- Code: Select all
$ egrep -i 'subroutine |call *chk1mat' SRC/*heevd.f
SRC/pcheevd.f: SUBROUTINE PCHEEVD( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ,
SRC/pcheevd.f: CALL CHK1MAT( N, 3, N, 3, IA, JA, DESCA, 7, INFO )
SRC/pcheevd.f: CALL CHK1MAT( N, 3, N, 3, IZ, JZ, DESCZ, 12, INFO )
SRC/pzheevd.f: SUBROUTINE PZHEEVD( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ,
SRC/pzheevd.f: CALL CHK1MAT( N, 2, N, 2, IA, JA, DESCA, 6, INFO )
SRC/pzheevd.f: CALL CHK1MAT( N, 2, N, 2, IZ, JZ, DESCZ, 11, INFO )
There is one more similar error in call of PCHK2MAT, in the same subroutine.
Thanks
Dima

