Searched refs:indexg (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex59.c | 335 PetscInt *indexg, *cols, *colsg; in ComputeSubdomainMatrix() local
342 PetscCall(PetscMalloc1(i, &indexg)); in ComputeSubdomainMatrix()
355 indexg[ii] = k * xloc * yloc + j * xloc + i; in ComputeSubdomainMatrix()
360 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, ii, indexg, PETSC_COPY_VALUES, &submatIS)); in ComputeSubdomainMatrix()
421 indexg[ii] = kg * dd.xm_l * dd.ym_l + jg * dd.xm_l + ig; in ComputeSubdomainMatrix()
428 for (k = 0; k < j; k++) colsg[k] = indexg[cols[k]]; in ComputeSubdomainMatrix()
429 PetscCall(MatSetValues(temp_local_mat, 1, &indexg[i], j, colsg, vals, ADD_VALUES)); in ComputeSubdomainMatrix()
435 PetscCall(PetscFree(indexg)); in ComputeSubdomainMatrix()
|