C++ (Cpp) mpi_comm_newの例

コード例 #1

ファイル: comm.c プロジェクト: aaretxabaleta-usgs/roms_coh_2012_urta

int MPI_Comm_split(MPI_Comm comm, int color, int key, MPI_Comm *newcomm)
{
  if (color==MPI_UNDEFINED)
    *newcomm=MPI_COMM_NULL;
  else
    *newcomm= mpi_comm_new();

  return(MPI_SUCCESS);
}

コード例 #2

ファイル: comm.c プロジェクト: aaretxabaleta-usgs/roms_coh_2012_urta

int MPI_Comm_create(MPI_Comm comm, MPI_Group group, MPI_Comm *newcomm)
{
  if (group==MPI_GROUP_NULL || group==MPI_GROUP_EMPTY)
    *newcomm= MPI_COMM_NULL;
  else
    *newcomm=mpi_comm_new();

  return(MPI_SUCCESS);
}

コード例 #3

ファイル: comm.c プロジェクト: aaretxabaleta-usgs/roms_coh_2012_urta

int MPI_Comm_dup(MPI_Comm comm, MPI_Comm *newcomm)
{
  *newcomm= mpi_comm_new();

#ifdef INFO
  fflush(stdout);
  fprintf(stderr,"MPI_Comm_dup: new comm handle=%d\n",*newcomm);
#endif

  return(MPI_SUCCESS);
}

コード例 #4

ファイル: mpi.c プロジェクト: steder/maroonmpi

int MPI_Init(int *argc, char **argv[]) 
{
  MPI_Comm my_comm_world;

  my_comm_world=mpi_comm_new();

  if (my_comm_world != MPI_COMM_WORLD)
    {
      fprintf(stderr,"MPI_Init: conflicting MPI_COMM_WORLD\n");
      abort();
    }

  initialized=1;
  return(MPI_SUCCESS);
}

コード例 #5

ファイル: mpi.c プロジェクト: guziy/modeltools

int MPI_Init(int *argc, char **argv[]) 
{
  MPI_Comm my_comm_world;

  if (sizeof(MPI_Aint) < sizeof(void *))
    {
      fprintf(stderr, "mpi-serial: MPI_Init: "
                      "MPI_Aint is not large enough for void *\n");
      abort();
    }

  my_comm_world=mpi_comm_new();

  if (my_comm_world != MPI_COMM_WORLD)
    {
      fprintf(stderr,"MPI_Init: conflicting MPI_COMM_WORLD\n");
      abort();
    }

  initialized=1;
  return(MPI_SUCCESS);
}