[petsc-dev] communicators
Jed Brown
jedbrown at mcs.anl.gov
Fri Mar 23 21:47:37 CDT 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);
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.mcs.anl.gov/pipermail/petsc-dev/attachments/20120323/dca580b1/attachment.html>
More information about the petsc-dev
mailing list