1: #include <../src/sys/threadcomm/impls/nothread/nothreadimpl.h>

  5: PETSC_EXTERN PetscErrorCode PetscThreadCommCreate_NoThread(PetscThreadComm tcomm)
  6: {

 10:   if (tcomm->nworkThreads != 1) SETERRQ1(PETSC_COMM_WORLD,PETSC_ERR_ARG_WRONG,"Cannot have more than 1 thread for the nonthread communicator,threads requested = %D",tcomm->nworkThreads);
 11:   PetscStrcpy(tcomm->type,NOTHREAD);
 12:   return(0);
 13: }