Date: 2013-07-02T14:39:35+00:00

Actual source code: nothread.c
petsc-3.4.2 2013-07-02

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