Lines Matching refs:UPLO
782 CHARACTER*1 UPLO, UPLOS
850 UPLO = ICH( IC: IC )
855 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
894 UPLOS = UPLO
917 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
920 CALL CHEMV( UPLO, N, ALPHA, AA, LDA, XX,
925 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
929 CALL CHBMV( UPLO, N, K, ALPHA, AA, LDA,
934 $ UPLO, N, ALPHA, INCX, BETA, INCY
937 CALL CHPMV( UPLO, N, ALPHA, AA, XX, INCX,
951 ISAME( 1 ) = UPLO.EQ.UPLOS
1055 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1058 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1061 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1126 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1200 UPLO = ICHU( ICU: ICU )
1211 CALL CMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1233 UPLOS = UPLO
1253 $ UPLO, TRANS, DIAG, N, LDA, INCX
1256 CALL CTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1261 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1264 CALL CTBMV( UPLO, TRANS, DIAG, N, K, AA,
1269 $ UPLO, TRANS, DIAG, N, INCX
1272 CALL CTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1279 $ UPLO, TRANS, DIAG, N, LDA, INCX
1282 CALL CTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1287 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1290 CALL CTBSV( UPLO, TRANS, DIAG, N, K, AA,
1295 $ UPLO, TRANS, DIAG, N, INCX
1298 CALL CTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1313 ISAME( 1 ) = UPLO.EQ.UPLOS
1420 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1423 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1426 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1767 CHARACTER*1 UPLO, UPLOS
1816 UPLO = ICH( IC: IC )
1817 UPPER = UPLO.EQ.'U'
1841 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1848 UPLOS = UPLO
1864 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1868 CALL CHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1871 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1875 CALL CHPR( UPLO, N, RALPHA, XX, INCX, AA )
1888 ISAME( 1 ) = UPLO.EQ.UPLOS
1896 ISAME( 6 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1986 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
1988 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2052 CHARACTER*1 UPLO, UPLOS
2101 UPLO = ICH( IC: IC )
2102 UPPER = UPLO.EQ.'U'
2139 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2147 UPLOS = UPLO
2167 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2171 CALL CHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2175 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2179 CALL CHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2193 ISAME( 1 ) = UPLO.EQ.UPLOS
2203 ISAME( 8 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N,
2305 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2308 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2678 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2707 CHARACTER*1 DIAG, UPLO
2723 UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2724 LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
3032 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3046 CHARACTER*1 UPLO
3054 UPPER = UPLO.EQ.'U'