776       CHARACTER*1        SIDE, SIDES, UPLO, UPLOS  local
849                   UPLO = ICHU( ICU: ICU )
853                   CALL DMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
873                         UPLOS = UPLO
895      $                      SIDE, UPLO, M, N, ALPHA, LDA, LDB, 
899                         CALL CDSYMM( IORDER, SIDE, UPLO, M, N, ALPHA,
913                         ISAME( 2 ) = UPLOS.EQ.UPLO
991       CALL DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1020       SUBROUTINE DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,  argument
1024       CHARACTER*1      SIDE, UPLO  local
1033       IF (UPLO.EQ.'U')THEN
1085       CHARACTER*1        DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1151                   UPLO = ICHU( ICU: ICU )
1164                            CALL DMAKE( 'TR', UPLO, DIAG, NA, NA, A,
1178                            UPLOS = UPLO
1198      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1202                               CALL CDTRMM( IORDER, SIDE, UPLO, TRANSA,
1208      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1212                               CALL CDTRSM( IORDER, SIDE, UPLO, TRANSA,
1228                            ISAME( 2 ) = UPLOS.EQ.UPLO
1338       CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1366       SUBROUTINE DPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1370       CHARACTER*1      SIDE, UPLO, TRANSA, DIAG  local
1379       IF (UPLO.EQ.'U')THEN
1444       CHARACTER*1        TRANS, TRANSS, UPLO, UPLOS  local
1510                   UPLO = ICHU( ICU: ICU )
1511                   UPPER = UPLO.EQ.'U'
1521                         CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1528                         UPLOS = UPLO
1546      $                     CALL DPRCN4( NTRA, NC, SNAME, IORDER, UPLO,
1550                         CALL CDSYRK( IORDER, UPLO, TRANS, N, K, ALPHA,
1563                         ISAME( 1 ) = UPLOS.EQ.UPLO
1574                            ISAME( 9 ) = LDERES( 'SY', UPLO, N, N, CS,
1663       CALL DPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1692       SUBROUTINE DPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1696       CHARACTER*1      UPLO, TRANSA  local
1700       IF (UPLO.EQ.'U')THEN
1761       CHARACTER*1        TRANS, TRANSS, UPLO, UPLOS  local
1844                   UPLO = ICHU( ICU: ICU )
1845                   UPPER = UPLO.EQ.'U'
1855                         CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1862                         UPLOS = UPLO
1884      $                     CALL DPRCN5( NTRA, NC, SNAME, IORDER, UPLO,
1888                         CALL CDSYR2K( IORDER, UPLO, TRANS, N, K,
1902                         ISAME( 1 ) = UPLOS.EQ.UPLO
1915                            ISAME( 11 ) = LDERES( 'SY', UPLO, N, N, CS,
2019       CALL DPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
2049       SUBROUTINE DPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2053       CHARACTER*1      UPLO, TRANSA  local
2057       IF (UPLO.EQ.'U')THEN
2082       SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  argument
2108       CHARACTER*1        DIAG, UPLO  local
2122       UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2123       LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
2349       LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
2365       CHARACTER*1        UPLO  local
2373       UPPER = UPLO.EQ.'U'