[petsc-dev] communicators

23 Mar 2012

      Pretty much every use of COMM_WORLD outside of src/sys/ is a bug.

$ find src -name '*.c' | grep -v
'\(examples\|src/sys\|src/contrib\|src/benchmarks\)' | xargs grep COMM_WORLD

I just fixed a few obvious cases before running this. If there is
COMM_WORLD in your code, please consider fixing it.

src/dm/impls/adda/adda.c:  ierr =
MPI_Comm_size(PETSC_COMM_WORLD,&comm_size);CHKERRQ(ierr);
src/dm/impls/da/usfft/matusfft.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,
"direction = %d, usfft->ndim = %d\n", direction, usfft->ndim);CHKERRQ(ierr);
src/dm/impls/da/usfft/matusfft.c:        ierr =
PetscPrintf(PETSC_COMM_WORLD, "usfft->outdim[%d] = %d\n", ii,
usfft->outdim[ii]);CHKERRQ(ierr);
src/dm/impls/iga/iga.c:    SETERRQ(PETSC_COMM_WORLD,
PETSC_ERR_ARG_OUTOFRANGE, "Discretization inconsistent: polynomial order
must be greater than degree of continuity");
src/dm/impls/iga/iga.c:  ierr = DMDACreate(PETSC_COMM_WORLD,&iga->da_dof);
CHKERRQ(ierr);
src/dm/impls/iga/iga.c:    SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_FILE_OPEN,
"Cannot find geometry file");
src/dm/impls/iga/iga.c:    SETERRQ(PETSC_COMM_WORLD,
PETSC_ERR_ARG_OUTOFRANGE, "Geometry dimension != problem dimension");
src/dm/impls/iga/iga.c:  ierr = DMDACreate(PETSC_COMM_WORLD,&iga->da_dof);
CHKERRQ(ierr);
src/dm/impls/iga/iga.c:  ierr =
DMDACreate(PETSC_COMM_WORLD,&iga->da_geometry); CHKERRQ(ierr);
src/dm/impls/iga/iga.c:    SETERRQ(PETSC_COMM_WORLD,
PETSC_ERR_ARG_OUTOFRANGE, "Discretization inconsistent: polynomial order
must be greater than degree of continuity");
src/dm/impls/iga/iga.c:    SETERRQ(PETSC_COMM_WORLD,
PETSC_ERR_ARG_OUTOFRANGE, "Initialization routine for tapered meshes does
not yet support periodicity");
src/dm/impls/iga/iga.c:    SETERRQ(PETSC_COMM_WORLD,
PETSC_ERR_ARG_OUTOFRANGE, "Initialization routine for tapered meshes does
not yet support periodicity");
src/dm/impls/iga/iga.c:  ierr = DMDACreate(PETSC_COMM_WORLD,&iga->da_dof);
CHKERRQ(ierr);
src/dm/impls/iga/iga.c:    SETERRQ(PETSC_COMM_WORLD,
PETSC_ERR_ARG_OUTOFRANGE, "Discretization inconsistent: polynomial order
must be greater than degree of continuity");
src/dm/impls/iga/iga.c:  ierr = DMDACreate(PETSC_COMM_WORLD,&iga->da_dof);
CHKERRQ(ierr);
src/dm/impls/iga/iga.c:    SETERRQ(PETSC_COMM_WORLD,
PETSC_ERR_ARG_OUTOFRANGE, "Discretization inconsistent: polynomial order
must be greater than degree of continuity");
src/dm/impls/iga/iga.c:  ierr = DMDACreate(PETSC_COMM_WORLD,&iga->da_dof);
CHKERRQ(ierr);
src/dm/impls/iga/iga.c:    SETERRQ1(PETSC_COMM_WORLD,
PETSC_ERR_ARG_OUTOFRANGE, "Unimplemented number of gauss points %d!", n);
src/dm/impls/iga/iga.c:      SETERRQ(PETSC_COMM_WORLD,
PETSC_ERR_ARG_OUTOFRANGE, "Inserted knots beyond original knot vector
limits");
src/dm/impls/mesh/ftn-custom/zmesh.c:  *ierr =
PetscPrintf(PETSC_COMM_WORLD, "%s %d allocations %d bytes\n", pN,
logger.getNumAllocations(pN), logger.getAllocationTotal(pN));
src/dm/impls/mesh/ftn-custom/zmesh.c:  *ierr =
PetscPrintf(PETSC_COMM_WORLD, "%s %d deallocations %d bytes\n", pN,
logger.getNumDeallocations(pN), logger.getDeallocationTotal(pN));
src/dm/impls/mesh/mesh.c:  SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_SUP, "Peter
needs to incorporate his code.");
src/dm/impls/mesh/mesh.c:  SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_SUP, "Peter
needs to incorporate his code.");
src/dm/impls/mesh/meshlagrit.c:      //Obj<PETSC_MESH_TYPE> m =
ALE::LaGriT::Builder::readMesh(PETSC_COMM_WORLD, 3, options->baseFilename,
options->interpolate, options->debug);'
src/ksp/pc/impls/asa/asa.c:    ierr = PetscPrintf(PETSC_COMM_WORLD,
src/ksp/pc/impls/gamg/agg.c:/* PetscPrintf(PETSC_COMM_WORLD," **** [%d]%s
%d total done, %d nodes (%d local done), min agg. size =
%d\n",mype,__FUNCT__,ii,kk/bs,ndone,jj); */
src/ksp/pc/impls/gamg/agg.c:    PetscPrintf(PETSC_COMM_WORLD,"\t\t[%d]%s
New grid %d nodes\n",mype,__FUNCT__,ii/col_bs);
src/ksp/pc/impls/gamg/geo.c:    PetscPrintf(PETSC_COMM_WORLD,"[%d]%s
done\n",0,__FUNCT__);
src/ksp/pc/impls/gamg/geo.c:      PetscPrintf(PETSC_COMM_WORLD,"[%d]%s
ERROE: no selected points on coarse grid\n",mype,__FUNCT__);
src/ksp/pc/impls/gamg/geo.c:          PetscPrintf(PETSC_COMM_WORLD,"[%d]%s
failed metric for coarse grid %e\n",mype,__FUNCT__,tm);
src/ksp/pc/impls/gamg/geo.c:          PetscPrintf(PETSC_COMM_WORLD,"[%d]%s
worst metric for coarse grid = %e\n",mype,__FUNCT__,metric);
src/ksp/pc/impls/is/nn/nn.c:      ierr =
PetscViewerASCIIOpen(PETSC_COMM_WORLD,"coarse.m",&viewer);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c:
 MPI_Comm_size(MPI_COMM_WORLD,&PCTFS_num_nodes);
src/ksp/pc/impls/tfs/comm.c:  MPI_Comm_rank(MPI_COMM_WORLD,&PCTFS_my_id);
src/ksp/pc/impls/tfs/comm.c: {ierr =
MPI_Send(vals,n,MPIU_INT,edge_not_pow_2,MSGTAG0+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:  ierr =
MPI_Recv(work,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG0+edge_not_pow_2,
MPI_COMM_WORLD,&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c:    {ierr =
MPI_Send(vals,n,MPIU_INT,dest,MSGTAG2+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:      ierr =
MPI_Recv(work,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG2+dest,MPI_COMM_WORLD,
&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c:    {ierr =
MPI_Send(vals,n,MPIU_INT,dest,MSGTAG4+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:      ierr =
MPI_Recv(vals,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG4+dest,MPI_COMM_WORLD,
&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c:  ierr =
MPI_Recv(vals,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG5+edge_not_pow_2,MPI_COMM_WORLD,&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c: {ierr =
MPI_Send(vals,n,MPIU_INT,edge_not_pow_2,MSGTAG5+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c: {ierr =
MPI_Send(vals,n,MPIU_SCALAR,edge_not_pow_2,MSGTAG0+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:  ierr =
MPI_Recv(work,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG0+edge_not_pow_2,MPI_COMM_WORLD,&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c:    {ierr =
MPI_Send(vals,n,MPIU_SCALAR,dest,MSGTAG2+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:      ierr =
MPI_Recv(work,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG2+dest,MPI_COMM_WORLD,
&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c:    {ierr =
MPI_Send(vals,n,MPIU_SCALAR,dest,MSGTAG4+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:      ierr =
MPI_Recv(vals,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG4+dest,MPI_COMM_WORLD,
&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c:  ierr =
MPI_Recv(vals,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG5+edge_not_pow_2,
MPI_COMM_WORLD,&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c: {ierr =
MPI_Send(vals,n,MPIU_SCALAR,edge_not_pow_2,MSGTAG5+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c: {ierr =
MPI_Send(vals,n,MPIU_SCALAR,dest,MSGTAG2+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:  ierr =
MPI_Recv(work,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG2+dest,MPI_COMM_WORLD,&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c: {ierr =
MPI_Send(vals,n,MPIU_SCALAR,dest,MSGTAG4+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:  ierr =
MPI_Recv(vals,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG4+dest,MPI_COMM_WORLD,&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c:          {ierr =
MPI_Send(vals+segs[edge],stage_n,MPIU_SCALAR,dest,type,
MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:              ierr =
MPI_Recv(work,stage_n,MPIU_SCALAR,MPI_ANY_SOURCE,type,MPI_COMM_WORLD,&status);CHKERRQ(ierr);

src/ksp/pc/impls/tfs/comm.c:            {ierr =
MPI_Send(vals+segs[level-1-edge],stage_n,MPIU_SCALAR,dest,type,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:              ierr =
MPI_Recv(vals+segs[level-1-edge],stage_n,MPIU_SCALAR,
MPI_ANY_SOURCE,type,MPI_COMM_WORLD,&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c: {ierr =
MPI_Send(vals,n,MPIU_INT,dest,MSGTAG2+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:  ierr =
MPI_Recv(work,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG2+dest,MPI_COMM_WORLD,
&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/comm.c: {ierr =
MPI_Send(vals,n,MPIU_INT,dest,MSGTAG4+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/comm.c:  ierr =
MPI_Recv(vals,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG4+dest,MPI_COMM_WORLD,&status);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/gs.c:  ierr =
gsi_via_bit_mask(gs);CHKERRABORT(PETSC_COMM_WORLD,ierr);
src/ksp/pc/impls/tfs/gs.c:  ierr =
MPI_Comm_group(MPI_COMM_WORLD,&PCTFS_gs_group);CHKERRABORT(PETSC_COMM_WORLD,ierr);
src/ksp/pc/impls/tfs/gs.c:  ierr =
MPI_Comm_create(MPI_COMM_WORLD,PCTFS_gs_group,&PCTFS_gs_comm);CHKERRABORT(PETSC_COMM_WORLD,ierr);
src/ksp/pc/impls/tfs/gs.c:  ierr =
PetscMemzero(gs,sizeof(PCTFS_gs_id));CHKERRABORT(PETSC_COMM_WORLD,ierr);
src/ksp/pc/impls/tfs/gs.c:  if (!in_elms)
SETERRABORT(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"elms point to nothing!!!\n");
src/ksp/pc/impls/tfs/gs.c:  if (nel<0)
SETERRABORT(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"can't have fewer than 0
elms!!!\n");
src/ksp/pc/impls/tfs/gs.c:    {ierr = PetscInfo(0,"I don't have any
elements!!!\n");CHKERRABORT(PETSC_COMM_WORLD,ierr);}
src/ksp/pc/impls/tfs/gs.c:  if (j!=nel)
SETERRABORT(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"nel j mismatch!\n");
src/ksp/pc/impls/tfs/gs.c:      ierr = PetscInfo(0,"gsi_check_args() :: elm
list *not* sorted!\n");CHKERRABORT(PETSC_COMM_WORLD,ierr);
src/ksp/pc/impls/tfs/gs.c:      ierr = PCTFS_SMI_sort((void*)elms,
(void*)companion, nel, SORT_INTEGER);CHKERRABORT(PETSC_COMM_WORLD,ierr);
src/ksp/pc/impls/tfs/gs.c:    {ierr = PetscInfo(0,"gsi_check_args() :: elm
list sorted!\n");CHKERRABORT(PETSC_COMM_WORLD,ierr);}
src/ksp/pc/impls/tfs/gs.c:  ierr =
PCTFS_giop(vals,work,sizeof(oprs)/sizeof(oprs[0])-1,oprs);CHKERRABORT(PETSC_COMM_WORLD,ierr);
src/ksp/pc/impls/tfs/gs.c:  if (vals[3]<0)
SETERRABORT(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"gsi_check_args() :: system not
semi-pos def \n");
src/ksp/pc/impls/tfs/gs.c:  if (vals[4]==INT_MAX)
SETERRABORT(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"gsi_check_args() :: system ub
too large !\n");
src/ksp/pc/impls/tfs/gs.c:  if (gs->negl<=0)
SETERRABORT(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"gsi_check_args() :: system
empty or neg :: %d\n");
src/ksp/pc/impls/tfs/xxt.c:  if
((1<<(xxt_handle->level=PCTFS_i_log2_num_nodes))!=PCTFS_num_nodes)
SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_PLIB,"only 2^k for now and
MPI_COMM_WORLD!!! %D != %D\n",1<<PCTFS_i_log2_num_nodes,PCTFS_num_nodes);
src/ksp/pc/impls/tfs/xxt.c:      if (!PCTFS_my_id) {ierr =
PetscPrintf(PETSC_COMM_WORLD,"XXT_stats() :: no stats
available!\n");CHKERRQ(ierr);}
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
min   xxt_nnz=%D\n",PCTFS_my_id,vals[0]);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
max   xxt_nnz=%D\n",PCTFS_my_id,vals[1]);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
avg   xxt_nnz=%g\n",PCTFS_my_id,1.0*vals[2]/PCTFS_num_nodes);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
tot   xxt_nnz=%D\n",PCTFS_my_id,vals[2]);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
xxt   C(2d)
 =%g\n",PCTFS_my_id,vals[2]/(pow(1.0*vals[5],1.5)));CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
xxt   C(3d)
 =%g\n",PCTFS_my_id,vals[2]/(pow(1.0*vals[5],1.6667)));CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
min   xxt_n  =%D\n",PCTFS_my_id,vals[3]);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
max   xxt_n  =%D\n",PCTFS_my_id,vals[4]);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
avg   xxt_n  =%g\n",PCTFS_my_id,1.0*vals[5]/PCTFS_num_nodes);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
tot   xxt_n  =%D\n",PCTFS_my_id,vals[5]);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
min   xxt_buf=%D\n",PCTFS_my_id,vals[6]);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
max   xxt_buf=%D\n",PCTFS_my_id,vals[7]);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
avg   xxt_buf=%g\n",PCTFS_my_id,1.0*vals[8]/PCTFS_num_nodes);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
min   xxt_slv=%g\n",PCTFS_my_id,fvals[0]);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
max   xxt_slv=%g\n",PCTFS_my_id,fvals[1]);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:      ierr = PetscPrintf(PETSC_COMM_WORLD,"%D ::
avg   xxt_slv=%g\n",PCTFS_my_id,fvals[2]/PCTFS_num_nodes);CHKERRQ(ierr);
src/ksp/pc/impls/tfs/xxt.c:    {ierr =
PetscPrintf(PETSC_COMM_WORLD,"xxt_generate() :: null space exists %D %D
%D\n",m,j,xxt_handle->ns);}
src/ksp/pc/impls/tfs/xyt.c:  if
((1<<(xyt_handle->level=PCTFS_i_log2_num_nodes))!=PCTFS_num_nodes)
SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_PLIB,"only 2^k for now and
MPI_COMM_WORLD!!! %D != %D\n",1<<PCTFS_i_log2_num_nodes,PCTFS_num_nodes);
src/ksp/pc/impls/tfs/xyt.c:    if (!PCTFS_my_id)
PetscPrintf(PETSC_COMM_WORLD,"XYT_stats() :: no stats available!\n");
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: min
xyt_nnz=%D\n",PCTFS_my_id,vals[0]);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: max
xyt_nnz=%D\n",PCTFS_my_id,vals[1]);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: avg
xyt_nnz=%g\n",PCTFS_my_id,1.0*vals[2]/PCTFS_num_nodes);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: tot
xyt_nnz=%D\n",PCTFS_my_id,vals[2]);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: xyt
C(2d)  =%g\n",PCTFS_my_id,vals[2]/(pow(1.0*vals[5],1.5)));
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: xyt
C(3d)  =%g\n",PCTFS_my_id,vals[2]/(pow(1.0*vals[5],1.6667)));
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: min
xyt_n  =%D\n",PCTFS_my_id,vals[3]);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: max
xyt_n  =%D\n",PCTFS_my_id,vals[4]);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: avg
xyt_n  =%g\n",PCTFS_my_id,1.0*vals[5]/PCTFS_num_nodes);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: tot
xyt_n  =%D\n",PCTFS_my_id,vals[5]);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: min
xyt_buf=%D\n",PCTFS_my_id,vals[6]);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: max
xyt_buf=%D\n",PCTFS_my_id,vals[7]);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: avg
xyt_buf=%g\n",PCTFS_my_id,1.0*vals[8]/PCTFS_num_nodes);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: min
xyt_slv=%g\n",PCTFS_my_id,fvals[0]);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: max
xyt_slv=%g\n",PCTFS_my_id,fvals[1]);
src/ksp/pc/impls/tfs/xyt.c:    PetscPrintf(PETSC_COMM_WORLD,"%D :: avg
xyt_slv=%g\n",PCTFS_my_id,fvals[2]/PCTFS_num_nodes);
src/ksp/pc/impls/tfs/xyt.c:    {ierr =
PetscPrintf(PETSC_COMM_WORLD,"xyt_generate() :: null space exists %D %D
%D\n",m,j,xyt_handle->ns);}
src/mat/coarsen/impls/hem/hem.c:  ierr = MPI_Comm_rank( PETSC_COMM_WORLD,
&mype );   CHKERRQ(ierr);
src/mat/coarsen/impls/hem/hem.c:        /*
PetscPrintf(PETSC_COMM_WORLD,"\t[%d]%s %d) found singleton %d
(n=%d)\n",mype,__FUNCT__,iter,lid+my0,nn); */
src/mat/coarsen/impls/hem/hem.c:      if(verbose>2)
PetscPrintf(PETSC_COMM_WORLD,"\t[%d]%s %d.%d: %d active edges.\n",
src/mat/impls/aij/mpi/pastix/pastix.c:
 PASTIX_CHECKMATRIX(MPI_COMM_WORLD,verb,((isSym != 0) ? API_SYM_YES :
API_SYM_NO),API_YES,*n,&tmpcolptr,&tmprows,(PastixScalar**)&tmpvalues,NULL,1);
src/mat/impls/aij/mpi/mpiaij.c:#define CHKERRQ(ierr)
CHKERRABORT(PETSC_COMM_WORLD,ierr)
src/mat/impls/dense/mpi/mpidense.c:  PLAPACK is initialized (that is the
initial matrices created) are on subcommunicators of MPI_COMM_WORLD, these
subcommunicators
src/mat/impls/fft/fftw/fftw.c:
 SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_SUP,"not support for real numbers yet");
src/mat/impls/fft/fftw/fftw.c:
 SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_SUP,"not support for real numbers yet");
src/mat/impls/fft/fftw/fftw.c:  ierr = MPI_Comm_size(PETSC_COMM_WORLD,
&size);CHKERRQ(ierr);
src/mat/impls/fft/fftw/fftw.c:  ierr = MPI_Comm_rank(PETSC_COMM_WORLD,
&rank);CHKERRQ(ierr);
src/mat/impls/fft/fftw/fftw.c:
 SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_SUP,"FFTW does not allow parallel real
1D transform");
src/mat/impls/fft/fftw/fftw.c:        ierr =
VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n1,N1,(PetscScalar*)data_finr,fin);CHKERRQ(ierr);
src/mat/impls/fft/fftw/fftw.c:        ierr =
VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n1,N1,(PetscScalar*)data_boutr,bout);CHKERRQ(ierr);
src/mat/impls/fft/fftw/fftw.c:        ierr =
VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n1,N1,(PetscScalar*)data_fout,fout);CHKERRQ(ierr);
src/mat/impls/fft/fftw/fftw.c:        ierr =
VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n1,N1,(PetscScalar*)data_finr,fin);CHKERRQ(ierr);
src/mat/impls/fft/fftw/fftw.c:        ierr =
VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n1,N1,(PetscScalar*)data_boutr,bout);CHKERRQ(ierr);
src/mat/impls/fft/fftw/fftw.c:        ierr =
VecCreateMPIWithArray(PETSC_COMM_WORLD,n1,N1,(PetscScalar*)data_fout,fout);CHKERRQ(ierr);
src/mat/impls/fft/fftw/fftw.c:        ierr =
VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n,N1,(PetscScalar*)data_finr,fin);CHKERRQ(ierr);
src/mat/impls/fft/fftw/fftw.c:        ierr =
VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n,N1,(PetscScalar*)data_boutr,bout);CHKERRQ(ierr);
src/mat/impls/fft/fftw/fftw.c:        ierr =
VecCreateMPIWithArray(PETSC_COMM_WORLD,n,N1,(PetscScalar*)data_fout,fout);CHKERRQ(ierr);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0,local_0_start,1,&list1);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0,low,1,&list2);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1],local_0_start*dim[1],1,&list1);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1],low,1,&list2);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1]*dim[2],local_0_start*dim[1]*dim[2],1,&list1);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1]*dim[2],low,1,&list2);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*(fftw->partial_dim),local_0_start*(fftw->partial_dim),1,&list1);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*(fftw->partial_dim),low,1,&list2);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n1,local_1_start,1,&list1);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n1,low,1,&list2);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1],local_0_start*dim[1],1,&list1);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1],low,1,&list2);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1]*dim[2],local_0_start*dim[1]*dim[2],1,&list1);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1]*dim[2],low,1,&list2);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*(fftw->partial_dim),local_0_start*(fftw->partial_dim),1,&list1);
src/mat/impls/fft/fftw/fftw.c:      ierr =
ISCreateStride(PETSC_COMM_WORLD,local_n0*(fftw->partial_dim),low,1,&list2);
src/mat/impls/fft/fftw/fftw.c:      alloc_local =
fftw_mpi_local_size_2d_transposed(dim[0],dim[1]/2+1,PETSC_COMM_WORLD,&local_n0,&local_0_start,&local_n1,&local_1_start);
src/mat/impls/fft/fftw/fftw.c:      alloc_local =
fftw_mpi_local_size_3d_transposed(dim[0],dim[1],dim[2]/2+1,PETSC_COMM_WORLD,&local_n0,&local_0_start,&local_n1,&local_1_start);
src/mat/impls/fft/fftw/fftw.c:      alloc_local =
fftw_mpi_local_size_transposed(ndim,pdim,PETSC_COMM_WORLD,&local_n0,&local_0_start,&local_n1,&local_1_start);
src/snes/impls/vi/rs/virs.c:  ierr =
ISCreateGeneral(PETSC_COMM_WORLD,cnt,coarseindex,PETSC_OWN_POINTER,&inactive);CHKERRQ(ierr);
src/snes/impls/vi/rs/virs.c:        ierr =
ISCreateGeneral(PETSC_COMM_WORLD,cnt,nrows,PETSC_OWN_POINTER,&IS_inact);CHKERRQ(ierr);
src/snes/impls/vi/rs/virs.c:  ierr =
VecView(vi->xu,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);
src/snes/impls/vi/rs/virs.c:  ierr =
VecView(vi->xl,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);
src/snes/impls/vi/rs/virs.c:  ierr =
VecView(X,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);
src/snes/impls/vi/rs/virs.c:  ierr =
VecView(F,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);
src/snes/impls/vi/rs/virs.c:  ierr =
ISView(IS_inact,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);
src/snes/impls/vi/rsaug/virsaug.c:  ierr =
ISCreateGeneral(PETSC_COMM_WORLD,cnt,coarseindex,PETSC_OWN_POINTER,&inactive);CHKERRQ(ierr);
src/snes/impls/vi/rsaug/virsaug.c:        ierr =
ISCreateGeneral(PETSC_COMM_WORLD,cnt,nrows,PETSC_OWN_POINTER,&IS_inact);CHKERRQ(ierr);
src/snes/impls/vi/rsaug/virsaug.c:  ierr =
VecView(vi->xu,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);
src/snes/impls/vi/rsaug/virsaug.c:  ierr =
VecView(vi->xl,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);
src/snes/impls/vi/rsaug/virsaug.c:  ierr =
VecView(X,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);
src/snes/impls/vi/rsaug/virsaug.c:  ierr =
VecView(F,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);
src/snes/impls/vi/rsaug/virsaug.c:  ierr =
ISView(IS_inact,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);
src/snes/interface/snes.c:  ierr = PetscPrintf(PETSC_COMM_WORLD,"Testing
FormFunction() for local min\n");
src/snes/interface/snes.c:    ierr  = PetscPrintf(PETSC_COMM_WORLD,"i =
%D\n",i);CHKERRQ(ierr);
src/snes/interface/snes.c:      ierr  = PetscPrintf(PETSC_COMM_WORLD,"
  j norm %D %18.16e\n",j,norm);CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:      ierr =
PetscPrintf(PETSC_COMM_WORLD,"I am here");CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:      }  ierr =
PetscPrintf(PETSC_COMM_WORLD,"I am here");CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:    ierr =
PetscPrintf(PETSC_COMM_WORLD,"iter=%d",i+1);CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:    ierr =
PetscPrintf(PETSC_COMM_WORLD,"step=%g,oldnorm=%g,norm=%g
",ynorm,fnorm,gnorm);CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:     ierr =
PetscPrintf(PETSC_COMM_WORLD,"betaHS=%g,betaDY=%g\n",betaHS,betaDY);CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:    ierr =
PetscPrintf(PETSC_COMM_WORLD,"beta=%g,c_2=%g\n",beta,fabs(gnorm/ynorm));CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:    ierr =
PetscPrintf(PETSC_COMM_WORLD,"size=%g\n",fabs(gnorm/(beta*ynorm)));CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:  ierr =
PetscPrintf(PETSC_COMM_WORLD,"reason=%d\n",snes->reason);CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:     ierr =
PetscPrintf(PETSC_COMM_WORLD,"\n k=%d,iter=%d fmin=%g
",k,iter++,sqrt(fminnorm));CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:    //ierr =
PetscPrintf(PETSC_COMM_WORLD,"fmin=%g",sqrt(fminnorm));CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:      //ierr =
PetscPrintf(PETSC_COMM_WORLD,"Crite A\n");CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:      //   ierr =
PetscPrintf(PETSC_COMM_WORLD,"Select A\n");CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:      ierr =
PetscPrintf(PETSC_COMM_WORLD,"restart for C ");CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:      ierr =
PetscPrintf(PETSC_COMM_WORLD,"restart for D ");CHKERRQ(ierr);
src/snes/utils/adutils/damgsnesad.c:   ierr =
PetscPrintf(PETSC_COMM_WORLD,"k=%d, fnorm=%g\n",
src/ts/impls/explicit/rk/rk.c:     /* ierr =
PetscPrintf(PETSC_COMM_WORLD,"norm err: %f maxerror: %f dt:
%f",norm,rk->maxerror,ts->time_step);CHKERRQ(ierr); */
src/ts/impls/explicit/rk/rk.c:        /*ierr =
PetscPrintf(PETSC_COMM_WORLD,"changing fac %f\n",fac);*/
src/ts/impls/explicit/rk/rk.c:        ierr =
PetscPrintf(PETSC_COMM_WORLD,"Very small steps:
%f\n",ts->time_step);CHKERRQ(ierr);
src/vec/is/utils/iscoloring.c:    communicator (e.g., PETSC_COMM_WORLD). If
the index sets were created
src/vec/vec/impls/mpi/pvec2.c:    MPI_Abort(MPI_COMM_WORLD,1);
src/vec/vec/impls/mpi/pvec2.c:    MPI_Abort(MPI_COMM_WORLD,1);
src/vec/vec/interface/vector.c:
PetscRandomCreate(PETSC_COMM_WORLD,&rctx);
src/vec/vec/utils/comb.c:    MPI_Abort(MPI_COMM_WORLD,1);
src/vec/vec/utils/comb.c:      MPI_Abort(MPI_COMM_WORLD,1);

[petsc-dev] communicators

Jed Brown