| /petsc/src/vec/is/sf/tests/ |
| H A D | ex16.c | 68 PetscInt nA = -1, *A, offsetA = -1; in main() local
86 nA = 3; in main()
92 nA = 1; in main()
98 nA = 1; in main()
106 PetscCall(PetscMalloc1(nA, &A)); in main()
133 nA = 3; in main()
137 nA = 1; in main()
141 nA = 1; in main()
147 PetscCall(PetscMalloc1(nA, &A)); in main()
163 nB = nA; in main()
[all …]
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex9.c | 16 Mat sA, nA; in replace_submats() local
20 PetscCall(MatDuplicate(sA, MAT_COPY_VALUES, &nA)); in replace_submats()
22 PetscCall(MatSetOptionsPrefix(nA, prefix)); in replace_submats()
23 PetscCall(MatNestSetSubMat(A, i, j, nA)); in replace_submats()
24 PetscCall(MatDestroy(&nA)); in replace_submats()
|
| /petsc/src/mat/tests/ |
| H A D | ex123.c | 179 PetscInt i, j, nA, nB, nnz; in main() local
187 PetscCall(MatGetRowIJ(lA, 0, PETSC_FALSE, PETSC_FALSE, &nA, &iA, &jA, &flg)); in main()
189 nnz = iA[nA] + iB[nB]; in main()
192 for (i = 0; i < nA; i++) { in main()
206 PetscCall(MatRestoreRowIJ(lA, 0, PETSC_FALSE, PETSC_FALSE, &nA, &iA, &jA, &flg)); in main()
|
| H A D | ex66.c | 37 PetscReal *coords, nA, nD, nB, err, nX, norms[3]; in main() local
344 PetscCall(MatNorm(A, NORM_FROBENIUS, &nA)); in main()
345 …Call(PetscPrintf(PETSC_COMM_WORLD, "Approximation error %g (%g / %g, %g)\n", nD / nA, nD, nA, nB)); in main()
357 PetscCall(MatNorm(A, NORM_FROBENIUS, &nA)); in main()
358 …Printf(PETSC_COMM_WORLD, "Approximation error transpose %g (%g / %g, %g)\n", nD / nA, nD, nA, nB)); in main()
|
| /petsc/src/ksp/ksp/impls/fetidp/ |
| H A D | fetidp.c | 576 Mat nA, lA, PPmat; in KSPFETIDPSetUpOperators() local
905 PetscCall(MatDuplicate(A, MAT_COPY_VALUES, &nA)); in KSPFETIDPSetUpOperators()
908 nA = A; in KSPFETIDPSetUpOperators()
911 PetscCall(MatDiagonalScale(nA, fetidp->rhs_flip, NULL)); in KSPFETIDPSetUpOperators()
915 PetscCall(MatISGetLocalMat(nA, &lA)); in KSPFETIDPSetUpOperators()
925 PetscCall(MatSetOption(nA, MAT_NEW_NONZERO_LOCATION_ERR, PETSC_FALSE)); in KSPFETIDPSetUpOperators()
926 PetscCall(MatZeroRowsColumnsIS(nA, fetidp->pP, 1., NULL, NULL)); in KSPFETIDPSetUpOperators()
934 PetscCall(MatSetNearNullSpace(nA, nnsp)); in KSPFETIDPSetUpOperators()
935 PetscCall(PCSetOperators(fetidp->innerbddc, nA, nA)); in KSPFETIDPSetUpOperators()
936 PetscCall(MatDestroy(&nA)); in KSPFETIDPSetUpOperators()
|
| /petsc/src/mat/impls/is/ |
| H A D | matis.c | 1637 Mat nA = matis->A; in MatISSetAllowRepeated_IS() local
1639 PetscCall(MatGetLocalToGlobalMapping(nA, &lrmap, &lcmap)); in MatISSetAllowRepeated_IS()
1648 … PetscCall(MatCreateFromISLocalToGlobalMapping(lcmap, nA, PETSC_TRUE, PETSC_FALSE, NULL, &P)); in MatISSetAllowRepeated_IS()
1649 PetscCall(MatProductCreate(lA, P, NULL, &nA)); in MatISSetAllowRepeated_IS()
1651 …if (lcmap) PetscCall(MatCreateFromISLocalToGlobalMapping(lcmap, nA, PETSC_TRUE, PETSC_FALSE, NULL,… in MatISSetAllowRepeated_IS()
1652 …if (lrmap) PetscCall(MatCreateFromISLocalToGlobalMapping(lrmap, nA, PETSC_FALSE, PETSC_TRUE, NULL,… in MatISSetAllowRepeated_IS()
1655 PetscCall(MatProductCreate(R, lA, P, &nA)); in MatISSetAllowRepeated_IS()
1658 PetscCall(MatProductCreate(R, lA, NULL, &nA)); in MatISSetAllowRepeated_IS()
1661 PetscCall(MatProductCreate(lA, P, NULL, &nA)); in MatISSetAllowRepeated_IS()
1664 PetscCall(MatProductSetType(nA, ptype)); in MatISSetAllowRepeated_IS()
[all …]
|
| /petsc/src/mat/impls/h2opus/cuda/ |
| H A D | math2opus.cu | 1019 static PetscErrorCode MatDuplicate_H2OPUS(Mat B, MatDuplicateOption op, Mat *nA) in MatDuplicate_H2OPUS() argument
1085 *nA = A; in MatDuplicate_H2OPUS()
1595 …pusKernelFn *kernel, void *kernelctx, PetscReal eta, PetscInt leafsize, PetscInt basisord, Mat *nA) in MatCreateH2OpusFromKernel() argument
1615 *nA = A; in MatCreateH2OpusFromKernel()
1653 …ol cdist, PetscReal eta, PetscInt leafsize, PetscInt maxrank, PetscInt bs, PetscReal rtol, Mat *nA) in MatCreateH2OpusFromMat() argument
1669 PetscAssertPointer(nA, 10); in MatCreateH2OpusFromMat()
1702 *nA = A; in MatCreateH2OpusFromMat()
|
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 1186 PetscInt nA, nB, nJoint, i, j, d; in PetscQuadraturePointsMerge() local
1194 PetscCall(PetscQuadratureGetData(quadA, &dimA, NULL, &nA, &pointsA, NULL)); in PetscQuadraturePointsMerge()
1197 nJoint = nA; in PetscQuadraturePointsMerge()
1198 PetscCall(PetscMalloc1(nA, &aToJ)); in PetscQuadraturePointsMerge()
1199 for (i = 0; i < nA; i++) aToJ[i] = i; in PetscQuadraturePointsMerge()
1202 for (j = 0; j < nA; j++) { in PetscQuadraturePointsMerge()
1216 PetscCall(PetscArraycpy(pointsJoint, pointsA, nA * dimA)); in PetscQuadraturePointsMerge()
1218 if (bToJ[i] >= nA) { in PetscQuadraturePointsMerge()
1232 PetscInt m, n, mA, nA, mB, nB, Nk, i, j, l; in MatricesMerge() local
1240 PetscCall(MatGetSize(matA, &mA, &nA)); in MatricesMerge()
[all …]
|