99using MultiGridBarrierMPI
1010MultiGridBarrierMPI. Init ()
1111
12- using LinearAlgebraMPI
13- using LinearAlgebraMPI : VectorMPI, MatrixMPI, SparseMatrixMPI , io0
12+ using HPCLinearAlgebra
13+ using HPCLinearAlgebra : HPCVector, HPCMatrix, HPCSparseMatrix , io0
1414using LinearAlgebra
1515using SparseArrays
1616using MultiGridBarrier
@@ -28,7 +28,7 @@ g = fem1d_mpi(Float64; L=2)
2828D_op = [g. operators[:dx ], g. operators[:id ]]
2929n = length (g. w)
3030z_native = sin .(range (0 , π, length= n))
31- z_mpi = VectorMPI (z_native)
31+ z_mpi = HPCVector (z_native)
3232
3333# Apply D operators to get matrix
3434Dz_mpi = hcat ([D * z_mpi for D in D_op]. .. )
@@ -50,10 +50,10 @@ println(io0(), "[DEBUG] Testing column extraction y[:, 1]...")
5050col1 = y_mpi[:, 1 ]
5151println (io0 (), " [DEBUG] col1 type: $(typeof (col1)) " )
5252println (io0 (), " [DEBUG] col1 size: $(size (col1)) " )
53- if col1 isa VectorMPI
53+ if col1 isa HPCVector
5454 println (io0 (), " [DEBUG] col1 partition: $(col1. partition) " )
5555else
56- println (io0 (), " [DEBUG] col1 is NOT a VectorMPI !" )
56+ println (io0 (), " [DEBUG] col1 is NOT a HPCVector !" )
5757end
5858
5959# Test element-wise multiplication
@@ -64,7 +64,7 @@ println(io0(), "[DEBUG] w partition: $(w.partition)")
6464try
6565 w_col = w .* col1
6666 println (io0 (), " [DEBUG] w .* col1 type: $(typeof (w_col)) " )
67- if w_col isa VectorMPI
67+ if w_col isa HPCVector
6868 println (io0 (), " [DEBUG] w .* col1 partition: $(w_col. partition) " )
6969 end
7070 println (io0 (), " [DEBUG] Element-wise multiplication succeeded!" )
8080 foo = MultiGridBarrier. amgb_diag (D, w .* col1)
8181 println (io0 (), " [DEBUG] amgb_diag result type: $(typeof (foo)) " )
8282 println (io0 (), " [DEBUG] amgb_diag result size: $(size (foo)) " )
83- if foo isa SparseMatrixMPI
83+ if foo isa HPCSparseMatrix
8484 println (io0 (), " [DEBUG] amgb_diag row_partition: $(foo. row_partition) " )
8585 println (io0 (), " [DEBUG] amgb_diag col_partition: $(foo. col_partition) " )
8686 end
9999 foo = MultiGridBarrier. amgb_diag (D, w .* col1)
100100 bar = D' * foo * D
101101 println (io0 (), " [DEBUG] D'*foo*D size: $(size (bar)) " )
102- if bar isa SparseMatrixMPI
102+ if bar isa HPCSparseMatrix
103103 println (io0 (), " [DEBUG] D'*foo*D row_partition: $(bar. row_partition) " )
104104 println (io0 (), " [DEBUG] D'*foo*D col_partition: $(bar. col_partition) " )
105105 end
@@ -132,7 +132,7 @@ if rank == 0
132132 println (" [DEBUG] y difference (MPI vs native): $(norm (y_mpi_native - y_native)) " )
133133
134134 col1_native = y_native[:, 1 ]
135- col1_mpi_native = col1 isa VectorMPI ? Vector (col1) : col1
135+ col1_mpi_native = col1 isa HPCVector ? Vector (col1) : col1
136136 println (" [DEBUG] col1 difference: $(norm (col1_mpi_native - col1_native)) " )
137137end
138138
0 commit comments