Home
last modified time | relevance | path

Searched refs:ptr_X (Results 1 – 4 of 4) sorted by relevance

/petsc/src/ts/tutorials/multirate/
H A Dex7.c636 const PetscScalar *ptr_X, *ptr_Y; in SolutionErrorNorms() local
646 PetscCall(VecGetArrayRead(X, &ptr_X)); in SolutionErrorNorms()
649 …if (i < count_slow / 2 || i > count_slow / 2 + count_fast - 1) *nrm1 += hs * PetscAbs(ptr_X[i] - p… in SolutionErrorNorms()
650 else *nrm1 += hf * PetscAbs(ptr_X[i] - ptr_Y[i]); in SolutionErrorNorms()
652 PetscCall(VecRestoreArrayRead(X, &ptr_X)); in SolutionErrorNorms()
767 const PetscScalar *ptr_X, *ptr_X0; in main() local
777 PetscCall(DMDAVecGetArrayRead(da, X, (void *)&ptr_X)); in main()
782 mass_final = mass_final + hs * ptr_X[i * dof + k]; in main()
787 mass_final = mass_final + hf * ptr_X[i * dof + k]; in main()
792 PetscCall(DMDAVecRestoreArrayRead(da, X, (void *)&ptr_X)); in main()
[all …]
H A Dex6.c184 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()
[all …]
H A Dex8.c197 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()
[all …]
H A Dex4.c528 const PetscScalar *ptr_X, *ptr_Y; in SolutionErrorNorms_2WaySplit() local
537 PetscCall(VecGetArrayRead(X, &ptr_X)); in SolutionErrorNorms_2WaySplit()
540 if (i < ctx->sf || i > ctx->fs - 1) *nrm1 += hs * PetscAbs(ptr_X[i] - ptr_Y[i]); in SolutionErrorNorms_2WaySplit()
541 else *nrm1 += hf * PetscAbs(ptr_X[i] - ptr_Y[i]); in SolutionErrorNorms_2WaySplit()
543 PetscCall(VecRestoreArrayRead(X, &ptr_X)); in SolutionErrorNorms_2WaySplit()
1322 const PetscScalar *ptr_X, *ptr_X0; in main() local
1333 PetscCall(DMDAVecGetArrayRead(da, X, (void *)&ptr_X)); in main()
1338 mass_final = mass_final + hs * ptr_X[i * dof + k]; in main()
1343 mass_final = mass_final + hf * ptr_X[i * dof + k]; in main()
1348 PetscCall(DMDAVecRestoreArrayRead(da, X, (void *)&ptr_X)); in main()
[all …]