Searched refs:boundary_values (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/mat/tests/ |
| H A D | ex18.c | 13 PetscScalar v, v0, v1, v2, a0 = 0.1, a, rhsval, *boundary_values, diag = 1.0; in main() local
152 …all(PetscMalloc2(nboundary_nodes * bs, &boundary_indices, nboundary_nodes * bs, &boundary_values)); in main()
158 boundary_values[k * bs + b] = v; in main()
164 …PetscCall(VecSetValues(x, nboundary_nodes * bs, boundary_indices, boundary_values, INSERT_VALUES)); in main()
172 for (k = 0; k < nboundary_nodes * bs; k++) boundary_values[k] *= diag; in main()
173 …PetscCall(VecSetValues(y, nboundary_nodes * bs, boundary_indices, boundary_values, INSERT_VALUES)); in main()
193 PetscCall(PetscFree2(boundary_indices, boundary_values)); in main()
|