| /petsc/src/mat/interface/ftn-custom/ |
| H A D | zmatrixf90.c | 115 PetscScalar *fa; in matdensegetarray2d_() local
117 *ierr = MatDenseGetArray(*mat, &fa); in matdensegetarray2d_()
129 *ierr = F90Array2dCreate(fa, MPIU_SCALAR, 1, m, 1, N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetarray2d_()
133 PetscScalar *fa; in matdenserestorearray2d_() local
134 *ierr = F90Array2dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in matdenserestorearray2d_()
138 *ierr = MatDenseRestoreArray(*mat, &fa); in matdenserestorearray2d_()
142 const PetscScalar *fa; in matdensegetarrayread2d_() local
144 *ierr = MatDenseGetArrayRead(*mat, &fa); in matdensegetarrayread2d_()
156 *ierr = F90Array2dCreate((void **)fa, MPIU_SCALAR, 1, m, 1, N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetarrayread2d_()
160 const PetscScalar *fa; in matdenserestorearrayread2d_() local
[all …]
|
| /petsc/src/vec/vec/interface/ftn-custom/ |
| H A D | zvectorf90.c | 26 PetscScalar *fa; in vecgetarraywrite_() local
32 *ierr = VecGetArrayWrite(*x, &fa); in vecgetarraywrite_()
36 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetarraywrite_()
41 PetscScalar *fa; in vecrestorearraywrite_() local
42 *ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in vecrestorearraywrite_()
46 *ierr = VecRestoreArrayWrite(*x, &fa); in vecrestorearraywrite_()
51 PetscScalar *fa; in vecgetarray_() local
57 *ierr = VecGetArray(*x, &fa); in vecgetarray_()
61 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetarray_()
66 PetscScalar *fa; in vecrestorearray_() local
[all …]
|
| H A D | zvectorf.c | 15 PetscInt *fa; in vecgetownershipranges_() local
18 *ierr = VecGetOwnershipRanges(*v, (const PetscInt **)&fa); in vecgetownershipranges_()
21 *ierr = F90Array1dCreate(fa, MPIU_INT, 1, size + 1, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetownershipranges_()
|
| /petsc/src/vec/is/is/interface/ftn-custom/ |
| H A D | zindexf90.c | 18 const PetscInt *fa; in petsclayoutgetranges_() local
21 *ierr = PetscLayoutGetRanges(*map, &fa); in petsclayoutgetranges_()
25 …*ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, (PetscInt)size + 1, ptr PETSC_F90_2PTR_PARAM(ptr… in petsclayoutgetranges_()
35 const PetscInt *fa; in isgetindices_() local
38 *ierr = ISGetIndices(*x, &fa); in isgetindices_()
42 *ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in isgetindices_()
46 const PetscInt *fa; in isrestoreindices_() local
48 *ierr = F90Array1dAccess(ptr, MPIU_INT, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in isrestoreindices_()
52 *ierr = ISRestoreIndices(*x, &fa); in isrestoreindices_()
|
| /petsc/src/vec/is/sf/utils/ftn-custom/ |
| H A D | zsfutilsf90.c | 17 PetscInt *fa; in petscsfdestroyremoteoffsets_() local
18 *ierr = F90Array1dAccess(ptr, MPIU_INT, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in petscsfdestroyremoteoffsets_()
22 *ierr = PetscFree(fa); in petscsfdestroyremoteoffsets_()
30 PetscInt *fa; in petscsfdistributesection_() local
33 *ierr = PetscSFDistributeSection(*sf, *rootSection, &fa, *leafSection); in petscsfdistributesection_()
37 …*ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, lpEnd - lpStart, ptr PETSC_F90_2PTR_PARAM(ptrd)); in petscsfdistributesection_()
43 PetscInt *fa; in petscsfcreateremoteoffsets_() local
46 *ierr = PetscSFCreateRemoteOffsets(*pointSF, *rootSection, *leafSection, &fa); in petscsfcreateremoteoffsets_()
50 …*ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, lpEnd - lpStart, ptr PETSC_F90_2PTR_PARAM(ptrd)); in petscsfcreateremoteoffsets_()
|
| /petsc/src/vec/is/is/impls/ftn-custom/ |
| H A D | zblockf90.c | 14 const PetscInt *fa; in isblockgetindices_() local
16 *__ierr = ISBlockGetIndices(*x, &fa); in isblockgetindices_()
20 *__ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in isblockgetindices_()
24 const PetscInt *fa; in isblockrestoreindices_() local
25 *__ierr = F90Array1dAccess(ptr, MPIU_INT, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in isblockrestoreindices_()
29 *__ierr = ISBlockRestoreIndices(*x, &fa); in isblockrestoreindices_()
|
| /petsc/src/vec/vec/tutorials/ |
| H A D | ex21.c | 31 PetscScalar *fa; in vecgetarraymystruct_() local
37 *__ierr = VecGetArray(*x, &fa); in vecgetarraymystruct_()
41 f90array1dcreatemystruct_(fa, &one, &len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetarraymystruct_()
46 PetscScalar *fa; in vecrestorearraymystruct_() local
47 f90array1daccessmystruct_(ptr, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in vecrestorearraymystruct_()
49 *__ierr = VecRestoreArray(*x, &fa); in vecrestorearraymystruct_()
|
| /petsc/src/vec/vec/utils/ftn-custom/ |
| H A D | zvsectionf90.c | 15 PetscScalar *fa; in vecgetvaluessection_() local
18 *__ierr = VecGetValuesSection(*v, *section, *point, &fa); in vecgetvaluessection_()
22 *__ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetvaluessection_()
27 PetscScalar *fa; in vecrestorevaluessection_() local
29 *__ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in vecrestorevaluessection_()
|
| /petsc/src/vec/is/utils/ftn-custom/ |
| H A D | zisltogf90.c | 29 const PetscInt *fa; in islocaltoglobalmappingrestoreindices_() local
31 *ierr = F90Array1dAccess(ptr, MPIU_INT, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in islocaltoglobalmappingrestoreindices_()
35 *ierr = ISLocalToGlobalMappingRestoreIndices(*da, &fa); in islocaltoglobalmappingrestoreindices_()
52 const PetscInt *fa; in islocaltoglobalmappingrestoreblockindices_() local
54 *ierr = F90Array1dAccess(ptr, MPIU_INT, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in islocaltoglobalmappingrestoreblockindices_()
58 *ierr = ISLocalToGlobalMappingRestoreBlockIndices(*da, &fa); in islocaltoglobalmappingrestoreblockindices_()
|
| /petsc/src/dm/impls/da/ftn-custom/ |
| H A D | zda1f90.c | 46 const PetscInt *fa; in dmdagetelements_() local
52 *ierr = DMDAGetElements(*dm, nel, nen, &fa); in dmdagetelements_()
54 …*ierr = F90Array1dCreate((PetscInt *)fa, MPIU_INT, 1, (*nel) * (*nen), e PETSC_F90_2PTR_PARAM(ptrd… in dmdagetelements_()
100 PetscScalar *fa; in dmdavecrestorearray1_() local
101 *ierr = F90Array1dAccess(a, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearray1_()
102 *ierr = VecRestoreArray(*v, &fa); in dmdavecrestorearray1_()
147 PetscScalar *fa; in dmdavecrestorearray2_() local
148 *ierr = F90Array2dAccess(a, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearray2_()
149 *ierr = VecRestoreArray(*v, &fa); in dmdavecrestorearray2_()
196 PetscScalar *fa; in dmdavecrestorearray3_() local
[all …]
|
| /petsc/src/sys/ftn-custom/ |
| H A D | zsysf90.c | 11 PetscInt *fa; in petscintarray1ddestroyf90_() local
13 *__ierr = F90Array1dAccess(ptr, MPIU_INT, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in petscintarray1ddestroyf90_()
17 *__ierr = PetscFree(fa); in petscintarray1ddestroyf90_()
|
| /petsc/src/mat/matfd/ftn-custom/ |
| H A D | zfdmatrixf.c | 22 const PetscInt *fa; in matfdcoloringgetperturbedcolumns_() local
24 *__ierr = MatFDColoringGetPerturbedColumns(*x, len, &fa); in matfdcoloringgetperturbedcolumns_()
26 *__ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, *len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matfdcoloringgetperturbedcolumns_()
|
| /petsc/src/snes/impls/gs/ |
| H A D | gssecant.c | 24 const PetscScalar *fa, *ga; in SNESComputeNGSDefaultSecant() local
78 PetscCall(VecGetArrayRead(F, &fa)); in SNESComputeNGSDefaultSecant()
81 f = fa[idx[j] - s]; in SNESComputeNGSDefaultSecant()
97 PetscCall(VecRestoreArrayRead(F, &fa)); in SNESComputeNGSDefaultSecant()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex6.c | 496 PetscScalar *fa; in MyBCRoutine() local
499 PetscCall(VecGetArray(f, &fa)); in MyBCRoutine()
500 fa[0] = 0.0; in MyBCRoutine()
501 fa[m - 1] = 1.0; in MyBCRoutine()
502 PetscCall(VecRestoreArray(f, &fa)); in MyBCRoutine()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex7.c | 219 PetscScalar *fa, *link; in ComputeResidualLocal() local
227 PetscCall(VecGetArray(f, &fa)); in ComputeResidualLocal()
242 for (PetscInt i = 0; i < xdof; ++i) fa[xoff + i] += (M + 4) * ua[xoff + i]; in ComputeResidualLocal()
252 PetscCall(ComputeAction(d, PETSC_FALSE, &link[goff], &ua[yoff], &fa[xoff])); in ComputeResidualLocal()
257 PetscCall(ComputeAction(d, PETSC_TRUE, &link[goff], &ua[yoff], &fa[xoff])); in ComputeResidualLocal()
260 PetscCall(VecRestoreArray(f, &fa)); in ComputeResidualLocal()
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexfem.c | 4555 PetscScalar *x_t, *fa; in DMPlexComputeResidual_Patch_Internal() local
4557 PetscCall(VecGetArray(locF, &fa)); in DMPlexComputeResidual_Patch_Internal()
4581 PetscCall(DMPlexPointLocalFieldRef(dm, cell, f, fa, &r)); in DMPlexComputeResidual_Patch_Internal()
4586 PetscCall(VecRestoreArray(locF, &fa)); in DMPlexComputeResidual_Patch_Internal()
5365 PetscScalar *fa; in DMPlexComputeResidualByKey() local
5368 PetscCall(VecGetArray(locF, &fa)); in DMPlexComputeResidualByKey()
5394 if (ghost <= 0) PetscCall(DMPlexPointLocalFieldRef(dm, scells[0], f, fa, &fL)); in DMPlexComputeResidualByKey()
5396 if (ghost <= 0) PetscCall(DMPlexPointLocalFieldRef(dm, scells[1], f, fa, &fR)); in DMPlexComputeResidualByKey()
5411 PetscCall(VecRestoreArray(locF, &fa)); in DMPlexComputeResidualByKey()
5415 PetscScalar *x_t, *fa; in DMPlexComputeResidualByKey() local
[all …]
|