Searched refs:transMat (Results 1 – 1 of 1) sorted by relevance
253 PetscScalar *transMat; in SkewMesh() local259 PetscCall(PetscCalloc1(dim * dim, &transMat)); in SkewMesh()266 if (i == j) transMat[i * dim + j] = 1.; in SkewMesh()267 else if (j < i) transMat[i * dim + j] = 2 * (j + i) * randVal; in SkewMesh()268 else transMat[i * dim + j] = 0; in SkewMesh()276 for (k = 0; k < dim; ++k) tmpcoord[j] += coordVals[dim * i + k] * transMat[dim * k + j]; in SkewMesh()280 PetscCall(PetscFree(transMat)); in SkewMesh()