| /petsc/src/mat/impls/sell/seq/ |
| H A D | sell.h | 93 Mat_SeqSELL *Ain = (Mat_SeqSELL *)Amat->data; \
95 PetscInt new_size = Ain->maxallocmat + SH * MUL, *new_colidx; \
105 …PetscCall(PetscArraycpy(new_val + SIDX[SID + 1] + SH * MUL, VAL + SIDX[SID + 1], SIDX[Ain->totalsl…
106 …raycpy(new_colidx + SIDX[SID + 1] + SH * MUL, COLIDX + SIDX[SID + 1], SIDX[Ain->totalslices] - SID…
108 for (ii = SID + 1; ii <= Ain->totalslices; ii++) SIDX[ii] += SH * MUL; \
113 PetscCall(MatSeqXSELLFreeSELL(A, &Ain->val, &Ain->colidx)); \
114 Ain->val = new_val; \
115 Ain->colidx = new_colidx; \
116 Ain->singlemalloc = PETSC_TRUE; \
117 Ain->maxallocmat = new_size; \
[all …]
|
| /petsc/src/tao/constrained/tutorials/ |
| H A D | maros.c | 35 Mat Aeq, Ain, H; member
85 …PetscCall(TaoSetJacobianInequalityRoutine(tao, user.Ain, user.Ain, FormInequalityJacobian, (void *… in main()
177 PetscCall(MatCreate(comm, &user->Ain)); in InitializeProblem()
178 PetscCall(MatSetType(user->Ain, MATAIJ)); in InitializeProblem()
179 PetscCall(MatSetSizes(user->Ain, PETSC_DECIDE, PETSC_DECIDE, user->mi, user->mi)); in InitializeProblem()
181 PetscCall(MatMPIAIJSetPreallocation(user->Ain, 1, NULL, 0, NULL)); in InitializeProblem()
182 PetscCall(MatSeqAIJSetPreallocation(user->Ain, 1, NULL)); in InitializeProblem()
184 …for (i = 0; i < user->mi; i++) PetscCall(MatSetValues(user->Ain, 1, &i, 1, &i, &one, INSERT_VALUES… in InitializeProblem()
185 PetscCall(MatAssemblyBegin(user->Ain, MAT_FINAL_ASSEMBLY)); in InitializeProblem()
186 PetscCall(MatAssemblyEnd(user->Ain, MAT_FINAL_ASSEMBLY)); in InitializeProblem()
[all …]
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | aij.h | 239 Mat_SeqAIJ *Ain = (Mat_SeqAIJ *)Amat->data; \
248 Ain->free_a = PETSC_TRUE; \
249 Ain->free_ij = PETSC_TRUE; \
260 PetscCall(MatSeqXAIJFreeAIJ(A, &Ain->a, &Ain->j, &Ain->i)); \
262 Ain->a = new_a; \
263 AI = Ain->i = new_i; \
264 AJ = Ain->j = new_j; \
269 Ain->maxnz += BS2 * CHUNKSIZE; \
270 Ain->reallocs++; \
278 Mat_SeqAIJ *Ain = (Mat_SeqAIJ *)Amat->data; \
[all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex78.c | 41 char Ain[PETSC_MAX_PATH_LEN], rhs[PETSC_MAX_PATH_LEN], solu[PETSC_MAX_PATH_LEN]; in main() local
57 PetscCall(PetscOptionsGetString(NULL, NULL, "-Ain", Ain, sizeof(Ain), &flg_A)); in main()
62 PetscCall(PetscFOpen(PETSC_COMM_SELF, Ain, "r", &Afile)); in main()
|
| /petsc/src/mat/impls/transpose/ |
| H A D | htransm.c | 94 Mat A, B, C, Ain, Bin, Cin; in MatProductSetFromOptions_HT() local
112 Ain = A; in MatProductSetFromOptions_HT()
115 …PetscCall(MatShellGetScalingShifts(Ain, (PetscScalar *)MAT_SHELL_NOT_ALLOWED, &vscale, (Vec *)MAT_… in MatProductSetFromOptions_HT()
118 PetscCall(MatHermitianTransposeGetMat(Ain, &Ain)); in MatProductSetFromOptions_HT()
119 PetscCall(PetscObjectTypeCompare((PetscObject)Ain, MATHERMITIANTRANSPOSEVIRTUAL, &Aistrans)); in MatProductSetFromOptions_HT()
143 if (Ain->symmetric == PETSC_BOOL3_TRUE) Atrans = 0; in MatProductSetFromOptions_HT()
211 PetscCall(MatProductReplaceMats(Ain, Bin, Cin, D)); in MatProductSetFromOptions_HT()
|
| H A D | transm.c | 384 Mat A, B, C, Ain, Bin, Cin; in MatProductSetFromOptions_Transpose() local
402 Ain = A; in MatProductSetFromOptions_Transpose()
405 …PetscCall(MatShellGetScalingShifts(Ain, (PetscScalar *)MAT_SHELL_NOT_ALLOWED, &vscale, (Vec *)MAT_… in MatProductSetFromOptions_Transpose()
407 PetscCall(MatTransposeGetMat(Ain, &Ain)); in MatProductSetFromOptions_Transpose()
408 PetscCall(PetscObjectTypeCompare((PetscObject)Ain, MATTRANSPOSEVIRTUAL, &Aistrans)); in MatProductSetFromOptions_Transpose()
432 if (Ain->symmetric == PETSC_BOOL3_TRUE) Atrans = 0; in MatProductSetFromOptions_Transpose()
498 PetscCall(MatProductReplaceMats(Ain, Bin, Cin, D)); in MatProductSetFromOptions_Transpose()
|
| /petsc/src/mat/impls/shell/ |
| H A D | shellcnv.c | 197 Mat A, B, Ain; in MatProductSetFromOptions_CF() local
209 if (Af == MatProductSetFromOptions_CF) PetscCall(MatShellGetContext(A, &Ain)); in MatProductSetFromOptions_CF()
211 D->product->A = Ain; in MatProductSetFromOptions_CF()
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcschurs.c | 381 PetscErrorCode PCBDDCSubSchursSetUp(PCBDDCSubSchurs sub_schurs, Mat Ain, Mat Sin, PetscBool exact_s… in PCBDDCSubSchursSetUp() argument
406 if (Ain) { in PCBDDCSubSchursSetUp()
407 PetscCall(PetscObjectReference((PetscObject)Ain)); in PCBDDCSubSchursSetUp()
408 sub_schurs->A = Ain; in PCBDDCSubSchursSetUp()
|