Lines Matching refs:fshift

677   PetscInt      fshift = 0, i, *ai = a->i, *aj = a->j, *imax = a->imax;  in MatAssemblyEnd_SeqSBAIJ()  local
688 fshift += imax[i - 1] - ailen[i - 1]; in MatAssemblyEnd_SeqSBAIJ()
690 if (fshift) { in MatAssemblyEnd_SeqSBAIJ()
694 PetscCall(PetscArraymove(ip - fshift, ip, N)); in MatAssemblyEnd_SeqSBAIJ()
695 PetscCall(PetscArraymove(ap - bs2 * fshift, ap, bs2 * N)); in MatAssemblyEnd_SeqSBAIJ()
700 fshift += imax[mbs - 1] - ailen[mbs - 1]; in MatAssemblyEnd_SeqSBAIJ()
707fshift || a->nounused != -1, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Unused space detected in matrix: %"… in MatAssemblyEnd_SeqSBAIJ()
709 …t_FMT " unneeded, %" PetscInt_FMT " used\n", m, A->rmap->N, A->rmap->bs, fshift * bs2, a->nz * bs2… in MatAssemblyEnd_SeqSBAIJ()
715 A->info.nz_unneeded = (PetscReal)fshift * bs2; in MatAssemblyEnd_SeqSBAIJ()
1143 PetscInt fshift = 0, fshift_prev = 0, i, *ai = a->i, *aj = a->j, *imax = a->imax, j, k; in MatEliminateZeros_SeqSBAIJ() local
1159 if (zero && (aj[k] != i - 1 || !keep)) fshift++; in MatEliminateZeros_SeqSBAIJ()
1162 aj[k - fshift] = aj[k]; in MatEliminateZeros_SeqSBAIJ()
1163 PetscCall(PetscArraymove(ap - bs2 * fshift, ap, bs2)); in MatEliminateZeros_SeqSBAIJ()
1167 fshift_prev = fshift; in MatEliminateZeros_SeqSBAIJ()
1168 ailen[i - 1] = imax[i - 1] = ai[i] - fshift - ai[i - 1]; in MatEliminateZeros_SeqSBAIJ()
1169 a->nonzerorowcnt += ((ai[i] - fshift - ai[i - 1]) > 0); in MatEliminateZeros_SeqSBAIJ()
1172 if (fshift) { in MatEliminateZeros_SeqSBAIJ()
1174 ai[mbs] -= fshift; in MatEliminateZeros_SeqSBAIJ()
1177 …eliminated: %" PetscInt_FMT "; nonzeros left: %" PetscInt_FMT "\n", m, A->cmap->n, fshift, a->nz)); in MatEliminateZeros_SeqSBAIJ()
1179 A->info.nz_unneeded += (PetscReal)fshift; in MatEliminateZeros_SeqSBAIJ()