| /petsc/src/sys/objects/ |
| H A D | finit.c | 19 PETSC_EXTERN void petscsetmoduleblockmpi_(MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint *);
21 PETSC_EXTERN void petscsetcomm_(MPI_Fint *, MPI_Fint *);
49 MPI_Fint c1 = 0, c2 = 0; in PetscInitializeFortran()
57 MPI_Fint freal, fscalar, fsum, fint; in PetscInitializeFortran()
|
| /petsc/src/vec/is/sf/interface/ftn-custom/ |
| H A D | zsf.c | 89 …ETSC_EXTERN void petscsfbcastbegin_(PetscSF *sf, MPI_Fint *unit, const void *rptr, void *lptr, MPI… in petscsfbcastbegin_()
99 PETSC_EXTERN void petscsfbcastend_(PetscSF *sf, MPI_Fint *unit, const void *rptr, void *lptr, MPI_F… in petscsfbcastend_()
109 …TSC_EXTERN void petscsfreducebegin_(PetscSF *sf, MPI_Fint *unit, const void *lptr, void *rptr, MPI… in petscsfreducebegin_()
119 PETSC_EXTERN void petscsfreduceend_(PetscSF *sf, MPI_Fint *unit, const void *lptr, void *rptr, MPI_… in petscsfreduceend_()
131 …C_EXTERN void petscsfbcastbegin_(PetscSF *sf, MPI_Fint *unit, F90Array1d *rptr, F90Array1d *lptr, … in petscsfbcastbegin_()
147 …TSC_EXTERN void petscsfbcastend_(PetscSF *sf, MPI_Fint *unit, F90Array1d *rptr, F90Array1d *lptr, … in petscsfbcastend_()
163 …_EXTERN void petscsfreducebegin_(PetscSF *sf, MPI_Fint *unit, F90Array1d *lptr, F90Array1d *rptr, … in petscsfreducebegin_()
179 …SC_EXTERN void petscsfreduceend_(PetscSF *sf, MPI_Fint *unit, F90Array1d *lptr, F90Array1d *rptr, … in petscsfreduceend_()
|
| /petsc/src/sys/fileio/ftn-custom/ |
| H A D | zmprintf.c | 21 PETSC_EXTERN void petscsynchronizedflush_(MPI_Fint *comm, FILE **file, int *ierr) in petscsynchronizedflush_()
52 *ierr = PetscFPrintf(MPI_Comm_f2c(*(MPI_Fint *)&*comm), *file, "%s", tmp); in petscfprintf_()
65 *ierr = PetscPrintf(MPI_Comm_f2c(*(MPI_Fint *)&*comm), "%s", tmp); in petscprintf_()
78 *ierr = PetscSynchronizedFPrintf(MPI_Comm_f2c(*(MPI_Fint *)&*comm), *file, "%s", tmp); in petscsynchronizedfprintf_()
91 *ierr = PetscSynchronizedPrintf(MPI_Comm_f2c(*(MPI_Fint *)&*comm), "%s", tmp); in petscsynchronizedprintf_()
|
| H A D | zmpiuopenf.c | 21 *ierr = PetscFOpen(MPI_Comm_f2c(*(MPI_Fint *)&*comm), c1, c2, file); in petscfopen_()
29 *ierr = PetscFClose(MPI_Comm_f2c(*(MPI_Fint *)&*comm), *file); in petscfclose_()
|
| /petsc/src/dm/impls/da/ftn-custom/ |
| H A D | zdasubf.c | 12 PETSC_EXTERN void dmdagetprocessorsubset_(DM *da, DMDirection *dir, PetscInt *gp, MPI_Fint *fcomm, … in dmdagetprocessorsubset_()
18 PETSC_EXTERN void dmdagetprocessorsubsets_(DM *da, DMDirection *dir, MPI_Fint *subfcomm, int *__ier… in dmdagetprocessorsubsets_()
|
| /petsc/src/sys/classes/viewer/impls/ascii/ftn-custom/ |
| H A D | zvcreatef.c | 16 return PETSC_VIEWER_STDOUT_(MPI_Comm_f2c(*(MPI_Fint *)&*comm)); in petsc_viewer_stdout_()
|
| /petsc/src/sys/objects/ftn-custom/ |
| H A D | zgcommf.c | 9 PETSC_EXTERN void petscobjectgetcomm_(PetscObject *obj, MPI_Fint *comm, PetscErrorCode *ierr) in petscobjectgetcomm_()
|
| H A D | zoptionsf.c | 55 PETSC_EXTERN void petscoptionsbegin_(MPI_Fint *fcomm, char *prefix, char *mess, char *sec, PetscErr… in petscoptionsbegin_()
341 PETSC_EXTERN void petscsubcommgetparent_(PetscSubcomm *scomm, MPI_Fint *pcomm, int *ierr) in petscsubcommgetparent_()
349 PETSC_EXTERN void petscsubcommgetcontiguousparent_(PetscSubcomm *scomm, MPI_Fint *pcomm, int *ierr) in petscsubcommgetcontiguousparent_()
357 PETSC_EXTERN void petscsubcommgetchild_(PetscSubcomm *scomm, MPI_Fint *ccomm, int *ierr) in petscsubcommgetchild_()
|
| H A D | zstart.c | 171 …if (f_petsc_comm_world) PETSC_COMM_WORLD = MPI_Comm_f2c(*(MPI_Fint *)&f_petsc_comm_world); /* User… in petscinitializef_()
|
| /petsc/src/mat/impls/adj/mpi/ftn-custom/ |
| H A D | zmpiadjf.c | 16 *ierr = MatCreateMPIAdj(MPI_Comm_f2c(*(MPI_Fint *)&*comm), *m, *n, i, j, values, A); in matcreatempiadj_()
|
| /petsc/src/ksp/pc/impls/mg/ftn-custom/ |
| H A D | zmgf.c | 10 PETSC_EXTERN void pcmgsetlevels_(PC *pc, PetscInt *levels, MPI_Fint fcomms[], PetscErrorCode *ierr) in pcmgsetlevels_()
|
| /petsc/src/sys/classes/viewer/impls/draw/ftn-custom/ |
| H A D | zdrawvf.c | 19 return PETSC_VIEWER_DRAW_(MPI_Comm_f2c(*(MPI_Fint *)&*comm)); in petsc_viewer_draw_()
|
| /petsc/src/sys/classes/viewer/impls/string/ftn-custom/ |
| H A D | zstringvf.c | 17 *ierr = PetscViewerStringOpen(MPI_Comm_f2c(*(MPI_Fint *)&*comm), name, len1, str); in petscviewerstringopen_()
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | petscmpi.pxi | 23 ctypedef int MPI_Fint
24 MPI_Fint MPI_Comm_c2f(MPI_Comm)
|
| /petsc/src/mat/impls/nest/ftn-custom/ |
| H A D | zmatnestf.c | 14 PETSC_EXTERN void matcreatenest_(MPI_Fint *comm, PetscInt *nr, IS is_row[], PetscInt *nc, IS is_col… in matcreatenest_()
|
| /petsc/src/sys/error/ftn-custom/ |
| H A D | zerrf.c | 82 PETSC_EXTERN void petscerror_(MPI_Fint *comm, PetscErrorCode *number, PetscErrorType *p, char *mess… in petscerror_()
|
| /petsc/include/petsc/mpiuni/ |
| H A D | mpi.h | 405 typedef int MPI_Fint; typedef
407 #define MPI_Comm_c2f(comm) (MPI_Fint)(comm)
409 #define MPI_Type_c2f(type) (MPI_Fint)(type)
411 #define MPI_Op_c2f(op) (MPI_Fint)(op)
|
| /petsc/src/sys/classes/viewer/impls/ascii/ |
| H A D | filev.c | 561 PETSC_EXTERN void petscviewerasciiopenwithfileunit_(MPI_Fint *comm, int *unit, PetscViewer *viewer,… in petscviewerasciiopenwithfileunit_()
563 *ierr = PetscViewerCreate(MPI_Comm_f2c(*(MPI_Fint *)&*comm), viewer); in petscviewerasciiopenwithfileunit_()
651 MPI_Fint fcomm = MPI_Comm_c2f(ncomm); in PetscViewerASCIIGetStdout()
|
| /petsc/include/petsc/private/ |
| H A D | ftnimpl.h | 5 PETSC_EXTERN PetscErrorCode PetscMPIFortranDatatypeToC(MPI_Fint, MPI_Datatype *);
|
| /petsc/src/sys/ftn-custom/ |
| H A D | f90_cwrap.c | 25 PetscErrorCode PetscMPIFortranDatatypeToC(MPI_Fint unit, MPI_Datatype *dtype) in PetscMPIFortranDatatypeToC()
|
| /petsc/src/mat/impls/aij/mpi/mkl_cpardiso/ |
| H A D | mkl_cpardiso.c | 88 MPI_Fint comm_mkl_cpardiso;
|