Pretty much every use of COMM_WORLD outside of src/sys/ is a bug.<div><br></div><div><font face="'courier new', monospace">$ find src -name '*.c' | grep -v '\(examples\|src/sys\|src/contrib\|src/benchmarks\)' | xargs grep COMM_WORLD<br>
</font><div><br></div><div>I just fixed a few obvious cases before running this. If there is COMM_WORLD in your code, please consider fixing it.</div><div><br></div><div><div><font face="'courier new', monospace">src/dm/impls/adda/adda.c: ierr = MPI_Comm_size(PETSC_COMM_WORLD,&comm_size);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/dm/impls/da/usfft/matusfft.c: ierr = PetscPrintf(PETSC_COMM_WORLD, "direction = %d, usfft->ndim = %d\n", direction, usfft->ndim);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/dm/impls/da/usfft/matusfft.c: ierr = PetscPrintf(PETSC_COMM_WORLD, "usfft->outdim[%d] = %d\n", ii, usfft->outdim[ii]);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">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");</font></div>
<div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: ierr = DMDACreate(PETSC_COMM_WORLD,&iga->da_dof); CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_FILE_OPEN, "Cannot find geometry file");</font></div>
<div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_ARG_OUTOFRANGE, "Geometry dimension != problem dimension");</font></div><div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: ierr = DMDACreate(PETSC_COMM_WORLD,&iga->da_dof); CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: ierr = DMDACreate(PETSC_COMM_WORLD,&iga->da_geometry); CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">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");</font></div>
<div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_ARG_OUTOFRANGE, "Initialization routine for tapered meshes does not yet support periodicity");</font></div>
<div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_ARG_OUTOFRANGE, "Initialization routine for tapered meshes does not yet support periodicity");</font></div>
<div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: ierr = DMDACreate(PETSC_COMM_WORLD,&iga->da_dof); CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">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");</font></div>
<div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: ierr = DMDACreate(PETSC_COMM_WORLD,&iga->da_dof); CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">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");</font></div>
<div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: ierr = DMDACreate(PETSC_COMM_WORLD,&iga->da_dof); CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: SETERRQ1(PETSC_COMM_WORLD, PETSC_ERR_ARG_OUTOFRANGE, "Unimplemented number of gauss points %d!", n);</font></div>
<div><font face="'courier new', monospace">src/dm/impls/iga/iga.c: SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_ARG_OUTOFRANGE, "Inserted knots beyond original knot vector limits");</font></div><div><font face="'courier new', monospace">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));</font></div>
<div><font face="'courier new', monospace">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));</font></div>
<div><font face="'courier new', monospace">src/dm/impls/mesh/mesh.c: SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_SUP, "Peter needs to incorporate his code.");</font></div><div><font face="'courier new', monospace">src/dm/impls/mesh/mesh.c: SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_SUP, "Peter needs to incorporate his code.");</font></div>
<div><font face="'courier new', monospace">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);'</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/asa/asa.c: ierr = PetscPrintf(PETSC_COMM_WORLD,</font></div><div><font face="'courier new', monospace">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); */</font></div>
<div><font face="'courier new', monospace">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);</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/gamg/geo.c: PetscPrintf(PETSC_COMM_WORLD,"[%d]%s done\n",0,__FUNCT__);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/gamg/geo.c: PetscPrintf(PETSC_COMM_WORLD,"[%d]%s ERROE: no selected points on coarse grid\n",mype,__FUNCT__);</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/gamg/geo.c: PetscPrintf(PETSC_COMM_WORLD,"[%d]%s failed metric for coarse grid %e\n",mype,__FUNCT__,tm);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/gamg/geo.c: PetscPrintf(PETSC_COMM_WORLD,"[%d]%s worst metric for coarse grid = %e\n",mype,__FUNCT__,metric);</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/is/nn/nn.c: ierr = PetscViewerASCIIOpen(PETSC_COMM_WORLD,"coarse.m",&viewer);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c: MPI_Comm_size(MPI_COMM_WORLD,&PCTFS_num_nodes);</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c: MPI_Comm_rank(MPI_COMM_WORLD,&PCTFS_my_id);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span>{ierr = MPI_Send(vals,n,MPIU_INT,edge_not_pow_2,MSGTAG0+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(work,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG0+edge_not_pow_2, MPI_COMM_WORLD,&status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> {ierr = MPI_Send(vals,n,MPIU_INT,dest,MSGTAG2+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(work,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG2+dest,MPI_COMM_WORLD, &status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> {ierr = MPI_Send(vals,n,MPIU_INT,dest,MSGTAG4+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(vals,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG4+dest,MPI_COMM_WORLD, &status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(vals,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG5+edge_not_pow_2,MPI_COMM_WORLD,&status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span>{ierr = MPI_Send(vals,n,MPIU_INT,edge_not_pow_2,MSGTAG5+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span>{ierr = MPI_Send(vals,n,MPIU_SCALAR,edge_not_pow_2,MSGTAG0+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(work,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG0+edge_not_pow_2,MPI_COMM_WORLD,&status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> {ierr = MPI_Send(vals,n,MPIU_SCALAR,dest,MSGTAG2+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(work,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG2+dest,MPI_COMM_WORLD, &status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> {ierr = MPI_Send(vals,n,MPIU_SCALAR,dest,MSGTAG4+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(vals,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG4+dest,MPI_COMM_WORLD, &status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(vals,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG5+edge_not_pow_2, MPI_COMM_WORLD,&status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span>{ierr = MPI_Send(vals,n,MPIU_SCALAR,edge_not_pow_2,MSGTAG5+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span>{ierr = MPI_Send(vals,n,MPIU_SCALAR,dest,MSGTAG2+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(work,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG2+dest,MPI_COMM_WORLD,&status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span>{ierr = MPI_Send(vals,n,MPIU_SCALAR,dest,MSGTAG4+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(vals,n,MPIU_SCALAR,MPI_ANY_SOURCE,MSGTAG4+dest,MPI_COMM_WORLD,&status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c: {ierr = MPI_Send(vals+segs[edge],stage_n,MPIU_SCALAR,dest,type, MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div><div><font face="'courier new', monospace">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); </font></div>
<div><font face="'courier new', monospace">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);}</font></div><div><font face="'courier new', monospace">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); </font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span>{ierr = MPI_Send(vals,n,MPIU_INT,dest,MSGTAG2+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(work,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG2+dest,MPI_COMM_WORLD, &status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span>{ierr = MPI_Send(vals,n,MPIU_INT,dest,MSGTAG4+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr);}</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/comm.c:<span class="Apple-tab-span" style="white-space:pre"> </span> ierr = MPI_Recv(vals,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG4+dest,MPI_COMM_WORLD,&status);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/gs.c: ierr = gsi_via_bit_mask(gs);CHKERRABORT(PETSC_COMM_WORLD,ierr);</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/gs.c: ierr = MPI_Comm_group(MPI_COMM_WORLD,&PCTFS_gs_group);CHKERRABORT(PETSC_COMM_WORLD,ierr);</font></div>
<div><font face="'courier new', monospace">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);</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/gs.c: ierr = PetscMemzero(gs,sizeof(PCTFS_gs_id));CHKERRABORT(PETSC_COMM_WORLD,ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/gs.c: if (!in_elms) SETERRABORT(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"elms point to nothing!!!\n");</font></div><div><font face="'courier new', monospace">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");</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/gs.c: {ierr = PetscInfo(0,"I don't have any elements!!!\n");CHKERRABORT(PETSC_COMM_WORLD,ierr);}</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/gs.c: if (j!=nel) SETERRABORT(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"nel j mismatch!\n");</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/gs.c: ierr = PetscInfo(0,"gsi_check_args() :: elm list *not* sorted!\n");CHKERRABORT(PETSC_COMM_WORLD,ierr);</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/gs.c: ierr = PCTFS_SMI_sort((void*)elms, (void*)companion, nel, SORT_INTEGER);CHKERRABORT(PETSC_COMM_WORLD,ierr);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/gs.c: {ierr = PetscInfo(0,"gsi_check_args() :: elm list sorted!\n");CHKERRABORT(PETSC_COMM_WORLD,ierr);}</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/gs.c: ierr = PCTFS_giop(vals,work,sizeof(oprs)/sizeof(oprs[0])-1,oprs);CHKERRABORT(PETSC_COMM_WORLD,ierr);</font></div>
<div><font face="'courier new', monospace">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");</font></div><div><font face="'courier new', monospace">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");</font></div>
<div><font face="'courier new', monospace">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");</font></div><div>
<font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xxt.c: if (!PCTFS_my_id) {ierr = PetscPrintf(PETSC_COMM_WORLD,"XXT_stats() :: no stats available!\n");CHKERRQ(ierr);}</font></div><div>
<font face="'courier new', monospace">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);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);}</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xyt.c: if (!PCTFS_my_id) PetscPrintf(PETSC_COMM_WORLD,"XYT_stats() :: no stats available!\n");</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xyt.c: PetscPrintf(PETSC_COMM_WORLD,"%D :: min xyt_nnz=%D\n",PCTFS_my_id,vals[0]);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xyt.c: PetscPrintf(PETSC_COMM_WORLD,"%D :: max xyt_nnz=%D\n",PCTFS_my_id,vals[1]);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xyt.c: PetscPrintf(PETSC_COMM_WORLD,"%D :: tot xyt_nnz=%D\n",PCTFS_my_id,vals[2]);</font></div><div><font face="'courier new', monospace">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)));</font></div>
<div><font face="'courier new', monospace">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)));</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xyt.c: PetscPrintf(PETSC_COMM_WORLD,"%D :: min xyt_n =%D\n",PCTFS_my_id,vals[3]);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xyt.c: PetscPrintf(PETSC_COMM_WORLD,"%D :: max xyt_n =%D\n",PCTFS_my_id,vals[4]);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xyt.c: PetscPrintf(PETSC_COMM_WORLD,"%D :: tot xyt_n =%D\n",PCTFS_my_id,vals[5]);</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xyt.c: PetscPrintf(PETSC_COMM_WORLD,"%D :: min xyt_buf=%D\n",PCTFS_my_id,vals[6]);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xyt.c: PetscPrintf(PETSC_COMM_WORLD,"%D :: max xyt_buf=%D\n",PCTFS_my_id,vals[7]);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xyt.c: PetscPrintf(PETSC_COMM_WORLD,"%D :: min xyt_slv=%g\n",PCTFS_my_id,fvals[0]);</font></div><div><font face="'courier new', monospace">src/ksp/pc/impls/tfs/xyt.c: PetscPrintf(PETSC_COMM_WORLD,"%D :: max xyt_slv=%g\n",PCTFS_my_id,fvals[1]);</font></div>
<div><font face="'courier new', monospace">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);</font></div><div><font face="'courier new', monospace">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);}</font></div>
<div><font face="'courier new', monospace">src/mat/coarsen/impls/hem/hem.c: ierr = MPI_Comm_rank( PETSC_COMM_WORLD, &mype ); CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">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); */</font></div>
<div><font face="'courier new', monospace">src/mat/coarsen/impls/hem/hem.c: if(verbose>2) PetscPrintf(PETSC_COMM_WORLD,"\t[%d]%s %d.%d: %d active edges.\n",</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/aij/mpi/mpiaij.c:#define CHKERRQ(ierr) CHKERRABORT(PETSC_COMM_WORLD,ierr) </font></div><div><font face="'courier new', monospace">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</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_SUP,"not support for real numbers yet");</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_SUP,"not support for real numbers yet");</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = MPI_Comm_size(PETSC_COMM_WORLD, &size);CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = MPI_Comm_rank(PETSC_COMM_WORLD, &rank);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_SUP,"FFTW does not allow parallel real 1D transform");</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n1,N1,(PetscScalar*)data_finr,fin);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n1,N1,(PetscScalar*)data_boutr,bout);CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n1,N1,(PetscScalar*)data_fout,fout);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n1,N1,(PetscScalar*)data_finr,fin);CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n1,N1,(PetscScalar*)data_boutr,bout);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = VecCreateMPIWithArray(PETSC_COMM_WORLD,n1,N1,(PetscScalar*)data_fout,fout);CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n,N1,(PetscScalar*)data_finr,fin);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = VecCreateMPIWithArray(PETSC_COMM_WORLD,(PetscInt)n,N1,(PetscScalar*)data_boutr,bout);CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = VecCreateMPIWithArray(PETSC_COMM_WORLD,n,N1,(PetscScalar*)data_fout,fout);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n0,local_0_start,1,&list1);</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n0,low,1,&list2);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1],local_0_start*dim[1],1,&list1);</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1],low,1,&list2);</font></div>
<div><font face="'courier new', monospace">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);</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1]*dim[2],low,1,&list2);</font></div>
<div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n0*(fftw->partial_dim),low,1,&list2);</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n1,local_1_start,1,&list1);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n1,low,1,&list2);</font></div><div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1],local_0_start*dim[1],1,&list1);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1],low,1,&list2);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n0*dim[1]*dim[2],low,1,&list2);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">src/mat/impls/fft/fftw/fftw.c: ierr = ISCreateStride(PETSC_COMM_WORLD,local_n0*(fftw->partial_dim),low,1,&list2);</font></div><div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">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);</font></div>
<div><font face="'courier new', monospace">src/snes/impls/vi/rs/virs.c: ierr = ISCreateGeneral(PETSC_COMM_WORLD,cnt,coarseindex,PETSC_OWN_POINTER,&inactive);CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/impls/vi/rs/virs.c: ierr = ISCreateGeneral(PETSC_COMM_WORLD,cnt,nrows,PETSC_OWN_POINTER,&IS_inact);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/impls/vi/rs/virs.c: ierr = VecView(vi->xu,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/impls/vi/rs/virs.c: ierr = VecView(vi->xl,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/impls/vi/rs/virs.c: ierr = VecView(X,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/impls/vi/rs/virs.c: ierr = VecView(F,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/impls/vi/rs/virs.c: ierr = ISView(IS_inact,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/impls/vi/rsaug/virsaug.c: ierr = ISCreateGeneral(PETSC_COMM_WORLD,cnt,coarseindex,PETSC_OWN_POINTER,&inactive);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/impls/vi/rsaug/virsaug.c: ierr = ISCreateGeneral(PETSC_COMM_WORLD,cnt,nrows,PETSC_OWN_POINTER,&IS_inact);CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/impls/vi/rsaug/virsaug.c: ierr = VecView(vi->xu,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/impls/vi/rsaug/virsaug.c: ierr = VecView(vi->xl,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/impls/vi/rsaug/virsaug.c: ierr = VecView(X,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/impls/vi/rsaug/virsaug.c: ierr = VecView(F,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/impls/vi/rsaug/virsaug.c: ierr = ISView(IS_inact,PETSC_VIEWER_BINARY_(PETSC_COMM_WORLD));CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/interface/snes.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"Testing FormFunction() for local min\n");</font></div><div><font face="'courier new', monospace">src/snes/interface/snes.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"i = %D\n",i);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/interface/snes.c: ierr = PetscPrintf(PETSC_COMM_WORLD," j norm %D %18.16e\n",j,norm);CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"I am here");CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: } ierr = PetscPrintf(PETSC_COMM_WORLD,"I am here");CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"iter=%d",i+1);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"step=%g,oldnorm=%g,norm=%g ",ynorm,fnorm,gnorm);CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"betaHS=%g,betaDY=%g\n",betaHS,betaDY);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"beta=%g,c_2=%g\n",beta,fabs(gnorm/ynorm));CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"size=%g\n",fabs(gnorm/(beta*ynorm)));CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"reason=%d\n",snes->reason);CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"\n k=%d,iter=%d fmin=%g ",k,iter++,sqrt(fminnorm));CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: //ierr = PetscPrintf(PETSC_COMM_WORLD,"fmin=%g",sqrt(fminnorm));CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: //ierr = PetscPrintf(PETSC_COMM_WORLD,"Crite A\n");CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: // ierr = PetscPrintf(PETSC_COMM_WORLD,"Select A\n");CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"restart for C ");CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"restart for D ");CHKERRQ(ierr);</font></div><div><font face="'courier new', monospace">src/snes/utils/adutils/damgsnesad.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"k=%d, fnorm=%g\n",</font></div>
<div><font face="'courier new', monospace">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); */</font></div>
<div><font face="'courier new', monospace">src/ts/impls/explicit/rk/rk.c: /*ierr = PetscPrintf(PETSC_COMM_WORLD,"changing fac %f\n",fac);*/</font></div><div><font face="'courier new', monospace">src/ts/impls/explicit/rk/rk.c: ierr = PetscPrintf(PETSC_COMM_WORLD,"Very small steps: %f\n",ts->time_step);CHKERRQ(ierr);</font></div>
<div><font face="'courier new', monospace">src/vec/is/utils/iscoloring.c: communicator (e.g., PETSC_COMM_WORLD). If the index sets were created </font></div><div><font face="'courier new', monospace">src/vec/vec/impls/mpi/pvec2.c: MPI_Abort(MPI_COMM_WORLD,1);</font></div>
<div><font face="'courier new', monospace">src/vec/vec/impls/mpi/pvec2.c: MPI_Abort(MPI_COMM_WORLD,1);</font></div><div><font face="'courier new', monospace">src/vec/vec/interface/vector.c: PetscRandomCreate(PETSC_COMM_WORLD,&rctx);</font></div>
<div><font face="'courier new', monospace">src/vec/vec/utils/comb.c: MPI_Abort(MPI_COMM_WORLD,1);</font></div><div><font face="'courier new', monospace">src/vec/vec/utils/comb.c: MPI_Abort(MPI_COMM_WORLD,1);</font></div>
</div><div><br></div></div>