Lines Matching refs:ptr_X
184 const PetscScalar *ptr_X, *ptr_Y; in SolutionErrorNorms_2WaySplit() local
193 PetscCall(VecGetArrayRead(X, &ptr_X)); in SolutionErrorNorms_2WaySplit()
196 if (i < ctx->sf || i > ctx->fs - 1) *nrm1 += hs * PetscAbs(ptr_X[i] - ptr_Y[i]); in SolutionErrorNorms_2WaySplit()
197 else *nrm1 += hf * PetscAbs(ptr_X[i] - ptr_Y[i]); in SolutionErrorNorms_2WaySplit()
199 PetscCall(VecRestoreArrayRead(X, &ptr_X)); in SolutionErrorNorms_2WaySplit()
879 const PetscScalar *ptr_X, *ptr_X0; in main() local
890 PetscCall(DMDAVecGetArrayRead(da, X, (void *)&ptr_X)); in main()
895 mass_final = mass_final + hs * ptr_X[i * dof + k]; in main()
900 mass_final = mass_final + hf * ptr_X[i * dof + k]; in main()
905 PetscCall(DMDAVecRestoreArrayRead(da, X, (void *)&ptr_X)); in main()
929 PetscCall(VecGetArrayRead(X, &ptr_X)); in main()
933 … for (k = 0; k < dof; k++) nrm1 = nrm1 + hs * PetscAbs(ptr_X[i * dof + k] - ptr_XR[i * dof + k]); in main()
935 … for (k = 0; k < dof; k++) nrm1 = nrm1 + hf * PetscAbs(ptr_X[i * dof + k] - ptr_XR[i * dof + k]); in main()
937 PetscCall(VecRestoreArrayRead(X, &ptr_X)); in main()