| /petsc/src/vec/is/sf/interface/ftn-custom/ |
| H A D | zsf.c | 31 …fgetgraph_(PetscSF *sf, PetscInt *nroots, PetscInt *nleaves, F90Array1d *ailocal, F90Array1d *aire… in petscsfgetgraph_() 46 …toregraph_(PetscSF *sf, PetscInt *nroots, PetscInt *nleaves, F90Array1d *ailocal, F90Array1d *aire… in petscsfrestoregraph_() 53 …fgetleafranks_(PetscSF *sf, PetscMPIInt *niranks, F90Array1d *airanks, F90Array1d *aioffset, F90Ar… in petscsfgetleafranks_() 69 …anks_(PetscSF *sf, PetscMPIInt *nranks, F90Array1d *aranks, F90Array1d *aroffset, F90Array1d *armi… in petscsfgetrootranks_() 131 PETSC_EXTERN void petscsfbcastbegin_(PetscSF *sf, MPI_Fint *unit, F90Array1d *rptr, F90Array1d *lpt… in petscsfbcastbegin_() 147 PETSC_EXTERN void petscsfbcastend_(PetscSF *sf, MPI_Fint *unit, F90Array1d *rptr, F90Array1d *lptr,… in petscsfbcastend_() 163 PETSC_EXTERN void petscsfreducebegin_(PetscSF *sf, MPI_Fint *unit, F90Array1d *lptr, F90Array1d *rp… in petscsfreducebegin_() 179 PETSC_EXTERN void petscsfreduceend_(PetscSF *sf, MPI_Fint *unit, F90Array1d *lptr, F90Array1d *rptr… in petscsfreduceend_()
|
| /petsc/src/dm/impls/da/ftn-custom/ |
| H A D | zdaf.c | 16 PETSC_EXTERN void dmdagetneighbors_(DM *da, F90Array1d *ptr, PetscErrorCode *ierr PETSC_F90_2PTR_PR… in dmdagetneighbors_() 30 PETSC_EXTERN void dmdarestoreneighbors_(DM *da, F90Array1d *ptr, PetscErrorCode *ierr PETSC_F90_2PT… in dmdarestoreneighbors_() 35 PETSC_EXTERN void dmdagetownershipranges_(DM *da, F90Array1d *lx, F90Array1d *ly, F90Array1d *lz, P… in dmdagetownershipranges_() 55 PETSC_EXTERN void dmdarestoreownershipranges_(DM *da, F90Array1d *lx, F90Array1d *ly, F90Array1d *l… in dmdarestoreownershipranges_()
|
| /petsc/src/dm/impls/plex/ftn-custom/ |
| H A D | zplexf90.c | 48 PETSC_EXTERN void dmplexgetcone_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PRO… in dmplexgetcone_() 60 PETSC_EXTERN void dmplexrestorecone_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F90_2PTR… in dmplexrestorecone_() 66 PETSC_EXTERN void dmplexgetconeorientation_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F… in dmplexgetconeorientation_() 78 PETSC_EXTERN void dmplexrestoreconeorientation_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PET… in dmplexrestoreconeorientation_() 84 PETSC_EXTERN void dmplexgetsupport_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_… in dmplexgetsupport_() 96 PETSC_EXTERN void dmplexrestoresupport_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F90_2… in dmplexrestoresupport_() 102 …ansitiveclosure_(DM *dm, PetscInt *p, PetscBool *useCone, PetscInt *N, F90Array1d *ptr, int *ierr … in dmplexgettransitiveclosure_() 114 …ansitiveclosure_(DM *dm, PetscInt *p, PetscBool *useCone, PetscInt *N, F90Array1d *ptr, int *ierr … in dmplexrestoretransitiveclosure_() 126 …_(DM *dm, PetscSection *section, Vec *x, PetscInt *point, PetscInt *N, F90Array1d *ptr, int *ierr … in dmplexvecgetclosure_() 138 …_(DM *dm, PetscSection *section, Vec *v, PetscInt *point, PetscInt *N, F90Array1d *ptr, int *ierr … in dmplexvecrestoreclosure_() [all …]
|
| H A D | zplexfemf90.c | 21 … *dm, IS *cellIS, Vec *locX, Vec *locX_t, Vec *locA, F90Array1d *uPtr, F90Array1d *utPtr, F90Array… in dmplexgetcellfields_() 53 … *dm, IS *cellIS, Vec *locX, Vec *locX_t, Vec *locA, F90Array1d *uPtr, F90Array1d *utPtr, F90Array… in dmplexrestorecellfields_() 73 …ceGeometry, Vec *cellGeometry, Vec *locGrad, PetscInt *Nface, F90Array1d *uLPtr, F90Array1d *uRPtr… in dmplexgetfacefields_() 91 …ceGeometry, Vec *cellGeometry, Vec *locGrad, PetscInt *Nface, F90Array1d *uLPtr, F90Array1d *uRPtr… in dmplexrestorefacefields_() 107 …*fEnd, Vec *faceGeometry, Vec *cellGeometry, PetscInt *Nface, F90Array1d *gPtr, F90Array1d *vPtr, … in dmplexgetfacegeometry_() 121 …*fEnd, Vec *faceGeometry, Vec *cellGeometry, PetscInt *Nface, F90Array1d *gPtr, F90Array1d *vPtr, … in dmplexrestorefacegeometry_()
|
| /petsc/src/ksp/pc/impls/asm/ftn-custom/ |
| H A D | zasmf.c | 22 PETSC_EXTERN void pcasmcreatesubdomains_(Mat *mat, PetscInt n, F90Array1d *is, PetscErrorCode *ierr… in pcasmcreatesubdomains_() 32 PETSC_EXTERN void pcasmgetlocalsubmatrices_(PC *pc, PetscInt *n, F90Array1d *mat, PetscErrorCode *i… in pcasmgetlocalsubmatrices_() 44 PETSC_EXTERN void pcasmgetlocalsubdomains_(PC *pc, PetscInt *n, F90Array1d *is, F90Array1d *is_loca… in pcasmgetlocalsubdomains_() 61 PETSC_EXTERN void pcasmdestroysubdomains_(PetscInt *n, F90Array1d *is1, F90Array1d *is2, int *ierr … in pcasmdestroysubdomains_() 77 …PetscInt *N, PetscInt *dof, PetscInt *overlap, PetscInt *Nsub, F90Array1d *is1, F90Array1d *is2, i… in pcasmcreatesubdomains2d_() 89 PETSC_EXTERN void pcasmgetsubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d *ksp… in pcasmgetsubksp_() 102 PETSC_EXTERN void pcasmrestoresubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d … in pcasmrestoresubksp_()
|
| /petsc/src/dm/dt/interface/ftn-custom/ |
| H A D | zdtf90.c | 14 …uadrature *q, PetscInt *dim, PetscInt *Nc, PetscInt *npoints, F90Array1d *ptrP, F90Array1d *ptrW, … in petscquadraturegetdata_() 25 …uadrature *q, PetscInt *dim, PetscInt *Nc, PetscInt *npoints, F90Array1d *ptrP, F90Array1d *ptrW, … in petscquadraturerestoredata_() 32 …uadrature *q, PetscInt *dim, PetscInt *Nc, PetscInt *npoints, F90Array1d *ptrP, F90Array1d *ptrW, … in petscquadraturesetdata_()
|
| /petsc/src/vec/vec/tutorials/ |
| H A D | ex21.c | 20 PETSC_INTERN void f90array1dcreatemystruct_(void *, PetscInt *, PetscInt *, F90Array1d *PETSC_F90_2… 21 PETSC_INTERN void f90array1daccessmystruct_(F90Array1d *, void **PETSC_F90_2PTR_PROTO_NOVAR); 22 PETSC_INTERN void f90array1ddestroymystruct_(F90Array1d *ptr PETSC_F90_2PTR_PROTO_NOVAR); 29 PETSC_INTERN void vecgetarraymystruct_(Vec *x, F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PROTO(pt… in vecgetarraymystruct_() 44 PETSC_INTERN void vecrestorearraymystruct_(Vec *x, F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PROT… in vecrestorearraymystruct_()
|
| /petsc/src/mat/interface/ftn-custom/ |
| H A D | zmatrixf90.c | 54 PETSC_EXTERN void matgetrow_(Mat *B, PetscInt *row, PetscInt *N, F90Array1d *ia, F90Array1d *a, Pet… in matgetrow_() 74 PETSC_EXTERN void matrestorerow_(Mat *B, PetscInt *row, PetscInt *N, F90Array1d *ia, F90Array1d *a,… in matrestorerow_() 104 PETSC_EXTERN void matgetghosts_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd)) in matgetghosts_() 194 PETSC_EXTERN void matdensegetarray1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptr… in matdensegetarray1d_() 212 PETSC_EXTERN void matdenserestorearray1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO… in matdenserestorearray1d_() 221 PETSC_EXTERN void matdensegetarrayread1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO… in matdensegetarrayread1d_() 239 PETSC_EXTERN void matdenserestorearrayread1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_P… in matdenserestorearrayread1d_() 248 PETSC_EXTERN void matdensegetarraywrite1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROT… in matdensegetarraywrite1d_() 266 PETSC_EXTERN void matdenserestorearraywrite1d_(Mat *mat, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_… in matdenserestorearraywrite1d_() 275 PETSC_EXTERN void matdensegetcolumn_(Mat *mat, PetscInt *col, F90Array1d *ptr, int *ierr PETSC_F90_… in matdensegetcolumn_() [all …]
|
| H A D | zmatrixf.c | 35 …atrices_(Mat *mat, PetscInt *n, IS *isrow, IS *iscol, MatReuse *scall, F90Array1d *ptr, PetscError… in matcreatesubmatrices_() 48 …icesmpi_(Mat *mat, PetscInt *n, IS *isrow, IS *iscol, MatReuse *scall, F90Array1d *ptr, PetscError… in matcreatesubmatricesmpi_() 63 PETSC_EXTERN void matdestroymatrices_(PetscInt *n, F90Array1d *ptr, PetscErrorCode *ierr PETSC_F90_… in matdestroymatrices_() 80 PETSC_EXTERN void matdestroysubmatrices_(PetscInt *n, F90Array1d *ptr, PetscErrorCode *ierr PETSC_F… in matdestroysubmatrices_()
|
| /petsc/src/ksp/pc/impls/gasm/ftn-custom/ |
| H A D | zgasmf.c | 16 PETSC_EXTERN void pcgasmdestroysubdomains_(PetscInt *n, F90Array1d *is1, F90Array1d *is2, int *ierr… in pcgasmdestroysubdomains_() 31 …PetscInt *N, PetscInt *dof, PetscInt *overlap, PetscInt *Nsub, F90Array1d *is1, F90Array1d *is2, i… in pcgasmcreatesubdomains2d_() 42 PETSC_EXTERN void pcgasmgetsubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d *ks… in pcgasmgetsubksp_() 55 PETSC_EXTERN void pcgasmrestoresubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d… in pcgasmrestoresubksp_()
|
| /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_() 39 PETSC_EXTERN void vecrestorearraywrite_(Vec *x, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptr… in vecrestorearraywrite_() 49 PETSC_EXTERN void vecgetarray_(Vec *x, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd)) in vecgetarray_() 64 PETSC_EXTERN void vecrestorearray_(Vec *x, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd)) in vecrestorearray_() 74 PETSC_EXTERN void vecgetarrayread_(Vec *x, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd)) in vecgetarrayread_() 89 PETSC_EXTERN void vecrestorearrayread_(Vec *x, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd… in vecrestorearrayread_() 99 PETSC_EXTERN void vecduplicatevecs_(Vec *v, int *m, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO… in vecduplicatevecs_() 115 PETSC_EXTERN void vecdestroyvecs_(int *m, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd)) in vecdestroyvecs_()
|
| H A D | zvectorf.c | 13 PETSC_EXTERN void vecgetownershipranges_(Vec *v, F90Array1d *ptr, PetscErrorCode *ierr PETSC_F90_2P… in vecgetownershipranges_() 24 PETSC_EXTERN void vecrestoreownershipranges_(Vec *v, F90Array1d *ptr, PetscErrorCode *ierr PETSC_F9… in vecrestoreownershipranges_()
|
| /petsc/src/snes/interface/ftn-custom/ |
| H A D | zsnesf90.c | 12 PETSC_EXTERN void snesgetconvergencehistory_(SNES *snes, F90Array1d *r, F90Array1d *fits, PetscInt … in snesgetconvergencehistory_() 26 PETSC_EXTERN void snesrestoreconvergencehistory_(SNES *snes, F90Array1d *r, F90Array1d *fits, Petsc… in snesrestoreconvergencehistory_()
|
| /petsc/src/vec/is/section/interface/ftn-custom/ |
| H A D | zvsectionisf90.c | 16 PETSC_EXTERN void petscsectiongetconstraintindices_(PetscSection *s, PetscInt *point, F90Array1d *i… in petscsectiongetconstraintindices_() 28 …etscsectionrestoreconstraintindices_(PetscSection *s, PetscInt *point, F90Array1d *indices, int *i… in petscsectionrestoreconstraintindices_() 33 …dconstraintindices_(PetscSection *s, PetscInt *point, PetscInt *field, F90Array1d *indices, int *i… in petscsectiongetfieldconstraintindices_() 45 …dconstraintindices_(PetscSection *s, PetscInt *point, PetscInt *field, F90Array1d *indices, int *i… in petscsectionrestorefieldconstraintindices_()
|
| /petsc/src/vec/is/is/interface/ftn-custom/ |
| H A D | zindexf90.c | 16 PETSC_EXTERN void petsclayoutgetranges_(PetscLayout *map, F90Array1d *ptr, int *ierr PETSC_F90_2PTR… in petsclayoutgetranges_() 28 PETSC_EXTERN void petsclayoutrestoreranges_(PetscLayout *map, F90Array1d *ptr, int *ierr PETSC_F90_… in petsclayoutrestoreranges_() 33 PETSC_EXTERN void isgetindices_(IS *x, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd)) in isgetindices_() 44 PETSC_EXTERN void isrestoreindices_(IS *x, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd)) in isrestoreindices_()
|
| /petsc/src/vec/is/utils/ftn-custom/ |
| H A D | zisltogf90.c | 16 PETSC_EXTERN void islocaltoglobalmappinggetindices_(ISLocalToGlobalMapping *da, F90Array1d *indices… in islocaltoglobalmappinggetindices_() 27 PETSC_EXTERN void islocaltoglobalmappingrestoreindices_(ISLocalToGlobalMapping *da, F90Array1d *ptr… in islocaltoglobalmappingrestoreindices_() 39 PETSC_EXTERN void islocaltoglobalmappinggetblockindices_(ISLocalToGlobalMapping *da, F90Array1d *in… in islocaltoglobalmappinggetblockindices_() 50 PETSC_EXTERN void islocaltoglobalmappingrestoreblockindices_(ISLocalToGlobalMapping *da, F90Array1d… in islocaltoglobalmappingrestoreblockindices_()
|
| /petsc/src/ksp/pc/impls/fieldsplit/ftn-custom/ |
| H A D | zfieldsplitf.c | 16 PETSC_EXTERN void pcfieldsplitschurgetsubksp_(PC *pc, PetscInt *n_local, F90Array1d *ksp, PetscErro… in pcfieldsplitschurgetsubksp_() 27 PETSC_EXTERN void pcfieldsplitgetsubksp_(PC *pc, PetscInt *n_local, F90Array1d *ksp, PetscErrorCode… in pcfieldsplitgetsubksp_() 38 PETSC_EXTERN void pcfieldsplitrestoresubksp_(PC *pc, PetscInt *n_local, F90Array1d *ksp, PetscError… in pcfieldsplitrestoresubksp_() 48 PETSC_EXTERN void pcfieldsplitschurerestoresubksp_(PC *pc, PetscInt *n_local, F90Array1d *ksp, Pets… in pcfieldsplitschurerestoresubksp_()
|
| /petsc/src/sys/objects/ftn-custom/ |
| H A D | zstartf.c | 15 …calar_array, void *fnull_real_array, F90Array1d *fnull_integer_pointer, F90Array1d *fnull_scalar_p… in petscsetfortranbasepointers_()
|
| /petsc/src/sys/ftn-custom/ |
| H A D | f90_cwrap.c | 81 PETSC_EXTERN void f90array1dcreatescalar_(void *, PetscInt *, PetscInt *, F90Array1d *PETSC_F90_2PT… 82 PETSC_EXTERN void f90array1daccessscalar_(F90Array1d *, void **PETSC_F90_2PTR_PROTO_NOVAR); 83 PETSC_EXTERN void f90array1ddestroyscalar_(F90Array1d *ptr PETSC_F90_2PTR_PROTO_NOVAR); 84 PETSC_EXTERN void f90array1dcreatereal_(void *, PetscInt *, PetscInt *, F90Array1d *PETSC_F90_2PTR_… 85 PETSC_EXTERN void f90array1daccessreal_(F90Array1d *, void **PETSC_F90_2PTR_PROTO_NOVAR); 86 PETSC_EXTERN void f90array1ddestroyreal_(F90Array1d *ptr PETSC_F90_2PTR_PROTO_NOVAR); 87 PETSC_EXTERN void f90array1dcreateint_(void *, PetscInt *, PetscInt *, F90Array1d *PETSC_F90_2PTR_P… 88 PETSC_EXTERN void f90array1daccessint_(F90Array1d *, void **PETSC_F90_2PTR_PROTO_NOVAR); 89 PETSC_EXTERN void f90array1ddestroyint_(F90Array1d *ptr PETSC_F90_2PTR_PROTO_NOVAR); 90 PETSC_EXTERN void f90array1dcreatempiint_(void *, PetscInt *, PetscInt *, F90Array1d *PETSC_F90_2PT… [all …]
|
| /petsc/src/dm/interface/ftn-custom/ |
| H A D | zdmf.c | 35 PETSC_EXTERN void dmcreatefielddecompositiongetisdm_(DM *dm, F90Array1d *iss, F90Array1d *dms, Pets… in dmcreatefielddecompositiongetisdm_() 54 PETSC_EXTERN void dmcreatefielddecompositionrestoreisdm_(DM *dm, F90Array1d *iss, F90Array1d *dms, … in dmcreatefielddecompositionrestoreisdm_()
|
| /petsc/src/vec/is/sf/utils/ftn-custom/ |
| H A D | zsfutilsf90.c | 15 PETSC_EXTERN void petscsfdestroyremoteoffsets_(F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd… in petscsfdestroyremoteoffsets_() 25 PETSC_EXTERN void petscsfdistributesection_(PetscSF *sf, PetscSection *rootSection, F90Array1d *ptr… in petscsfdistributesection_() 41 …etscSF *pointSF, PetscSection *rootSection, PetscSection *leafSection, F90Array1d *ptr, int *ierr … in petscsfcreateremoteoffsets_()
|
| /petsc/src/ksp/ksp/interface/ftn-custom/ |
| H A D | zitfuncf90.c | 10 PETSC_EXTERN void kspgetresidualhistory_(KSP *ksp, F90Array1d *indices, PetscInt *n, int *ierr PETS… in kspgetresidualhistory_() 18 PETSC_EXTERN void ksprestoreresidualhistory_(KSP *ksp, F90Array1d *indices, PetscInt *n, int *ierr … in ksprestoreresidualhistory_()
|
| /petsc/src/dm/impls/composite/ftn-custom/ |
| H A D | zfddaf.c | 61 PETSC_EXTERN void dmcompositegetglobaliss_(DM *dm, F90Array1d *ptr, PetscErrorCode *ierr PETSC_F90_… in dmcompositegetglobaliss_() 73 PETSC_EXTERN void dmcompositerestoreglobaliss_(DM *dm, F90Array1d *ptr, PetscErrorCode *ierr PETSC_… in dmcompositerestoreglobaliss_() 90 PETSC_EXTERN void dmcompositegetlocaliss_(DM *dm, F90Array1d *ptr, PetscErrorCode *ierr PETSC_F90_2… in dmcompositegetlocaliss_() 102 PETSC_EXTERN void dmcompositerestorelocaliss_(DM *dm, F90Array1d *ptr, PetscErrorCode *ierr PETSC_F… in dmcompositerestorelocaliss_()
|
| /petsc/src/ksp/pc/impls/bjacobi/ftn-custom/ |
| H A D | zbjacobif.c | 12 PETSC_EXTERN void pcbjacobigetsubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d … in pcbjacobigetsubksp_() 25 …jacobirestoresubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d *ksp, PetscError… in pcbjacobirestoresubksp_()
|
| /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_() 22 PETSC_EXTERN void isblockrestoreindices_(IS *x, F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PROTO(p… in isblockrestoreindices_()
|