780       CHARACTER*1        SIDE, SIDES, UPLO, UPLOS  local
853                   UPLO = ICHU( ICU: ICU )
857                   CALL SMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
877                         UPLOS = UPLO
899      $                      SIDE, UPLO, M, N, ALPHA, LDA, LDB, 
903                         CALL CSSYMM( IORDER, SIDE, UPLO, M, N, ALPHA,
917                         ISAME( 2 ) = UPLOS.EQ.UPLO
995       CALL SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1024       SUBROUTINE SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,  argument
1028       CHARACTER*1      SIDE, UPLO  local
1037       IF (UPLO.EQ.'U')THEN
1089       CHARACTER*1        DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,  local
1155                   UPLO = ICHU( ICU: ICU )
1168                            CALL SMAKE( 'TR', UPLO, DIAG, NA, NA, A,
1182                            UPLOS = UPLO
1202      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1206                               CALL CSTRMM( IORDER, SIDE, UPLO, TRANSA,
1212      $                           SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1216                               CALL CSTRSM( IORDER, SIDE, UPLO, TRANSA,
1232                            ISAME( 2 ) = UPLOS.EQ.UPLO
1342       CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1370       SUBROUTINE SPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1374       CHARACTER*1      SIDE, UPLO, TRANSA, DIAG  local
1383       IF (UPLO.EQ.'U')THEN
1449       CHARACTER*1        TRANS, TRANSS, UPLO, UPLOS  local
1515                   UPLO = ICHU( ICU: ICU )
1516                   UPPER = UPLO.EQ.'U'
1526                         CALL SMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1533                         UPLOS = UPLO
1551      $                     CALL SPRCN4( NTRA, NC, SNAME, IORDER, UPLO,
1555                         CALL CSSYRK( IORDER, UPLO, TRANS, N, K, ALPHA,
1568                         ISAME( 1 ) = UPLOS.EQ.UPLO
1579                            ISAME( 9 ) = LSERES( 'SY', UPLO, N, N, CS,
1668       CALL SPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1697       SUBROUTINE SPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1701       CHARACTER*1      UPLO, TRANSA  local
1705       IF (UPLO.EQ.'U')THEN
1766       CHARACTER*1        TRANS, TRANSS, UPLO, UPLOS  local
1849                   UPLO = ICHU( ICU: ICU )
1850                   UPPER = UPLO.EQ.'U'
1860                         CALL SMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1867                         UPLOS = UPLO
1889      $                     CALL SPRCN5( NTRA, NC, SNAME, IORDER, UPLO,
1893                         CALL CSSYR2K( IORDER, UPLO, TRANS, N, K, ALPHA,
1906                         ISAME( 1 ) = UPLOS.EQ.UPLO
1919                            ISAME( 11 ) = LSERES( 'SY', UPLO, N, N, CS,
2023       CALL SPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
2053       SUBROUTINE SPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2057       CHARACTER*1      UPLO, TRANSA  local
2061       IF (UPLO.EQ.'U')THEN
2086       SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  argument
2112       CHARACTER*1        DIAG, UPLO  local
2126       UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2127       LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
2353       LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2369       CHARACTER*1        UPLO  local
2377       UPPER = UPLO.EQ.'U'