Lines Matching defs:UPLO
821 CHARACTER*1 UPLO, UPLOS
889 UPLO = ICH( IC: IC )
894 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
933 UPLOS = UPLO
956 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
959 CALL CHEMV( UPLO, N, ALPHA, AA, LDA, XX,
964 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
968 CALL CHBMV( UPLO, N, K, ALPHA, AA, LDA,
973 $ UPLO, N, ALPHA, INCX, BETA, INCY
976 CALL CHPMV( UPLO, N, ALPHA, AA, XX, INCX,
990 ISAME( 1 ) = UPLO.EQ.UPLOS
1094 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1097 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1100 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1165 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1239 UPLO = ICHU( ICU: ICU )
1250 CALL CMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1272 UPLOS = UPLO
1292 $ UPLO, TRANS, DIAG, N, LDA, INCX
1295 CALL CTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1300 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1303 CALL CTBMV( UPLO, TRANS, DIAG, N, K, AA,
1308 $ UPLO, TRANS, DIAG, N, INCX
1311 CALL CTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1318 $ UPLO, TRANS, DIAG, N, LDA, INCX
1321 CALL CTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1326 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1329 CALL CTBSV( UPLO, TRANS, DIAG, N, K, AA,
1334 $ UPLO, TRANS, DIAG, N, INCX
1337 CALL CTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1352 ISAME( 1 ) = UPLO.EQ.UPLOS
1459 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1462 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1465 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1806 CHARACTER*1 UPLO, UPLOS
1855 UPLO = ICH( IC: IC )
1856 UPPER = UPLO.EQ.'U'
1880 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1887 UPLOS = UPLO
1903 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1907 CALL CHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1910 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1914 CALL CHPR( UPLO, N, RALPHA, XX, INCX, AA )
1927 ISAME( 1 ) = UPLO.EQ.UPLOS
1935 ISAME( 6 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N, AS,
2025 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
2027 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2091 CHARACTER*1 UPLO, UPLOS
2140 UPLO = ICH( IC: IC )
2141 UPPER = UPLO.EQ.'U'
2178 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2186 UPLOS = UPLO
2206 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2210 CALL CHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2214 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2218 CALL CHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2232 ISAME( 1 ) = UPLO.EQ.UPLOS
2242 ISAME( 8 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N,
2344 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2347 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2717 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2746 CHARACTER*1 DIAG, UPLO
2762 UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2763 LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
3071 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3085 CHARACTER*1 UPLO
3093 UPPER = UPLO.EQ.'U'
