Lines Matching refs:iwork
737 static PetscErrorCode spbas_mark_row_power(PetscInt *iwork, /* marker-vector */ in spbas_mark_row_power() argument
753 if (minmrk <= j && j < maxmrk && iwork[j] < marker) { in spbas_mark_row_power()
754 …PetscCall(spbas_mark_row_power(iwork, row + in_matrix->icols[row][i], in_matrix, marker / 2, minmr… in spbas_mark_row_power()
755 iwork[j] |= marker; in spbas_mark_row_power()
762 if (minmrk <= j && j < maxmrk) iwork[j] |= 1; in spbas_mark_row_power()
782 PetscInt *iwork; in spbas_power() local
803 PetscCall(PetscCalloc1(PetscMax(ncols, nrows), &iwork)); in spbas_power()
815 PetscCall(spbas_mark_row_power(iwork, i, &in_matrix, marker, i, maxmrk)); in spbas_power()
819 for (j = i; j < maxmrk; j++) nnz += (iwork[j] != 0); in spbas_power()
828 if (iwork[j]) { in spbas_power()
831 iwork[j] = 0; in spbas_power()
836 PetscCall(PetscFree(iwork)); in spbas_power()