426       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
450       CHARACTER*12       SNAME  local
598      $                        CALL ZPRCN1(NTRA, NC, SNAME, IORDER,
682          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
683          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
685          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
686          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
691       WRITE( NOUT, FMT = 9996 )SNAME
692       CALL ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, 
721       SUBROUTINE ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,  argument
726       CHARACTER*12     SNAME  local
748       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
756       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
780       CHARACTER*12       SNAME  local
815       CONJ = SNAME( 8: 9 ).EQ.'he'
873                   CALL ZMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX,
914      $                      CALL ZPRCN2(NTRA, NC, SNAME, IORDER, 
1008          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1009          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1011          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1012          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1017       WRITE( NOUT, FMT = 9996 )SNAME
1018       CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1047       SUBROUTINE ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,  argument
1052       CHARACTER*12     SNAME  local
1070       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1078       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1101       CHARACTER*12       SNAME  local
1226                            IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1228      $                           CALL ZPRCN3( NTRA, NC, SNAME, IORDER,
1236                            ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1238      $                           CALL ZPRCN3( NTRA, NC, SNAME, IORDER,
1290                               IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1307                               ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1359          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1360          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1362          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1363          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1368       WRITE( NOUT, FMT = 9996 )SNAME
1369       CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1398       SUBROUTINE ZPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1403       CHARACTER*12     SNAME  local
1433       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1441       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1465       CHARACTER*12       SNAME  local
1500       CONJ = SNAME( 8: 9 ).EQ.'he'
1571                         CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
1605      $                        CALL ZPRCN6( NTRA, NC, SNAME, IORDER,
1615      $                        CALL ZPRCN4( NTRA, NC, SNAME, IORDER,
1652                            ISAME( 9 ) = LZERES( SNAME( 8: 9 ), UPLO, N,
1732          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1733          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1735          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1736          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1745       WRITE( NOUT, FMT = 9996 )SNAME
1747       CALL ZPRCN6( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, RALPHA,
1750       CALL ZPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1784       SUBROUTINE ZPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1789       CHARACTER*12     SNAME  local
1809       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1818       SUBROUTINE ZPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1823       CHARACTER*12     SNAME  local
1843       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1851       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1875       CHARACTER*12      SNAME  local
1910       CONJ = SNAME( 8: 9 ).EQ.'he'
1994                         CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
2028      $                        CALL ZPRCN7( NTRA, NC, SNAME, IORDER,
2038      $                        CALL ZPRCN5( NTRA, NC, SNAME, IORDER,
2185          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2186          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2188          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2189          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2198       WRITE( NOUT, FMT = 9996 )SNAME
2200          CALL ZPRCN7( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2203          CALL ZPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2237       SUBROUTINE ZPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2242       CHARACTER*12     SNAME  local
2262       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2271       SUBROUTINE ZPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2277       CHARACTER*12     SNAME  local
2297       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA