796       CHARACTER*1        SIDE, SIDES, UPLO, UPLOS  local
869                   UPLO = ICHU( ICU: ICU )
873                   CALL ZMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX,
893                         UPLOS = UPLO
915      $                      SIDE, UPLO, M, N, ALPHA, LDA, LDB, 
920                            CALL CZHEMM( IORDER, SIDE, UPLO, M, N,
924                            CALL CZSYMM( IORDER, SIDE, UPLO, M, N,
940                         ISAME( 2 ) = UPLOS.EQ.UPLO
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
1051       CHARACTER*1      SIDE, UPLO  local
1060       IF (UPLO.EQ.'U')THEN
1116       CHARACTER*1       DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1182                   UPLO = ICHU( ICU: ICU )
1195                            CALL ZMAKE( 'tr', UPLO, DIAG, NA, NA, A,
1209                            UPLOS = UPLO
1229      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1233                               CALL CZTRMM(IORDER, SIDE, UPLO, TRANSA,
1239      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1243                               CALL CZTRSM(IORDER, SIDE, UPLO, TRANSA,
1259                            ISAME( 2 ) = UPLOS.EQ.UPLO
1369       CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1398       SUBROUTINE ZPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1402       CHARACTER*1      SIDE, UPLO, TRANSA, DIAG  local
1411       IF (UPLO.EQ.'U')THEN
1481       CHARACTER*1        TRANS, TRANSS, TRANST, UPLO, UPLOS  local
1548                   UPLO = ICHU( ICU: ICU )
1549                   UPPER = UPLO.EQ.'U'
1571                         CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
1578                         UPLOS = UPLO
1606      $                        UPLO, TRANS, N, K, RALPHA, LDA, RBETA,
1610                            CALL CZHERK( IORDER, UPLO, TRANS, N, K,
1616      $                        UPLO, TRANS, N, K, ALPHA, LDA, BETA, LDC)
1619                            CALL CZSYRK( IORDER, UPLO, TRANS, N, K,
1633                         ISAME( 1 ) = UPLOS.EQ.UPLO
1652                            ISAME( 9 ) = LZERES( SNAME( 8: 9 ), UPLO, N,
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
1788       CHARACTER*1      UPLO, TRANSA  local
1792       IF (UPLO.EQ.'U')THEN
1818       SUBROUTINE ZPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1822       CHARACTER*1      UPLO, TRANSA  local
1826       IF (UPLO.EQ.'U')THEN
1891       CHARACTER*1        TRANS, TRANSS, TRANST, UPLO, UPLOS  local
1975                   UPLO = ICHU( ICU: ICU )
1976                   UPPER = UPLO.EQ.'U'
1994                         CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
2001                         UPLOS = UPLO
2029      $                        UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2033                            CALL CZHER2K( IORDER, UPLO, TRANS, N, K,
2039      $                        UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2043                            CALL CZSYR2K( IORDER, UPLO, TRANS, N, K,
2058                         ISAME( 1 ) = UPLOS.EQ.UPLO
2075                            ISAME( 11 ) = LZERES( 'he', UPLO, N, N, CS,
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
2241       CHARACTER*1      UPLO, TRANSA  local
2245       IF (UPLO.EQ.'U')THEN
2271       SUBROUTINE ZPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2276       CHARACTER*1      UPLO, TRANSA  local
2280       IF (UPLO.EQ.'U')THEN
2305       SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  argument
2336       CHARACTER*1        DIAG, UPLO  local
2353       UPPER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'U'
2354       LOWER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'L'
2656       LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
2672       CHARACTER*1        UPLO  local
2680       UPPER = UPLO.EQ.'U'