Lines Matching refs:coordVals
218 static PetscErrorCode PerturbMesh(DM *mesh, PetscScalar *coordVals, PetscInt npoints, PetscInt dim) in PerturbMesh() argument
241 coordVals[dim * i + j] += amp; in PerturbMesh()
250 static PetscErrorCode SkewMesh(DM *mesh, PetscScalar *coordVals, PetscInt npoints, PetscInt dim) in SkewMesh() argument
276 for (k = 0; k < dim; ++k) tmpcoord[j] += coordVals[dim * i + k] * transMat[dim * k + j]; in SkewMesh()
278 for (l = 0; l < dim; ++l) coordVals[dim * i + l] = tmpcoord[l]; in SkewMesh()
290 PetscScalar *coordVals; in TransformMesh() local
295 PetscCall(VecGetArray(coords, &coordVals)); in TransformMesh()
302 PetscCall(PerturbMesh(mesh, coordVals, npoints, dim)); in TransformMesh()
305 PetscCall(SkewMesh(mesh, coordVals, npoints, dim)); in TransformMesh()
308 PetscCall(SkewMesh(mesh, coordVals, npoints, dim)); in TransformMesh()
309 PetscCall(PerturbMesh(mesh, coordVals, npoints, dim)); in TransformMesh()
314 PetscCall(VecRestoreArray(coords, &coordVals)); in TransformMesh()