Lines Matching refs:UPLO
768 CHARACTER*1 UPLO, UPLOS
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
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
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
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,
2637 CHARACTER*1 DIAG, UPLO
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
2957 UPPER = UPLO.EQ.'U'