Lines Matching defs:UPLO
824 CHARACTER*1 UPLO, UPLOS
892 UPLO = ICH( IC: IC )
897 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
936 UPLOS = UPLO
959 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
962 CALL ZHEMV( UPLO, N, ALPHA, AA, LDA, XX,
967 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
971 CALL ZHBMV( UPLO, N, K, ALPHA, AA, LDA,
976 $ UPLO, N, ALPHA, INCX, BETA, INCY
979 CALL ZHPMV( UPLO, N, ALPHA, AA, XX, INCX,
993 ISAME( 1 ) = UPLO.EQ.UPLOS
1097 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1100 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1103 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1169 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1243 UPLO = ICHU( ICU: ICU )
1254 CALL ZMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1276 UPLOS = UPLO
1296 $ UPLO, TRANS, DIAG, N, LDA, INCX
1299 CALL ZTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1304 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1307 CALL ZTBMV( UPLO, TRANS, DIAG, N, K, AA,
1312 $ UPLO, TRANS, DIAG, N, INCX
1315 CALL ZTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1322 $ UPLO, TRANS, DIAG, N, LDA, INCX
1325 CALL ZTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1330 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1333 CALL ZTBSV( UPLO, TRANS, DIAG, N, K, AA,
1338 $ UPLO, TRANS, DIAG, N, INCX
1341 CALL ZTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1356 ISAME( 1 ) = UPLO.EQ.UPLOS
1463 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1466 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1469 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1812 CHARACTER*1 UPLO, UPLOS
1861 UPLO = ICH( IC: IC )
1862 UPPER = UPLO.EQ.'U'
1886 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1893 UPLOS = UPLO
1909 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1913 CALL ZHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1916 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1920 CALL ZHPR( UPLO, N, RALPHA, XX, INCX, AA )
1933 ISAME( 1 ) = UPLO.EQ.UPLOS
1941 ISAME( 6 ) = LZERES( SNAME( 2: 3 ), UPLO, N, N, AS,
2031 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
2033 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2098 CHARACTER*1 UPLO, UPLOS
2147 UPLO = ICH( IC: IC )
2148 UPPER = UPLO.EQ.'U'
2185 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2193 UPLOS = UPLO
2213 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2217 CALL ZHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2221 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2225 CALL ZHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2239 ISAME( 1 ) = UPLO.EQ.UPLOS
2249 ISAME( 8 ) = LZERES( SNAME( 2: 3 ), UPLO, N, N,
2351 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2354 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2724 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2754 CHARACTER*1 DIAG, UPLO
2770 UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2771 LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
3079 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3093 CHARACTER*1 UPLO
3101 UPPER = UPLO.EQ.'U'
