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: }