| /petsc/src/vec/is/is/impls/ftn-custom/ |
| H A D | zblockf90.c | 12 PETSC_EXTERN void isblockgetindices_(IS *x, F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PROTO(ptrd)) in isblockgetindices_()
16 *__ierr = ISBlockGetIndices(*x, &fa); in isblockgetindices_()
17 if (*__ierr) return; in isblockgetindices_()
18 *__ierr = ISBlockGetLocalSize(*x, &len); in isblockgetindices_()
19 if (*__ierr) return; in isblockgetindices_()
20 *__ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in isblockgetindices_()
22 PETSC_EXTERN void isblockrestoreindices_(IS *x, F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PROTO(p… in isblockrestoreindices_()
25 *__ierr = F90Array1dAccess(ptr, MPIU_INT, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in isblockrestoreindices_()
26 if (*__ierr) return; in isblockrestoreindices_()
27 *__ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd)); in isblockrestoreindices_()
[all …]
|
| /petsc/src/vec/vec/utils/ftn-custom/ |
| H A D | zvsectionf90.c | 13 …n_(Vec *v, PetscSection *section, PetscInt *point, F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PRO… in vecgetvaluessection_()
18 *__ierr = VecGetValuesSection(*v, *section, *point, &fa); in vecgetvaluessection_()
19 if (*__ierr) return; in vecgetvaluessection_()
20 *__ierr = PetscSectionGetDof(*section, *point, &len); in vecgetvaluessection_()
21 if (*__ierr) return; in vecgetvaluessection_()
22 *__ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetvaluessection_()
25 …n_(Vec *v, PetscSection *section, PetscInt *point, F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PRO… in vecrestorevaluessection_()
29 *__ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in vecrestorevaluessection_()
30 if (*__ierr) return; in vecrestorevaluessection_()
31 *__ierr = F90Array1dDestroy(ptr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in vecrestorevaluessection_()
[all …]
|
| /petsc/src/sys/ftn-custom/ |
| H A D | zsysf90.c | 9 PETSC_EXTERN void petscintarray1ddestroyf90_(F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PROTO(ptrd… in petscintarray1ddestroyf90_()
13 *__ierr = F90Array1dAccess(ptr, MPIU_INT, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in petscintarray1ddestroyf90_()
14 if (*__ierr) return; in petscintarray1ddestroyf90_()
15 *__ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd)); in petscintarray1ddestroyf90_()
16 if (*__ierr) return; in petscintarray1ddestroyf90_()
17 *__ierr = PetscFree(fa); in petscintarray1ddestroyf90_()
|
| /petsc/src/vec/is/utils/ftn-custom/ |
| H A D | zvsectionisf.c | 18 …ection, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr) in petscsectiongetpointsyms_() argument
20 …*__ierr = PetscSectionGetPointSyms(section, *numPoints, points, (const PetscInt ***)perms, (const … in petscsectiongetpointsyms_()
22 …ection, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr) in petscsectionrestorepointsyms_() argument
24 …*__ierr = PetscSectionRestorePointSyms(section, *numPoints, points, (const PetscInt ***)perms, (co… in petscsectionrestorepointsyms_()
26 …*field, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr) in petscsectiongetfieldpointsyms_() argument
28 …*__ierr = PetscSectionGetFieldPointSyms(section, *field, *numPoints, points, (const PetscInt ***)p… in petscsectiongetfieldpointsyms_()
30 …*field, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr) in petscsectionrestorefieldpointsyms_() argument
32 …*__ierr = PetscSectionRestoreFieldPointSyms(section, *field, *numPoints, points, (const PetscInt *… in petscsectionrestorefieldpointsyms_()
|
| /petsc/src/vec/vec/tutorials/ |
| H A D | ex21.c | 29 PETSC_INTERN void vecgetarraymystruct_(Vec *x, F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PROTO(pt… in vecgetarraymystruct_()
34 …*__ierr = PetscError(((PetscObject)*x)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_A… in vecgetarraymystruct_()
37 *__ierr = VecGetArray(*x, &fa); in vecgetarraymystruct_()
38 if (*__ierr) return; in vecgetarraymystruct_()
39 *__ierr = VecGetLocalSize(*x, &len); in vecgetarraymystruct_()
40 if (*__ierr) return; in vecgetarraymystruct_()
44 PETSC_INTERN void vecrestorearraymystruct_(Vec *x, F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PROT… in vecrestorearraymystruct_()
49 *__ierr = VecRestoreArray(*x, &fa); in vecrestorearraymystruct_()
|
| /petsc/src/dm/impls/da/ftn-custom/ |
| H A D | zdasubf.c | 12 … void dmdagetprocessorsubset_(DM *da, DMDirection *dir, PetscInt *gp, MPI_Fint *fcomm, int *__ierr) in dmdagetprocessorsubset_() argument
15 *__ierr = DMDAGetProcessorSubset(*da, *dir, *gp, &comm); in dmdagetprocessorsubset_()
18 …TSC_EXTERN void dmdagetprocessorsubsets_(DM *da, DMDirection *dir, MPI_Fint *subfcomm, int *__ierr) in dmdagetprocessorsubsets_() argument
21 *__ierr = DMDAGetProcessorSubsets(*da, *dir, &subcomm); in dmdagetprocessorsubsets_()
|
| /petsc/src/mat/matfd/ftn-custom/ |
| H A D | zfdmatrixf.c | 20 …perturbedcolumns_(MatFDColoring *x, PetscInt *len, F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PRO… in matfdcoloringgetperturbedcolumns_()
24 *__ierr = MatFDColoringGetPerturbedColumns(*x, len, &fa); in matfdcoloringgetperturbedcolumns_()
25 if (*__ierr) return; in matfdcoloringgetperturbedcolumns_()
26 *__ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, *len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matfdcoloringgetperturbedcolumns_()
28 …perturbedcolumns_(MatFDColoring *x, PetscInt *len, F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PRO… in matfdcoloringrestoreperturbedcolumns_()
30 *__ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd)); in matfdcoloringrestoreperturbedcolumns_()
|
| /petsc/src/dm/label/ftn-custom/ |
| H A D | zdmlabel.c | 11 …rient, PetscInt *maxOrient, PetscCopyMode *mode, PetscInt **perms, PetscScalar **rots, int *__ierr) in petscsectionsymlabelsetstratum_() argument
13 …*__ierr = PetscSectionSymLabelSetStratum(*sym, *stratum, *size, *minOrient, *maxOrient, *mode, (co… in petscsectionsymlabelsetstratum_()
|
| /petsc/src/mat/tests/ |
| H A D | ex237.c | 16 sparse_status_t __ierr; \
18 __ierr = func args; \
20 …PetscCheck(__ierr == SPARSE_STATUS_SUCCESS, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in %s(): error …
|