Searched refs:mpi_comm_default (Results 1 – 3 of 3) sorted by relevance
214 INTEGER :: mpi_comm_default, unit_nr local232 CALL mp_world_init(mpi_comm_default)234 mpi_comm_default = mp_comm_world243 CALL cp_para_env_create(default_para_env, group=mpi_comm_default, &
216 INTEGER :: mpi_comm_default, unit_nr local234 CALL mp_world_init(mpi_comm_default)236 mpi_comm_default = mp_comm_world245 CALL cp_para_env_create(default_para_env, group=mpi_comm_default, &
1133 MPI_Comm mpi_comm_default; in comex_barrier() local1155 mpi_comm_default = comex_igroup->comm; in comex_barrier()1156 status = MPI_Comm_size(mpi_comm_default, &group_size); in comex_barrier()1158 status = MPI_Comm_rank(mpi_comm_default, &group_rank); in comex_barrier()