768       CHARACTER*1        UPLO, UPLOS  local
836                UPLO = ICH( IC: IC )
841                CALL SMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
880                            UPLOS = UPLO
903      $                           UPLO, N, ALPHA, LDA, INCX, BETA, INCY
906                               CALL SSYMV( UPLO, N, ALPHA, AA, LDA, XX,
911      $                           UPLO, N, K, ALPHA, LDA, INCX, BETA,
915                               CALL SSBMV( UPLO, N, K, ALPHA, AA, LDA,
920      $                           UPLO, N, ALPHA, INCX, BETA, INCY
923                               CALL SSPMV( UPLO, N, ALPHA, AA, XX, INCX,
937                            ISAME( 1 ) = UPLO.EQ.UPLOS
1041          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1044          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1047          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1106       CHARACTER*1        DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS  local
1180                UPLO = ICHU( ICU: ICU )
1191                      CALL SMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1213                         UPLOS = UPLO
1233      $                           UPLO, TRANS, DIAG, N, LDA, INCX
1236                               CALL STRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1241      $                           UPLO, TRANS, DIAG, N, K, LDA, INCX
1244                               CALL STBMV( UPLO, TRANS, DIAG, N, K, AA,
1249      $                           UPLO, TRANS, DIAG, N, INCX
1252                               CALL STPMV( UPLO, TRANS, DIAG, N, AA, XX,
1259      $                           UPLO, TRANS, DIAG, N, LDA, INCX
1262                               CALL STRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1267      $                           UPLO, TRANS, DIAG, N, K, LDA, INCX
1270                               CALL STBSV( UPLO, TRANS, DIAG, N, K, AA,
1275      $                           UPLO, TRANS, DIAG, N, INCX
1278                               CALL STPSV( UPLO, TRANS, DIAG, N, AA, XX,
1293                         ISAME( 1 ) = UPLO.EQ.UPLOS
1400          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1403          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1406          WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1726       CHARACTER*1        UPLO, UPLOS  local
1775             UPLO = ICH( IC: IC )
1776             UPPER = UPLO.EQ.'U'
1799                   CALL SMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1806                   UPLOS = UPLO
1822      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1826                      CALL SSYR( UPLO, N, ALPHA, XX, INCX, AA, LDA )
1829      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1833                      CALL SSPR( UPLO, N, ALPHA, XX, INCX, AA )
1846                   ISAME( 1 ) = UPLO.EQ.UPLOS
1854                      ISAME( 6 ) = LSERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1944          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX, LDA
1946          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX
2005       CHARACTER*1        UPLO, UPLOS  local
2054             UPLO = ICH( IC: IC )
2055             UPPER = UPLO.EQ.'U'
2092                      CALL SMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2100                      UPLOS = UPLO
2120      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2124                         CALL SSYR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2128      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2132                         CALL SSPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2146                      ISAME( 1 ) = UPLO.EQ.UPLOS
2156                         ISAME( 8 ) = LSERES( SNAME( 2: 3 ), UPLO, N, N,
2258          WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2261          WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2612       SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,  argument
2637       CHARACTER*1        DIAG, UPLO  local
2653       UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2654       LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
2935       LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2949       CHARACTER*1        UPLO  local
2957       UPPER = UPLO.EQ.'U'