Searched refs:f_petsc_comm_world (Results 1 – 1 of 1) sorted by relevance
132 PetscMPIInt f_petsc_comm_world; in petscinitializef_() local151 petscgetcomm_(&f_petsc_comm_world); in petscinitializef_()156 if (f_petsc_comm_world) { in petscinitializef_()171 …if (f_petsc_comm_world) PETSC_COMM_WORLD = MPI_Comm_f2c(*(MPI_Fint *)&f_petsc_comm_world); /* User… in petscinitializef_()