Lines Matching defs:UPLO
785 CHARACTER*1 UPLO, UPLOS
853 UPLO = ICH( IC: IC )
858 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
897 UPLOS = UPLO
920 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
923 CALL ZHEMV( UPLO, N, ALPHA, AA, LDA, XX,
928 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
932 CALL ZHBMV( UPLO, N, K, ALPHA, AA, LDA,
937 $ UPLO, N, ALPHA, INCX, BETA, INCY
940 CALL ZHPMV( UPLO, N, ALPHA, AA, XX, INCX,
954 ISAME( 1 ) = UPLO.EQ.UPLOS
1058 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1061 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1064 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1130 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1204 UPLO = ICHU( ICU: ICU )
1215 CALL ZMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1237 UPLOS = UPLO
1257 $ UPLO, TRANS, DIAG, N, LDA, INCX
1260 CALL ZTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1265 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1268 CALL ZTBMV( UPLO, TRANS, DIAG, N, K, AA,
1273 $ UPLO, TRANS, DIAG, N, INCX
1276 CALL ZTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1283 $ UPLO, TRANS, DIAG, N, LDA, INCX
1286 CALL ZTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1291 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1294 CALL ZTBSV( UPLO, TRANS, DIAG, N, K, AA,
1299 $ UPLO, TRANS, DIAG, N, INCX
1302 CALL ZTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1317 ISAME( 1 ) = UPLO.EQ.UPLOS
1424 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1427 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1430 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1773 CHARACTER*1 UPLO, UPLOS
1822 UPLO = ICH( IC: IC )
1823 UPPER = UPLO.EQ.'U'
1847 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1854 UPLOS = UPLO
1870 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1874 CALL ZHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1877 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1881 CALL ZHPR( UPLO, N, RALPHA, XX, INCX, AA )
1894 ISAME( 1 ) = UPLO.EQ.UPLOS
1902 ISAME( 6 ) = LZERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1992 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
1994 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2059 CHARACTER*1 UPLO, UPLOS
2108 UPLO = ICH( IC: IC )
2109 UPPER = UPLO.EQ.'U'
2146 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2154 UPLOS = UPLO
2174 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2178 CALL ZHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2182 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2186 CALL ZHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2200 ISAME( 1 ) = UPLO.EQ.UPLOS
2210 ISAME( 8 ) = LZERES( SNAME( 2: 3 ), UPLO, N, N,
2312 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2315 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2685 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2715 CHARACTER*1 DIAG, UPLO
2731 UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2732 LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
3040 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3054 CHARACTER*1 UPLO
3062 UPPER = UPLO.EQ.'U'
