mpi/mkl_cpardiso/mkl_cpardiso.c

146   PetscInt           rstart, nz, i, j, countA, countB;
182     countA = ai[i + 1] - ai[i];
199     for (j = 0; j < countA; j++) {
217   PetscInt           rstart, nz, i, j, countA, countB;
253     countA = ai[i + 1] - ai[i];
259     colA_start = rstart + (countA > 0 ? ajj[0] : 0); /* the smallest global col index of A */
272     for (j = 0; j < countA; j++) col[nz++] = rstart + ajj[j] + 1;
273     PetscCall(PetscArraycpy(val, av, countA * bs2));
274     val += countA * bs2;
275     av += countA * bs2;
290   PetscInt           rstart, nz, i, j, countA, countB;
325     countA = ai[i + 1] - ai[i];
331     for (j = 0; j < countA; j++) col[nz++] = rstart + ajj[j] + 1;
332     PetscCall(PetscArraycpy(val, av, countA * bs2));
333     val += countA * bs2;
334     av += countA * bs2;