| /petsc/src/ksp/pc/impls/composite/ |
| H A D | composite.c | 10 PC_CompositeLink next; member
26 PC_CompositeLink next = jac->head; in PCApply_Composite_Multiplicative() local
30 …PetscCheck(next, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "No composite precond… in PCApply_Composite_Multiplicative()
33 while (next) { in PCApply_Composite_Multiplicative()
34 PetscCall(PCSetReusePreconditioner(next->pc, pc->reusepreconditioner)); in PCApply_Composite_Multiplicative()
35 next = next->next; in PCApply_Composite_Multiplicative()
37 next = jac->head; in PCApply_Composite_Multiplicative()
39 if (next->next && !jac->work2) { /* allocate second work vector */ in PCApply_Composite_Multiplicative()
43 PetscCall(PCApply(next->pc, x, y)); /* y <- B x */ in PCApply_Composite_Multiplicative()
44 while (next->next) { in PCApply_Composite_Multiplicative()
[all …]
|
| /petsc/src/sys/utils/ |
| H A D | server.c | 21 PetscShmgetAllocation next; member
50 PetscShmgetAllocation next = allocations, previous = NULL; in PetscShmgetAddressesFinalize() local
52 while (next) { in PetscShmgetAddressesFinalize()
53 …next->shmid, IPC_RMID, NULL), PETSC_COMM_SELF, PETSC_ERR_SYS, "Unable to free shared memory key %d… in PetscShmgetAddressesFinalize()
54 previous = next; in PetscShmgetAddressesFinalize()
55 next = next->next; in PetscShmgetAddressesFinalize()
115 allocation = allocation->next; in PetscShmgetMapAddresses()
131 PetscShmgetAllocation next = allocations, previous = NULL; in PetscShmgetMapAddresses() local
135 while (next) { in PetscShmgetMapAddresses()
136 if (next->shmkey == shmkey) addres[i] = next->addr; in PetscShmgetMapAddresses()
[all …]
|
| /petsc/src/dm/impls/composite/ |
| H A D | pack.c | 56 struct DMCompositeLink *next, *prev; in DMDestroy_Composite() local
60 next = com->next; in DMDestroy_Composite()
61 while (next) { in DMDestroy_Composite()
62 prev = next; in DMDestroy_Composite()
63 next = next->next; in DMDestroy_Composite()
82 struct DMCompositeLink *lnk = com->next; in DMView_Composite()
88 for (i = 0; lnk; lnk = lnk->next, i++) { in DMView_Composite()
104 struct DMCompositeLink *next = com->next; in DMSetUp_Composite() local
121 while (next) { in DMSetUp_Composite()
122 next->rstart = nprev; in DMSetUp_Composite()
[all …]
|
| H A D | packm.c | 20 for (i = 0, rlink = com->next; rlink; i++, rlink = rlink->next) { in DMCreateMatrix_Composite_Nest()
21 for (j = 0, clink = com->next; clink; j++, clink = clink->next) { in DMCreateMatrix_Composite_Nest()
45 struct DMCompositeLink *next; in DMCreateMatrix_Composite_AIJ() local
86 next = com->next; in DMCreateMatrix_Composite_AIJ()
87 while (next) { in DMCreateMatrix_Composite_AIJ()
94 PetscCall(DMGetMatType(next->dm, &tmp)); in DMCreateMatrix_Composite_AIJ()
96 PetscCall(DMSetMatType(next->dm, MATAIJ)); in DMCreateMatrix_Composite_AIJ()
97 PetscCall(DMCreateMatrix(next->dm, &Atmp)); in DMCreateMatrix_Composite_AIJ()
115 ccols[j] = cols[j] + next->grstarts[proc] - rstarts[proc]; in DMCreateMatrix_Composite_AIJ()
117 PetscCall(MatPreallocateSet(com->rstart + next->rstart + i, nc, ccols, dnz, onz)); in DMCreateMatrix_Composite_AIJ()
[all …]
|
| /petsc/src/snes/impls/composite/ |
| H A D | snescomposite.c | 14 SNES_CompositeLink next; member
50 SNES_CompositeLink next = jac->head; in SNESCompositeApply_Multiplicative() local
55 …PetscCheck(next, PetscObjectComm((PetscObject)snes), PETSC_ERR_ARG_WRONGSTATE, "No composite SNESe… in SNESCompositeApply_Multiplicative()
56 if (snes->normschedule == SNES_NORM_ALWAYS) PetscCall(SNESSetInitialFunction(next->snes, F)); in SNESCompositeApply_Multiplicative()
57 PetscCall(SNESSolve(next->snes, B, X)); in SNESCompositeApply_Multiplicative()
58 PetscCall(SNESGetConvergedReason(next->snes, &reason)); in SNESCompositeApply_Multiplicative()
67 while (next->next) { in SNESCompositeApply_Multiplicative()
69 if (next->snes->npcside == PC_RIGHT && next->snes->normschedule != SNES_NORM_NONE) { in SNESCompositeApply_Multiplicative()
70 PetscCall(SNESGetFunction(next->snes, &FSub, NULL, NULL)); in SNESCompositeApply_Multiplicative()
71 next = next->next; in SNESCompositeApply_Multiplicative()
[all …]
|
| /petsc/src/sys/objects/ |
| H A D | aoptions.c | 45 PetscOptionsObject->next = NULL; in PetscOptionsBegin_Private()
90 (*amsopt)->next = NULL; in PetscOptionItemCreate_Private()
100 PetscOptionItem cur = PetscOptionsObject->next; in PetscOptionItemCreate_Private()
102 while (cur->next) cur = cur->next; in PetscOptionItemCreate_Private()
103 cur->next = *amsopt; in PetscOptionItemCreate_Private()
158 PetscOptionItem next = PetscOptionsObject->next; in PetscOptionsSAWsInput() local
179 while (next) { in PetscOptionsSAWsInput()
182 PetscCallSAWs(SAWs_Register, (dir, &next->man, 1, SAWs_READ, SAWs_STRING)); in PetscOptionsSAWsInput()
185 PetscCallSAWs(SAWs_Register, (dir, &next->text, 1, SAWs_READ, SAWs_STRING)); in PetscOptionsSAWsInput()
187 switch (next->type) { in PetscOptionsSAWsInput()
[all …]
|
| H A D | olist.c | 45 nlist = nlist->next; in PetscObjectListRemoveReference()
83 if (prev) prev->next = nlist->next; in PetscObjectListAdd()
84 else if (nlist->next) *fl = nlist->next; in PetscObjectListAdd()
91 nlist = nlist->next; in PetscObjectListAdd()
106 nlist = nlist->next; in PetscObjectListAdd()
111 olist->next = NULL; in PetscObjectListAdd()
119 while (nlist->next) nlist = nlist->next; in PetscObjectListAdd()
120 nlist->next = olist; in PetscObjectListAdd()
146 tmp = fl->next; in PetscObjectListDestroy()
188 fl = fl->next; in PetscObjectListFind()
[all …]
|
| H A D | fcallback.c | 7 FortranCallbackLink next; member
24 FortranCallbackLink next, link = base->subtypes; in PetscFortranCallbackFinalize() local
25 for (; link; link = next) { in PetscFortranCallbackFinalize()
26 next = link->next; in PetscFortranCallbackFinalize()
77 …for (link = base->subtypes; link; link = link->next) { /* look for either both NULL or matching va… in PetscFortranCallbackRegister()
89 link->next = base->subtypes; in PetscFortranCallbackRegister()
|
| /petsc/src/mat/impls/composite/ |
| H A D | mcomposite.c | 9 Mat_CompositeLink next, prev; member
34 Mat_CompositeLink next, oldnext; in MatDestroy_Composite() local
39 next = shell->head; in MatDestroy_Composite()
40 while (next) { in MatDestroy_Composite()
41 PetscCall(MatDestroy(&next->mat)); in MatDestroy_Composite()
42 …if (next->work && (!next->next || next->work != next->next->work)) PetscCall(VecDestroy(&next->wor… in MatDestroy_Composite()
43 oldnext = next; in MatDestroy_Composite()
44 next = next->next; in MatDestroy_Composite()
76 Mat_CompositeLink next; in MatMult_Composite_Multiplicative() local
81 next = shell->head; in MatMult_Composite_Multiplicative()
[all …]
|
| /petsc/src/snes/impls/fas/ |
| H A D | fas.c | 19 if (fas->next) PetscCall(SNESReset(fas->next)); in SNESReset_FAS()
30 PetscCall(SNESDestroy(&fas->next)); in SNESDestroy_FAS()
81 SNES next; in SNESSetUp_FAS() local
95 PetscCall(SNESFASCycleGetCorrection(snes, &next)); in SNESSetUp_FAS()
108 if (next) { in SNESSetUp_FAS()
110 if (!next->dm) { in SNESSetUp_FAS()
111 PetscCall(DMCoarsen(snes->dm, PetscObjectComm((PetscObject)next), &next->dm)); in SNESSetUp_FAS()
112 PetscCall(SNESSetDM(next, next->dm)); in SNESSetUp_FAS()
116 PetscCall(DMCreateInterpolation(next->dm, snes->dm, &fas->interpolate, &fas->rscale)); in SNESSetUp_FAS()
118 PetscCall(DMHasCreateRestriction(next->dm, &hasCreateRestriction)); in SNESSetUp_FAS()
[all …]
|
| /petsc/src/ksp/ksp/utils/lmvm/dfp/ |
| H A D | dfp.c | 21 PetscInt oldest, next; in DFPKernel_Recursive() local
24 PetscCall(MatLMVMGetRange(B, &oldest, &next)); in DFPKernel_Recursive()
28 if (next > oldest) { in DFPKernel_Recursive()
31 PetscCall(PetscMalloc1(next - oldest, &alpha)); in DFPKernel_Recursive()
33 for (PetscInt i = next - 1; i >= oldest; i--) { in DFPKernel_Recursive()
47 for (PetscInt i = oldest; i < next; i++) { in DFPKernel_Recursive()
61 if (next > oldest) { in DFPKernel_Recursive()
70 PetscInt oldest, next; in DFPKernel_CompactDense() local
74 PetscCall(MatLMVMGetRange(B, &oldest, &next)); in DFPKernel_CompactDense()
75 if (next > oldest) { in DFPKernel_CompactDense()
[all …]
|
| /petsc/src/ksp/ksp/utils/lmvm/bfgs/ |
| H A D | bfgs.c | 15 …BFGSKernel_Recursive_Inner(Mat B, MatLMVMMode mode, PetscInt oldest, PetscInt next, Vec X, Vec B0X) in BFGSKernel_Recursive_Inner() argument
31 PetscCall(LMBasisGEMVH(BkS, oldest, next, 1.0, X, 0.0, StBkX)); in BFGSKernel_Recursive_Inner()
32 PetscCall(LMProductsSolve(StBkS, oldest, next, StBkX, StBkX, /* ^H */ PETSC_FALSE)); in BFGSKernel_Recursive_Inner()
33 PetscCall(LMBasisGEMV(BkS, oldest, next, -1.0, StBkX, 1.0, B0X)); in BFGSKernel_Recursive_Inner()
34 PetscCall(LMBasisGEMVH(Y, oldest, next, 1.0, X, 0.0, YtX)); in BFGSKernel_Recursive_Inner()
35 PetscCall(LMProductsSolve(YtS, oldest, next, YtX, YtX, /* ^H */ PETSC_FALSE)); in BFGSKernel_Recursive_Inner()
36 PetscCall(LMBasisGEMV(Y, oldest, next, 1.0, YtX, 1.0, B0X)); in BFGSKernel_Recursive_Inner()
55 PetscInt oldest, start, next; in BFGSRecursiveBasisUpdate() local
60 PetscCall(MatLMVMGetRange(B, &oldest, &next)); in BFGSRecursiveBasisUpdate()
65 PetscCall(LMProductsPrepare(StBkS, lmvm->J0, oldest, next)); in BFGSRecursiveBasisUpdate()
[all …]
|
| /petsc/src/ksp/ksp/utils/lmvm/ |
| H A D | lmproducts.c | 57 …s dots, PetscObjectId operator_id, PetscObjectState operator_state, PetscInt oldest, PetscInt next) in LMProductsPrepare_Internal() argument
72 PetscInt oldest, next; in LMProductsPrepareFromBases() local
77 PetscCall(LMBasisGetRange(X, &oldest, &next)); in LMProductsPrepareFromBases()
78 PetscCall(LMProductsPrepare_Internal(dots, operator_id, operator_state, oldest, next)); in LMProductsPrepareFromBases()
82 …SC_INTERN PetscErrorCode LMProductsPrepare(LMProducts dots, Mat op, PetscInt oldest, PetscInt next) in LMProductsPrepare() argument
90 PetscCall(LMProductsPrepare_Internal(dots, operator_id, operator_state, oldest, next)); in LMProductsPrepare()
94 …de LMProductsUpdate_Internal(LMProducts dots, LMBasis X, LMBasis Y, PetscInt oldest, PetscInt next) in LMProductsUpdate_Internal() argument
109 if (start == next) PetscFunctionReturn(PETSC_SUCCESS); in LMProductsUpdate_Internal()
113 for (PetscInt i = start; i < next; i++) { in LMProductsUpdate_Internal()
131 for (PetscInt i = start; i < next; i++) { in LMProductsUpdate_Internal()
[all …]
|
| H A D | lmbasis.c | 101 Vec next; in LMBasisSetNextVec() local
104 PetscCall(LMBasisGetNextVec(basis, &next)); in LMBasisSetNextVec()
105 PetscCall(VecCopy(single, next)); in LMBasisSetNextVec()
106 PetscCall(LMBasisRestoreNextVec(basis, &next)); in LMBasisSetNextVec()
123 VecLink next = head->next; in LMBasisDestroy() local
127 head = next; in LMBasisDestroy()
135 VecLink next = head->next; in LMBasisDestroy() local
139 head = next; in LMBasisDestroy()
157 basis->work_vecs_available = link->next; in LMBasisGetWorkVec()
158 link->next = basis->work_vecs_in_use; in LMBasisGetWorkVec()
[all …]
|
| /petsc/src/ksp/ksp/utils/lmvm/brdn/ |
| H A D | badbrdn.c | 60 … BadBroydenKernel_Recursive_Inner(Mat B, MatLMVMMode mode, PetscInt oldest, PetscInt next, Vec B0X) in BadBroydenKernel_Recursive_Inner() argument
72 for (PetscInt i = oldest; i < next; i++) { in BadBroydenKernel_Recursive_Inner()
102 PetscInt oldest, next; in BadBroydenRecursiveBasisUpdate() local
113 PetscCall(MatLMVMGetRange(B, &oldest, &next)); in BadBroydenRecursiveBasisUpdate()
115 PetscCall(LMProductsPrepare(YtBkS, lmvm->J0, oldest, next)); in BadBroydenRecursiveBasisUpdate()
123 for (PetscInt j = start; j < next; j++) { in BadBroydenRecursiveBasisUpdate()
150 PetscInt oldest, next; in BadBroydenKernel_Recursive() local
154 PetscCall(MatLMVMGetRange(B, &oldest, &next)); in BadBroydenKernel_Recursive()
155 if (next > oldest) { in BadBroydenKernel_Recursive()
157 PetscCall(BadBroydenKernel_Recursive_Inner(B, mode, oldest, next, Y)); in BadBroydenKernel_Recursive()
[all …]
|
| H A D | brdn.c | 54 PetscInt oldest, next; in BroydenKernel_Recursive() local
57 PetscCall(MatLMVMGetRange(B, &oldest, &next)); in BroydenKernel_Recursive()
58 if (next > oldest) { in BroydenKernel_Recursive()
69 for (PetscInt i = next - 1; i >= oldest; i--) { in BroydenKernel_Recursive()
89 if (next > oldest) { in BroydenKernel_Recursive()
109 PetscInt oldest, next; in BroydenKernelHermitianTranspose_Recursive() local
113 PetscCall(MatLMVMGetRange(B, &oldest, &next)); in BroydenKernelHermitianTranspose_Recursive()
114 if (next > oldest) { in BroydenKernelHermitianTranspose_Recursive()
124 for (PetscInt i = oldest; i < next; i++) { in BroydenKernelHermitianTranspose_Recursive()
155 PetscInt oldest, next; in BroydenKernel_CompactDense() local
[all …]
|
| /petsc/src/ksp/ksp/utils/lmvm/blas_cyclic/cupm/ |
| H A D | blas_cyclic_cupm.cxx | 30 PETSC_INTERN PetscErrorCode AXPBYCyclic_CUPM_Private(PetscInt m, PetscInt oldest, PetscInt next, Pe… in AXPBYCyclic_CUPM_Private() argument
41 …ASCyclic<::Petsc::device::cupm::DeviceType::CUDA>::axpby(dctx, m, oldest, next, alpha, x, beta, y,… in AXPBYCyclic_CUPM_Private()
46 …LASCyclic<::Petsc::device::cupm::DeviceType::HIP>::axpby(dctx, m, oldest, next, alpha, x, beta, y,… in AXPBYCyclic_CUPM_Private()
55 …vate(PetscBool hermitian_transpose, PetscInt m, PetscInt oldest, PetscInt next, PetscScalar alpha,… in DMVCyclic_CUPM_Private() argument
66 …evice::cupm::DeviceType::CUDA>::dmv(dctx, hermitian_transpose, m, oldest, next, alpha, A, x, beta,… in DMVCyclic_CUPM_Private()
71 …device::cupm::DeviceType::HIP>::dmv(dctx, hermitian_transpose, m, oldest, next, alpha, A, x, beta,… in DMVCyclic_CUPM_Private()
80 …vate(PetscBool hermitian_transpose, PetscInt m, PetscInt oldest, PetscInt next, const PetscScalar … in DSVCyclic_CUPM_Private() argument
91 …:Petsc::device::cupm::DeviceType::CUDA>::dsv(dctx, hermitian_transpose, m, oldest, next, A, x, y)); in DSVCyclic_CUPM_Private()
96 …::Petsc::device::cupm::DeviceType::HIP>::dsv(dctx, hermitian_transpose, m, oldest, next, A, x, y)); in DSVCyclic_CUPM_Private()
105 …vate(PetscBool hermitian_transpose, PetscInt m, PetscInt oldest, PetscInt next, const PetscScalar … in TRSVCyclic_CUPM_Private() argument
[all …]
|
| /petsc/src/ksp/ksp/utils/lmvm/sr1/ |
| H A D | sr1.c | 45 …e SR1Kernel_Recursive_Inner(Mat B, MatLMVMMode mode, PetscInt oldest, PetscInt next, Vec X, Vec BX) in SR1Kernel_Recursive_Inner() argument
57 PetscCall(LMBasisGEMVH(Y_minus_BkS, oldest, next, 1.0, X, 0.0, YmBkStX)); in SR1Kernel_Recursive_Inner()
58 PetscCall(LMProductsSolve(YtS_minus_StBkS, oldest, next, YmBkStX, YmBkStX, /* ^H */ PETSC_FALSE)); in SR1Kernel_Recursive_Inner()
59 PetscCall(LMBasisGEMV(Y_minus_BkS, oldest, next, 1.0, YmBkStX, 1.0, BX)); in SR1Kernel_Recursive_Inner()
77 PetscInt oldest, next; in SR1RecursiveBasisUpdate() local
89 PetscCall(MatLMVMGetRange(B, &oldest, &next)); in SR1RecursiveBasisUpdate()
91 PetscCall(LMProductsPrepare(YtS_minus_StBkS, lmvm->J0, oldest, next)); in SR1RecursiveBasisUpdate()
99 for (PetscInt j = start; j < next; j++) { in SR1RecursiveBasisUpdate()
128 PetscInt oldest, next; in SR1Kernel_Recursive() local
132 PetscCall(MatLMVMGetRange(B, &oldest, &next)); in SR1Kernel_Recursive()
[all …]
|
| /petsc/src/sys/fileio/ |
| H A D | mprint.c | 462 PrintfQueue next; in PetscSynchronizedFPrintf_Private() local
465 PetscCall(PetscNew(&next)); in PetscSynchronizedFPrintf_Private()
467 petsc_printfqueue->next = next; in PetscSynchronizedFPrintf_Private()
468 petsc_printfqueue = next; in PetscSynchronizedFPrintf_Private()
469 petsc_printfqueue->next = NULL; in PetscSynchronizedFPrintf_Private()
470 } else petsc_printfqueuebase = petsc_printfqueue = next; in PetscSynchronizedFPrintf_Private()
472 next->size = 0; in PetscSynchronizedFPrintf_Private()
473 next->string = NULL; in PetscSynchronizedFPrintf_Private()
474 while (fullLength >= next->size) { in PetscSynchronizedFPrintf_Private()
475 next->size = fullLength + 1; in PetscSynchronizedFPrintf_Private()
[all …]
|
| /petsc/src/sys/classes/viewer/impls/vu/ |
| H A D | petscvu.c | 8 PrintfQueue next; member
261 PrintfQueue next; in PetscViewerVUPrintDeferred() local
264 PetscCall(PetscNew(&next)); in PetscViewerVUPrintDeferred()
266 vu->queue->next = next; in PetscViewerVUPrintDeferred()
267 vu->queue = next; in PetscViewerVUPrintDeferred()
268 vu->queue->next = NULL; in PetscViewerVUPrintDeferred()
270 vu->queueBase = vu->queue = next; in PetscViewerVUPrintDeferred()
275 PetscCall(PetscArrayzero(next->string, QUEUESTRINGSIZE)); in PetscViewerVUPrintDeferred()
276 PetscCall(PetscVSNPrintf(next->string, QUEUESTRINGSIZE, format, &fullLength, Argp)); in PetscViewerVUPrintDeferred()
296 PrintfQueue next = vu->queueBase; in PetscViewerVUFlushDeferred() local
[all …]
|
| /petsc/src/ts/event/tests/output/ |
| H A D | ex16_3.out | 1 [0] TSEvent: iter 0 - Event 0 refining the bracket with sign change [1. - 1.5], next stepping to 1.1
2 [0] TSEvent: iter 0 - Event 1 refining the bracket with sign change [1. - 1.5], next stepping to 1.1
3 [0] TSEvent: iter 0 - Event 2 refining the bracket with sign change [1. - 1.5], next stepping to 1.1
6 [0] TSEvent: iter 0 - Event 1 refining the bracket with sign change [1.1 - 1.5], next stepping to 1…
7 [0] TSEvent: iter 0 - Event 2 refining the bracket with sign change [1.1 - 1.5], next stepping to 1…
10 [0] TSEvent: iter 0 - Event 2 refining the bracket with sign change [1.2 - 1.5], next stepping to 1…
|
| /petsc/src/snes/impls/multiblock/ |
| H A D | multiblock.c | 13 BlockDesc next, previous; member
29 BlockDesc blocks = mb->blocks, next; in SNESReset_Multiblock() local
39 next = blocks->next; in SNESReset_Multiblock()
40 blocks = next; in SNESReset_Multiblock()
56 BlockDesc blocks = mb->blocks, next; in SNESDestroy_Multiblock() local
61 next = blocks->next; in SNESDestroy_Multiblock()
66 blocks = next; in SNESDestroy_Multiblock()
224 blocks = blocks->next; in SNESSetUp_Multiblock()
235 ilink = ilink->next; in SNESSetUp_Multiblock()
240 ilink = ilink->next; in SNESSetUp_Multiblock()
[all …]
|
| /petsc/src/ksp/pc/impls/redistribute/ |
| H A D | redistribute.c | 11 PC_FieldSplitLink next, previous; member
31 PC_FieldSplitLink *next = &red->splitlinks; in PCFieldSplitSetIS_Redistribute() local
34 while (*next) next = &(*next)->next; in PCFieldSplitSetIS_Redistribute()
35 PetscCall(PetscNew(next)); in PCFieldSplitSetIS_Redistribute()
37 PetscCall(PetscStrallocpy(splitname, &(*next)->splitname)); in PCFieldSplitSetIS_Redistribute()
39 PetscCall(PetscMalloc1(8, &(*next)->splitname)); in PCFieldSplitSetIS_Redistribute()
40 PetscCall(PetscSNPrintf((*next)->splitname, 7, "%" PetscInt_FMT, red->nsplits++)); in PCFieldSplitSetIS_Redistribute()
43 PetscCall(ISDestroy(&(*next)->is)); in PCFieldSplitSetIS_Redistribute()
44 (*next)->is = is; in PCFieldSplitSetIS_Redistribute()
90 PC_FieldSplitLink *next = &red->splitlinks; in PCSetUp_Redistribute() local
[all …]
|
| /petsc/src/sys/classes/viewer/impls/ascii/ |
| H A D | filev.c | 54 if (vlink->next) { in PetscViewerDestroy_ASCII()
55 …CallMPI(MPI_Comm_set_attr(PetscObjectComm((PetscObject)viewer), Petsc_Viewer_keyval, vlink->next)); in PetscViewerDestroy_ASCII()
61 while (vlink && vlink->next) { in PetscViewerDestroy_ASCII()
62 if (vlink->next->viewer == viewer) { in PetscViewerDestroy_ASCII()
63 PetscViewerLink *nv = vlink->next; in PetscViewerDestroy_ASCII()
64 vlink->next = vlink->next->next; in PetscViewerDestroy_ASCII()
67 vlink = vlink->next; in PetscViewerDestroy_ASCII()
964 PrintfQueue next = vascii->petsc_printfqueuebase, previous; in PetscViewerFlush_ASCII() local
967 if (!vascii->fileunit) PetscCall(PetscFPrintf(comm, fd, "%s", next->string)); in PetscViewerFlush_ASCII()
968 else PetscCall(PetscFPrintfFortran(vascii->fileunit, next->string)); in PetscViewerFlush_ASCII()
[all …]
|
| /petsc/src/mat/interface/ |
| H A D | matreg.c | 44 names = names->next; in MatGetRootType_Private()
82 names = names->next; in MatGetMPIMatType_Private()
137 names = names->next; in MatSetType()
332 MatRootName next = MatRootNameList; in MatRegisterRootName() local
333 while (next->next) next = next->next; in MatRegisterRootName()
334 next->next = names; in MatRegisterRootName()
|