Searched refs:etaComp (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/snes/tutorials/ |
| H A D | ex7.c | 476 Vec *etaComp, *DComp; in TestFreeField() local
479 PetscCall(PetscMalloc2(Nc, &etaComp, Nc, &DComp)); in TestFreeField()
486 PetscCall(VecCreate(PetscObjectComm((PetscObject)etaHat), &etaComp[i])); in TestFreeField()
488 PetscCall(VecSetType(etaComp[i], vtype)); in TestFreeField()
489 PetscCall(VecSetSizes(etaComp[i], n / Nc, N / Nc)); in TestFreeField()
490 PetscCall(VecDuplicate(etaComp[i], &DComp[i])); in TestFreeField()
492 PetscCall(VecStrideGatherAll(etaHat, etaComp, INSERT_VALUES)); in TestFreeField()
496 PetscCall(VecViewFromOptions(etaComp[i], NULL, "-etahat_view")); in TestFreeField()
499 PetscCall(VecAXPY(etaComp[i], -1., DComp[i])); in TestFreeField()
500 PetscCall(VecNorm(etaComp[i], NORM_INFINITY, &nrm)); in TestFreeField()
[all …]
|