Lines Matching refs:ptr_X
197 const PetscScalar *ptr_X, *ptr_Y; in SolutionErrorNorms_3WaySplit() local
207 PetscCall(VecGetArrayRead(X, &ptr_X)); in SolutionErrorNorms_3WaySplit()
210 if (i < ctx->sm || i > ctx->ms - 1) *nrm1 += hs * PetscAbs(ptr_X[i] - ptr_Y[i]); in SolutionErrorNorms_3WaySplit()
211 else if (i < ctx->mf || i > ctx->fm - 1) *nrm1 += hm * PetscAbs(ptr_X[i] - ptr_Y[i]); in SolutionErrorNorms_3WaySplit()
212 else *nrm1 += hf * PetscAbs(ptr_X[i] - ptr_Y[i]); in SolutionErrorNorms_3WaySplit()
214 PetscCall(VecRestoreArrayRead(X, &ptr_X)); in SolutionErrorNorms_3WaySplit()
1241 const PetscScalar *ptr_X, *ptr_X0; in main() local
1253 PetscCall(DMDAVecGetArrayRead(da, X, (void *)&ptr_X)); in main()
1258 mass_final = mass_final + hs * ptr_X[i * dof + k]; in main()
1263 mass_final = mass_final + hm * ptr_X[i * dof + k]; in main()
1268 mass_final = mass_final + hf * ptr_X[i * dof + k]; in main()
1273 PetscCall(DMDAVecRestoreArrayRead(da, X, (void *)&ptr_X)); in main()
1297 PetscCall(VecGetArrayRead(X, &ptr_X)); in main()
1301 … for (k = 0; k < dof; k++) nrm1 = nrm1 + hs * PetscAbs(ptr_X[i * dof + k] - ptr_XR[i * dof + k]); in main()
1303 … for (k = 0; k < dof; k++) nrm1 = nrm1 + hm * PetscAbs(ptr_X[i * dof + k] - ptr_XR[i * dof + k]); in main()
1305 … for (k = 0; k < dof; k++) nrm1 = nrm1 + hf * PetscAbs(ptr_X[i * dof + k] - ptr_XR[i * dof + k]); in main()
1307 PetscCall(VecRestoreArrayRead(X, &ptr_X)); in main()