Searched refs:ncsub (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/mat/tests/ |
| H A D | ex19.c | 37 PetscInt j, nrsub, ncsub, *rsub, *csub, mystart, myend; in main() local
107 ncsub = 4; in main()
108 PetscCall(PetscMalloc1(nrsub * ncsub, &vals)); in main()
110 PetscCall(PetscMalloc1(ncsub, &csub)); in main()
112 for (i = 0; i < ncsub; i++) csub[i] = 2 * (ncsub - i) + mystart; in main()
113 PetscCall(MatGetValues(C, nrsub, rsub, ncsub, csub, vals)); in main()
117 for (j = 0; j < ncsub; j++) { in main()
118 if (PetscImaginaryPart(vals[i * ncsub + j]) != 0.0) { in main()
119 …rsub[i], csub[j], (double)PetscRealPart(vals[i * ncsub + j]), (double)PetscImaginaryPart(vals[i * … in main()
121 …_FMT ", %" PetscInt_FMT "] = %g\n", rsub[i], csub[j], (double)PetscRealPart(vals[i * ncsub + j]))); in main()
|