mpi/mkl_cpardiso/mkl_cpardiso.c

146   PetscInt           rstart, nz, i, j, countA, countB;
183     countB = bi[i + 1] - bi[i];
190     for (j = 0; j < countB; j++) {
205     for (j = jB; j < countB; j++) {
217   PetscInt           rstart, nz, i, j, countA, countB;
254     countB = bi[i + 1] - bi[i];
261     for (j = 0; j < countB; j++) {
278     for (j = jB; j < countB; j++) col[nz++] = garray[bjj[j]] + 1;
279     PetscCall(PetscArraycpy(val, bv, (countB - jB) * bs2));
280     val += (countB - jB) * bs2;
281     bv += (countB - jB) * bs2;
290   PetscInt           rstart, nz, i, j, countA, countB;
326     countB = bi[i + 1] - bi[i];
337     for (j = 0; j < countB; j++) col[nz++] = garray[bjj[j]] + 1;
338     PetscCall(PetscArraycpy(val, bv, countB * bs2));
339     val += countB * bs2;
340     bv += countB * bs2;