Esempi in C++ (Cpp) per _MPI_checkIntP

Esempio n. 1

File: PMPI_Initialized.c Progetto: haripandey/trilinos

int PMPI_Initialized( int *flag )
{
  int retval;
  retval = _MPI_checkIntP (flag);
  if (retval!=MPI_SUCCESS)
  {
    MPI_Abort((MPI_Comm)NULL, MPI_ERR_OTHER);
    return retval;
  }
  *flag = _MPI_INITIALIZED_FLAG;
  return MPI_SUCCESS; 
}

Esempio n. 2

File: PMPI_Finalized.c Progetto: 00liujj/trilinos

int PMPI_Finalized( int *flag )
{
  int retval;
  retval = _MPI_checkIntP (flag);
  if (retval!=MPI_SUCCESS)
  {
    _MPI_ERR_ROUTINE(MPI_ERR_IN_STATUS, "MPI_FINALIZED: Invalid pointer."); 
    MPI_Abort((MPI_Comm)0, MPI_ERR_OTHER);
    return retval;
  }
  if ( (_MPI_INIT_STATUS == _MPI_ENDED) && (_MPI_FINALIZED_FLAG) )
    *flag = _MPI_TRUE;
  else 
    *flag = _MPI_FALSE;
  return MPI_SUCCESS; 
}