795       CHARACTER*1        SIDE, SIDES, UPLO, UPLOS  local
868                   UPLO = ICHU( ICU: ICU )
872                   CALL CMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX,
892                         UPLOS = UPLO
914      $                      SIDE, UPLO, M, N, ALPHA, LDA, LDB, 
919                            CALL CCHEMM( IORDER, SIDE, UPLO, M, N,
923                            CALL CCSYMM( IORDER, SIDE, UPLO, M, N,
939                         ISAME( 2 ) = UPLOS.EQ.UPLO
1017       CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1046       SUBROUTINE CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,  argument
1050       CHARACTER*1      SIDE, UPLO  local
1059       IF (UPLO.EQ.'U')THEN
1115       CHARACTER*1       DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1181                   UPLO = ICHU( ICU: ICU )
1194                            CALL CMAKE( 'tr', UPLO, DIAG, NA, NA, A,
1208                            UPLOS = UPLO
1228      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1232                               CALL CCTRMM(IORDER, SIDE, UPLO, TRANSA,
1238      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1242                               CALL CCTRSM(IORDER, SIDE, UPLO, TRANSA,
1258                            ISAME( 2 ) = UPLOS.EQ.UPLO
1368       CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1397       SUBROUTINE CPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1401       CHARACTER*1      SIDE, UPLO, TRANSA, DIAG  local
1410       IF (UPLO.EQ.'U')THEN
1480       CHARACTER*1        TRANS, TRANSS, TRANST, UPLO, UPLOS  local
1547                   UPLO = ICHU( ICU: ICU )
1548                   UPPER = UPLO.EQ.'U'
1570                         CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
1577                         UPLOS = UPLO
1605      $                        UPLO, TRANS, N, K, RALPHA, LDA, RBETA,
1609                            CALL CCHERK( IORDER, UPLO, TRANS, N, K,
1615      $                        UPLO, TRANS, N, K, ALPHA, LDA, BETA, LDC)
1618                            CALL CCSYRK( IORDER, UPLO, TRANS, N, K,
1632                         ISAME( 1 ) = UPLOS.EQ.UPLO
1651                            ISAME( 9 ) = LCERES( SNAME( 8: 9 ), UPLO, N,
1746       CALL CPRCN6( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, RALPHA,
1749       CALL CPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1783       SUBROUTINE CPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1787       CHARACTER*1      UPLO, TRANSA  local
1791       IF (UPLO.EQ.'U')THEN
1817       SUBROUTINE CPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1821       CHARACTER*1      UPLO, TRANSA  local
1825       IF (UPLO.EQ.'U')THEN
1890       CHARACTER*1        TRANS, TRANSS, TRANST, UPLO, UPLOS  local
1974                   UPLO = ICHU( ICU: ICU )
1975                   UPPER = UPLO.EQ.'U'
1993                         CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
2000                         UPLOS = UPLO
2028      $                        UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2032                            CALL CCHER2K( IORDER, UPLO, TRANS, N, K,
2038      $                        UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2042                            CALL CCSYR2K( IORDER, UPLO, TRANS, N, K,
2057                         ISAME( 1 ) = UPLOS.EQ.UPLO
2074                            ISAME( 11 ) = LCERES( 'he', UPLO, N, N, CS,
2199          CALL CPRCN7( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2202          CALL CPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2236       SUBROUTINE CPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2240       CHARACTER*1      UPLO, TRANSA  local
2244       IF (UPLO.EQ.'U')THEN
2270       SUBROUTINE CPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2275       CHARACTER*1      UPLO, TRANSA  local
2279       IF (UPLO.EQ.'U')THEN
2304       SUBROUTINE CMAKE(TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  argument
2334       CHARACTER*1        DIAG, UPLO  local
2351       UPPER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'U'
2352       LOWER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'L'
2652       LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
2668       CHARACTER*1        UPLO  local
2676       UPPER = UPLO.EQ.'U'