Searched refs:MPI_Comm_f2c (Results 1 – 15 of 15) sorted by relevance
| /petsc/src/sys/fileio/ftn-custom/ |
| H A D | zmprintf.c | 25 *ierr = PetscSynchronizedFlush(MPI_Comm_f2c(*(comm)), f); 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/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/mat/impls/nest/ftn-custom/ |
| H A D | zmatnestf.c | 28 …(void)PetscError(MPI_Comm_f2c(*comm), __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_ARG_WRONG… in matcreatenest_()
34 *ierr = MatCreateNest(MPI_Comm_f2c(*comm), *nr, is_row, *nc, is_col, m, B); in matcreatenest_()
|
| /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 | 17 for (PetscInt i = 0; i < *levels; i++) ccomms[i] = MPI_Comm_f2c(fcomms[i]); 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/vec/vec/tutorials/ |
| H A D | ex7.c | 61 comm = MPI_Comm_f2c(*fcomm); in ex7c_()
|
| /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/sys/objects/ftn-custom/ |
| 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_()
|
| H A D | zoptionsf.c | 57 MPI_Comm comm = MPI_Comm_f2c(*fcomm); in petscoptionsbegin_()
|
| /petsc/src/sys/error/ftn-custom/ |
| H A D | zerrf.c | 87 nierr = PetscError(MPI_Comm_f2c(*(comm)), 0, NULL, NULL, *number, *p, "%s", t1); in petscerror_()
|
| /petsc/src/mat/impls/aij/mpi/mkl_cpardiso/ |
| H A D | mkl_cpardiso.c | 363 comm = MPI_Comm_f2c(mat_mkl_cpardiso->comm_mkl_cpardiso); in MatDestroy_MKL_CPARDISO()
|
| /petsc/src/sys/classes/viewer/impls/ascii/ |
| H A D | filev.c | 563 *ierr = PetscViewerCreate(MPI_Comm_f2c(*(MPI_Fint *)&*comm), viewer); in petscviewerasciiopenwithfileunit_()
|
| /petsc/include/petsc/mpiuni/ |
| H A D | mpi.h | 406 #define MPI_Comm_f2c(comm) (MPI_Comm)(comm) macro
|