Lines Matching refs:awedgeMat
227 …etscDTAltVWedgeMatrix(PetscInt N, PetscInt j, PetscInt k, const PetscReal *a, PetscReal *awedgeMat) in PetscDTAltVWedgeMatrix() argument
240 for (i = 0; i < Njk * Njk; i++) awedgeMat[i] = 0.; in PetscDTAltVWedgeMatrix()
241 for (i = 0; i < Njk; i++) awedgeMat[i * (Njk + 1)] = a[0]; in PetscDTAltVWedgeMatrix()
243 for (i = 0; i < Njk; i++) awedgeMat[i] = a[i]; in PetscDTAltVWedgeMatrix()
246 awedgeMat[0] = -a[1]; in PetscDTAltVWedgeMatrix()
247 awedgeMat[1] = a[0]; in PetscDTAltVWedgeMatrix()
250 awedgeMat[0] = -a[1]; in PetscDTAltVWedgeMatrix()
251 awedgeMat[1] = a[0]; in PetscDTAltVWedgeMatrix()
252 awedgeMat[2] = 0.; in PetscDTAltVWedgeMatrix()
253 awedgeMat[3] = -a[2]; in PetscDTAltVWedgeMatrix()
254 awedgeMat[4] = 0.; in PetscDTAltVWedgeMatrix()
255 awedgeMat[5] = a[0]; in PetscDTAltVWedgeMatrix()
256 awedgeMat[6] = 0.; in PetscDTAltVWedgeMatrix()
257 awedgeMat[7] = -a[2]; in PetscDTAltVWedgeMatrix()
258 awedgeMat[8] = a[1]; in PetscDTAltVWedgeMatrix()
260 awedgeMat[0] = a[2]; in PetscDTAltVWedgeMatrix()
261 awedgeMat[1] = -a[1]; in PetscDTAltVWedgeMatrix()
262 awedgeMat[2] = a[0]; in PetscDTAltVWedgeMatrix()
276 for (i = 0; i < Njk * Nk; i++) awedgeMat[i] = 0.; in PetscDTAltVWedgeMatrix()
290 awedgeMat[i * Nk + kInd] += jkOdd ? -a[jInd] : a[jInd]; in PetscDTAltVWedgeMatrix()