| /petsc/src/sys/tutorials/ |
| H A D | ex3f90.F90 | 29 PetscErrorCode :: ierr
48 PetscCallA(PetscInitialize(ierr))
49 PetscCallMPIA(MPI_Comm_size(PETSC_COMM_WORLD, size, ierr))
50 PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr))
69 PetscCallA(PetscLogEventRegister('Morning', classid, Morning, ierr))
70 PetscCallA(PetscLogEventRegister('Afternoon', classid, Afternoon, ierr))
71 PetscCallA(PetscLogEventRegister('Play Ball', classid, PlayBall, ierr))
72 PetscCallA(PetscLogEventRegister('Skip Rope', classid, SkipRope, ierr))
73 PetscCallA(PetscLogEventRegister('Tidy Classroom', classid, TidyClass, ierr))
74 PetscCallA(PetscLogEventRegister('Lessons', classid, Lessons, ierr))
[all …]
|
| H A D | ex3f.F90 | 25 PetscErrorCode ierr
37 PetscCallA(PetscInitialize(ierr))
48 PetscCallA(PetscLogEventRegister('Event 1', classid, USER_EVENT1, ierr))
49 PetscCallA(PetscLogEventRegister('Event 2', classid, USER_EVENT2, ierr))
50 PetscCallA(PetscLogEventRegister('Event 3', classid, USER_EVENT3, ierr))
51 PetscCallA(PetscLogEventRegister('Event 4', classid, USER_EVENT4, ierr))
52 PetscCallA(PetscLogEventRegister('Event 5', classid, USER_EVENT5, ierr))
53 PetscCallA(PetscLogEventRegister('Event 6', classid, USER_EVENT6, ierr))
54 PetscCallA(PetscLogEventRegister('Event 7', classid, USER_EVENT7, ierr))
55 PetscCallA(PetscLogEventRegister('Event 8', classid, USER_EVENT8, ierr))
[all …]
|
| /petsc/src/mat/interface/ftn-custom/ |
| H A D | zmatrixf90.c | 54 …etscInt *row, PetscInt *N, F90Array1d *ia, F90Array1d *a, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in matgetrow_()
61 *ierr = MatGetRow(*B, *row, &n, NULL, NULL); in matgetrow_()
63 *ierr = MatGetRow(*B, *row, &n, NULL, &A); in matgetrow_()
65 *ierr = MatGetRow(*B, *row, &n, &II, NULL); in matgetrow_()
67 *ierr = MatGetRow(*B, *row, &n, &II, &A); in matgetrow_()
69 if (*ierr) return; in matgetrow_()
70 if (II) *ierr = F90Array1dCreate((void *)II, MPIU_INT, 1, n, ia PETSC_F90_2PTR_PARAM(iad)); in matgetrow_()
71 if (A) *ierr = F90Array1dCreate((void *)A, MPIU_SCALAR, 1, n, a PETSC_F90_2PTR_PARAM(jad)); in matgetrow_()
74 …etscInt *row, PetscInt *N, F90Array1d *ia, F90Array1d *a, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in matrestorerow_()
81 *ierr = MatRestoreRow(*B, *row, &n, NULL, NULL); in matrestorerow_()
[all …]
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex26f90.F90 | 32 PetscErrorCode :: ierr
98 PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, ierr))
99 if (ierr /= 0) then
104 PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr))
105 PetscCallMPIA(MPI_Comm_size(PETSC_COMM_WORLD, numProc, ierr))
106 …cCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-i', ifilename, flg, ierr))
108 …cCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-o', ofilename, flg, ierr))
110 …etscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-order', order, flg, ierr))
117 …allA(DMPlexCreateFromFile(PETSC_COMM_WORLD, ifilename, PETSC_NULL_CHARACTER, PETSC_TRUE, dm, ierr))
118 PetscCallA(DMPlexDistributeSetDefault(dm, PETSC_FALSE, ierr))
[all …]
|
| H A D | ex62f90.F90 | 31 PetscErrorCode :: ierr
81 PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, ierr))
82 if (ierr /= 0) then
87 PetscCallA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr))
88 PetscCallA(MPI_Comm_size(PETSC_COMM_WORLD, numProc, ierr))
89 …cCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-i', ifilename, flg, ierr))
91 …cCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-o', ofilename, flg, ierr))
93 …etscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-order', order, flg, ierr))
100 …allA(DMPlexCreateFromFile(PETSC_COMM_WORLD, ifilename, PETSC_NULL_CHARACTER, PETSC_TRUE, dm, ierr))
101 PetscCallA(DMPlexDistributeSetDefault(dm, PETSC_FALSE, ierr))
[all …]
|
| H A D | ex95f90.F90 | 17 PetscErrorCode :: ierr
31 PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, ierr))
32 if (ierr /= 0) then
37 …OptionsBegin(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, 'PetscViewer_ExodusII test', 'ex95f90', ierr))
38 …etscCallA(PetscOptionsString("-i", "Filename to read", "ex95f90", ifilename, ifilename, flg, ierr))
40 …tscCallA(PetscOptionsString("-o", "Filename to write", "ex95f90", ofilename, ofilename, flg, ierr))
42 PetscCallA(PetscOptionsEnd(ierr))
45 …allA(DMPlexCreateFromFile(PETSC_COMM_WORLD, ifilename, PETSC_NULL_CHARACTER, PETSC_TRUE, dm, ierr))
46 PetscCallA(DMPlexDistributeSetDefault(dm, PETSC_FALSE, ierr))
47 PetscCallA(DMSetFromOptions(dm, ierr))
[all …]
|
| H A D | ex98f90.F90 | 19 PetscErrorCode :: ierr
24 PetscCallA(PetscInitialize(ierr))
25 PetscCallMPIA(MPI_Comm_size(PETSC_COMM_WORLD, numProc, ierr))
27 …cCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-i', ifilename, flg, ierr))
30 …allA(DMPlexCreateFromFile(PETSC_COMM_WORLD, ifilename, PETSC_NULL_CHARACTER, PETSC_TRUE, dm, ierr))
31 PetscCallA(DMPlexDistributeSetDefault(dm, PETSC_FALSE, ierr))
32 PetscCallA(DMSetFromOptions(dm, ierr))
35 PetscCallA(DMPlexDistribute(dm, 0_kPI, PETSC_NULL_SF, pdm, ierr))
36 PetscCallA(DMDestroy(dm, ierr))
39 PetscCallA(DMViewFromOptions(dm, PETSC_NULL_OBJECT, '-dm_view', ierr))
[all …]
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex76f.F90 | 21 PetscErrorCode ierr
23 PetscCallA(PetscInitialize(ierr))
25 PetscCallMPIA(MPI_Comm_size(PETSC_COMM_WORLD, size, ierr))
28 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-rhs', N, flg, ierr))
29 PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr))
30 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr))
32 …CallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-load_dir', dir, flg, ierr))
35 PetscCallA(PetscViewerBinaryOpen(PETSC_COMM_WORLD, name, FILE_MODE_READ, viewer, ierr))
36 PetscCallA(ISCreate(PETSC_COMM_WORLD, sizes, ierr))
37 PetscCallA(ISLoad(sizes, viewer, ierr))
[all …]
|
| H A D | ex2f.F90 | 24 subroutine MyKSPMonitor(ksp, n, rnorm, vf, ierr) argument
28 PetscErrorCode ierr
35 PetscCallA(KSPBuildSolution(ksp, PETSC_NULL_VEC, x, ierr))
36 PetscCallA(KSPMonitorTrueResidual(ksp, n, rnorm, vf, ierr))
42 PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr))
49 ierr = 0
63 subroutine MyKSPConverged(ksp, n, rnorm, flag, unused, ierr) argument
66 PetscErrorCode ierr
76 ierr = 0
110 PetscErrorCode ierr
[all …]
|
| H A D | ex5f.F90 | 19 PetscErrorCode :: ierr
33 PetscCallA(PetscInitialize(ierr))
35 …scCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-orthog', orthog, flg, ierr))
36 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-m', m, flg, ierr))
37 PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr))
38 PetscCallMPIA(MPI_Comm_size(PETSC_COMM_WORLD, size, ierr))
43 …tionsGetBool(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-mat_nonsym', mat_nonsymmetric, flg, ierr))
44 …ionsGetBool(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-test_scaledMat', testscaledMat, flg, ierr))
50 PetscCallA(PetscLogStageRegister('Original Solve', stages(0), ierr))
51 PetscCallA(PetscLogStageRegister('Second Solve', stages(1), ierr))
[all …]
|
| H A D | ex57f.F90 | 24 subroutine MyKSPMonitor(ksp, n, rnorm, unused, ierr) argument
28 PetscErrorCode ierr
35 PetscCallA(KSPBuildSolution(ksp, PETSC_NULL_VEC, x, ierr))
42 PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr))
44 PetscCallA(VecView(x, PETSC_VIEWER_STDOUT_WORLD, ierr))
49 ierr = 0
63 subroutine MyKSPConverged(ksp, n, rnorm, flag, unused, ierr) argument
66 PetscErrorCode ierr
76 ierr = 0
116 PetscErrorCode ierr
[all …]
|
| H A D | ex15f.F90 | 38 subroutine SampleShellPCSetUp(pc, ierr) argument
42 PetscErrorCode ierr
44 PetscCallA(PCGetOperators(pc, PETSC_NULL_MAT, pmat, ierr))
45 PetscCallA(MatCreateVecs(pmat, diag, PETSC_NULL_VEC, ierr))
46 PetscCallA(MatGetDiagonal(pmat, diag, ierr))
47 PetscCallA(VecReciprocal(diag, ierr))
69 subroutine SampleShellPCApply(pc, x, y, ierr) argument
73 PetscErrorCode ierr
75 PetscCallA(VecPointwiseMult(y, x, diag, ierr))
94 subroutine SampleShellPCDestroy(pc, ierr) argument
[all …]
|
| H A D | ex1f.F90 | 14 subroutine MyKSPConverged(ksp, n, rnorm, flag, defaultctx, ierr) argument
17 PetscErrorCode ierr
24 PetscCall(KSPConvergedDefault(ksp, n, rnorm, flag, defaultctx, ierr))
52 PetscErrorCode ierr
64 PetscCallA(PetscInitialize(ierr))
65 PetscCallMPIA(MPI_Comm_size(PETSC_COMM_WORLD, size, ierr))
73 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-n', n, flg, ierr))
75 PetscCallA(PetscLogStageRegister('MatVec Assembly', stages(1), ierr))
76 PetscCallA(PetscLogStageRegister('KSP Solve', stages(2), ierr))
77 PetscCallA(PetscLogStagePush(stages(1), ierr))
[all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex201f.F90 | 11 subroutine mymatmult(A, x, y, ierr) argument
14 PetscErrorCode ierr
19 subroutine mymatmultadd(A, x, y, z, ierr) argument
22 PetscErrorCode ierr
27 subroutine mymatmulttranspose(A, x, y, ierr) argument
30 PetscErrorCode ierr
35 subroutine mymatmulthermitiantranspose(A, x, y, ierr) argument
38 PetscErrorCode ierr
43 subroutine mymatmulttransposeadd(A, x, y, z, ierr) argument
46 PetscErrorCode ierr
[all …]
|
| /petsc/src/vec/vec/interface/ftn-custom/ |
| H A D | zvectorf90.c | 24 PETSC_EXTERN void vecgetarraywrite_(Vec *x, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd)) in vecgetarraywrite_()
29 …*ierr = PetscError(((PetscObject)*x)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_ARG… in vecgetarraywrite_()
32 *ierr = VecGetArrayWrite(*x, &fa); in vecgetarraywrite_()
33 if (*ierr) return; in vecgetarraywrite_()
34 *ierr = VecGetLocalSize(*x, &len); in vecgetarraywrite_()
35 if (*ierr) return; in vecgetarraywrite_()
36 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetarraywrite_()
39 PETSC_EXTERN void vecrestorearraywrite_(Vec *x, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptr… in vecrestorearraywrite_()
42 *ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in vecrestorearraywrite_()
43 if (*ierr) return; in vecrestorearraywrite_()
[all …]
|
| /petsc/src/dm/impls/swarm/tutorials/ |
| H A D | ex1f90.F90 | 23 PetscErrorCode :: ierr
25 PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER, ierr))
26 PetscCallA(DMCreate(PETSC_COMM_WORLD, dm, ierr))
27 PetscCallA(DMSetType(dm, DMPLEX, ierr))
28 PetscCallA(DMSetFromOptions(dm, ierr))
29 PetscCallA(DMGetDimension(dm, dim, ierr))
30 PetscCallA(DMViewFromOptions(dm, PETSC_NULL_OBJECT, '-dm_view', ierr))
33 …lA(PetscFECreateLagrange(PETSC_COMM_SELF, dim, Nc, PETSC_FALSE, degree, PETSC_DETERMINE, fe, ierr))
34 PetscCallA(DMSetField(dm, field, PETSC_NULL_DMLABEL, PetscObjectCast(fe), ierr))
35 PetscCallA(DMCreateDS(dm, ierr))
[all …]
|
| /petsc/src/snes/tutorials/ |
| H A D | ex5f.F90 | 63 subroutine FormInitialGuess(X, ierr)
67 PetscErrorCode ierr
71 ierr = 0
81 call VecGetArray(X, lx_v, ierr)
82 CHKERRQ(ierr)
86 call InitialGuessLocal(lx_v, ierr)
87 CHKERRQ(ierr)
91 call VecRestoreArray(X, lx_v, ierr)
92 CHKERRQ(ierr)
111 subroutine InitialGuessLocal(x, ierr) argument
[all …]
|
| H A D | ex1f.F90 | 26 subroutine FormFunction(snes, x, f, dummy, ierr) argument
29 PetscErrorCode ierr
40 PetscCall(VecGetArrayRead(x, lx_v, ierr))
41 PetscCall(VecGetArray(f, lf_v, ierr))
50 PetscCall(VecRestoreArrayRead(x, lx_v, ierr))
51 PetscCall(VecRestoreArray(f, lf_v, ierr))
68 subroutine FormJacobian(snes, X, jac, B, dummy, ierr) argument
74 PetscErrorCode ierr
85 PetscCall(VecGetArrayRead(x, lx_v, ierr))
99 PetscCall(MatSetValues(B, i2, idx, i2, idx, A, INSERT_VALUES, ierr))
[all …]
|
| H A D | ex73f90t.F90 | 61 subroutine MyObjective(snes, x, result, ctx, ierr) argument
65 PetscErrorCode ierr
69 PetscCall(VecDuplicate(x, f, ierr))
70 PetscCall(SNESComputeFunction(snes, x, f, ierr))
71 PetscCall(VecNorm(f, NORM_2, fnorm, ierr))
73 PetscCall(VecDestroy(f, ierr))
94 subroutine FormInitialGuess(mysnes, Xnest, ierr) argument
98 PetscErrorCode ierr
108 ierr = 0
109 PetscCall(SNESGetApplicationContext(mysnes, solver, ierr))
[all …]
|
| /petsc/src/dm/impls/plex/ftn-custom/ |
| H A D | zplexfemf90.c | 21 …t, Vec *locA, F90Array1d *uPtr, F90Array1d *utPtr, F90Array1d *aPtr, int *ierr PETSC_F90_2PTR_PROT… in dmplexgetcellfields_()
27 *ierr = ISGetLocalSize(*cellIS, &numCells); in dmplexgetcellfields_()
28 if (*ierr) return; in dmplexgetcellfields_()
29 *ierr = DMPlexGetCellFields(*dm, *cellIS, *locX, *locX_t, *locA, &u, &u_t, &a); in dmplexgetcellfields_()
30 if (*ierr) return; in dmplexgetcellfields_()
31 *ierr = DMGetDS(*dm, &prob); in dmplexgetcellfields_()
32 if (*ierr) return; in dmplexgetcellfields_()
33 *ierr = PetscDSGetTotalDimension(prob, &totDim); in dmplexgetcellfields_()
34 if (*ierr) return; in dmplexgetcellfields_()
39 *ierr = VecGetDM(*locA, &dmAux); in dmplexgetcellfields_()
[all …]
|
| H A D | zplexf90.c | 48 PETSC_EXTERN void dmplexgetcone_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PRO… in dmplexgetcone_()
53 *ierr = DMPlexGetConeSize(*dm, *p, &n); in dmplexgetcone_()
54 if (*ierr) return; in dmplexgetcone_()
55 *ierr = DMPlexGetCone(*dm, *p, &v); in dmplexgetcone_()
56 if (*ierr) return; in dmplexgetcone_()
57 *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgetcone_()
60 PETSC_EXTERN void dmplexrestorecone_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F90_2PTR… in dmplexrestorecone_()
62 *ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd)); in dmplexrestorecone_()
63 if (*ierr) return; in dmplexrestorecone_()
66 PETSC_EXTERN void dmplexgetconeorientation_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F… in dmplexgetconeorientation_()
[all …]
|
| /petsc/src/dm/impls/da/ftn-custom/ |
| H A D | zda1f90.c | 44 PETSC_EXTERN void dmdagetelements_(DM *dm, PetscInt *nel, PetscInt *nen, F90Array1d *e, int *ierr P… in dmdagetelements_()
49 …*ierr = PetscError(((PetscObject)e)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_ARG_… in dmdagetelements_()
52 *ierr = DMDAGetElements(*dm, nel, nen, &fa); in dmdagetelements_()
53 if (*ierr) return; in dmdagetelements_()
54 …*ierr = F90Array1dCreate((PetscInt *)fa, MPIU_INT, 1, (*nel) * (*nen), e PETSC_F90_2PTR_PARAM(ptrd… in dmdagetelements_()
57 …estoreelements_(DM *dm, PetscInt *nel, PetscInt *nen, F90Array1d *e, int *ierr PETSC_F90_2PTR_PROT… in dmdarestoreelements_()
60 …*ierr = PetscError(((PetscObject)e)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_ARG_… in dmdarestoreelements_()
63 *ierr = F90Array1dDestroy(e, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in dmdarestoreelements_()
66 PETSC_EXTERN void dmdavecgetarray1_(DM *da, Vec *v, F90Array1d *a, PetscErrorCode *ierr PETSC_F90_2… in dmdavecgetarray1_()
71 *ierr = DMDAGetCorners(*da, &xs, &ys, &zs, &xm, &ym, &zm); in dmdavecgetarray1_()
[all …]
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex16f.F90 | 20 PetscErrorCode ierr
37 PetscCallA(PetscInitialize(ierr))
40 PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-f', f, flg, ierr))
41 PetscCallA(PetscViewerBinaryOpen(PETSC_COMM_WORLD, f, FILE_MODE_READ, fd, ierr))
43 PetscCallA(MatCreate(PETSC_COMM_WORLD, A, ierr))
44 PetscCallA(MatSetType(A, MATSEQAIJ, ierr))
45 PetscCallA(MatLoad(A, fd, ierr))
47 PetscCallA(VecCreate(PETSC_COMM_WORLD, b, ierr))
48 PetscCallA(VecLoad(b, fd, ierr))
49 PetscCallA(PetscViewerDestroy(fd, ierr))
[all …]
|
| H A D | ex62f.F90 | 38 subroutine SampleShellPCSetUp(pc, x, ierr)
43 PetscErrorCode ierr
45 PetscCallA(PCGetOperators(pc, PETSC_NULL_MAT, pmat, ierr))
46 PetscCallA(PCCreate(PETSC_COMM_WORLD, jacobi, ierr))
47 PetscCallA(PCSetType(jacobi, PCJACOBI, ierr))
48 PetscCallA(PCSetOperators(jacobi, pmat, pmat, ierr))
49 PetscCallA(PCSetUp(jacobi, ierr))
51 PetscCallA(PCCreate(PETSC_COMM_WORLD, sor, ierr))
52 PetscCallA(PCSetType(sor, PCSOR, ierr))
53 PetscCallA(PCSetOperators(sor, pmat, pmat, ierr))
[all …]
|
| /petsc/src/vec/is/sf/interface/ftn-custom/ |
| H A D | zsf.c | 31 …cInt *nleaves, F90Array1d *ailocal, F90Array1d *airemote, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in petscsfgetgraph_()
37 *ierr = PetscSFGetGraph(*sf, nroots, nleaves, &ilocal, &iremote); in petscsfgetgraph_()
38 if (*ierr) return; in petscsfgetgraph_()
41 *ierr = F90Array1dCreate((void *)ilocal, MPIU_INT, 1, nl, ailocal PETSC_F90_2PTR_PARAM(pilocal)); in petscsfgetgraph_()
46 …cInt *nleaves, F90Array1d *ailocal, F90Array1d *airemote, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in petscsfrestoregraph_()
48 *ierr = F90Array1dDestroy(ailocal, MPIU_INT PETSC_F90_2PTR_PARAM(pilocal)); in petscsfrestoregraph_()
49 if (*ierr) return; in petscsfrestoregraph_()
53 …1d *airanks, F90Array1d *aioffset, F90Array1d *airootloc, PetscErrorCode *ierr PETSC_F90_2PTR_PROT… in petscsfgetleafranks_()
59 *ierr = PetscSFGetLeafRanks(*sf, niranks, &iranks, &ioffset, &irootloc); in petscsfgetleafranks_()
60 if (*ierr) return; in petscsfgetleafranks_()
[all …]
|