/[escript]/trunk-mpi-branch/finley/src/NodeFile_createDenseLabelings.c
ViewVC logotype

Diff of /trunk-mpi-branch/finley/src/NodeFile_createDenseLabelings.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1271 by gross, Tue Aug 21 22:01:21 2007 UTC revision 1272 by gross, Fri Aug 24 00:40:43 2007 UTC
# Line 243  dim_t Finley_NodeFile_createDenseReduced Line 243  dim_t Finley_NodeFile_createDenseReduced
243              for (n=0; n<myDOFs; ++n) DOF_buffer[n]+=loc_offsets[in->MPIInfo->rank];              for (n=0; n<myDOFs; ++n) DOF_buffer[n]+=loc_offsets[in->MPIInfo->rank];
244              /* now entries are collected from the buffer again by sending the entries around in a circle */              /* now entries are collected from the buffer again by sending the entries around in a circle */
245              #pragma omp parallel for private(n) schedule(static)              #pragma omp parallel for private(n) schedule(static)
246              for (n=0; n<in->numNodes; ++n) in->globalReducedDOFIndex[n]=-1;              for (n=0; n<in->numNodes; ++n) in->globalReducedDOFIndex[n]=loc_offsets[0]-1;
247              dest=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank + 1);              dest=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank + 1);
248              source=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank - 1);              source=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank - 1);
249              buffer_rank=in->MPIInfo->rank;              buffer_rank=in->MPIInfo->rank;
# Line 352  dim_t Finley_NodeFile_createDenseNodeLab Line 352  dim_t Finley_NodeFile_createDenseNodeLab
352              for (n=0; n<myNodes; ++n) Node_buffer[n]+=loc_offsets[in->MPIInfo->rank];              for (n=0; n<myNodes; ++n) Node_buffer[n]+=loc_offsets[in->MPIInfo->rank];
353              /* now entries are collected from the buffer again by sending the entries around in a circle */              /* now entries are collected from the buffer again by sending the entries around in a circle */
354              #pragma omp parallel for private(n) schedule(static)              #pragma omp parallel for private(n) schedule(static)
355              for (n=0; n<in->numNodes; ++n) in->globalNodesIndex[n]=-1;              for (n=0; n<in->numNodes; ++n) in->globalNodesIndex[n]=loc_offsets[0]-1;
356              dest=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank + 1);              dest=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank + 1);
357              source=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank - 1);              source=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank - 1);
358              buffer_rank=in->MPIInfo->rank;              buffer_rank=in->MPIInfo->rank;
# Line 462  dim_t Finley_NodeFile_createDenseReduced Line 462  dim_t Finley_NodeFile_createDenseReduced
462              for (n=0; n<myNodes; ++n) Node_buffer[n]+=loc_offsets[in->MPIInfo->rank];              for (n=0; n<myNodes; ++n) Node_buffer[n]+=loc_offsets[in->MPIInfo->rank];
463              /* now entries are collected from the buffer again by sending the entries around in a circle */              /* now entries are collected from the buffer again by sending the entries around in a circle */
464              #pragma omp parallel for private(n) schedule(static)              #pragma omp parallel for private(n) schedule(static)
465              for (n=0; n<in->numNodes; ++n) in->globalReducedNodesIndex[n]=TRUE;              for (n=0; n<in->numNodes; ++n) in->globalReducedNodesIndex[n]=loc_offsets[0]-1;
466              dest=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank + 1);              dest=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank + 1);
467              source=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank - 1);              source=Paso_MPIInfo_mod(in->MPIInfo->size, in->MPIInfo->rank - 1);
468              buffer_rank=in->MPIInfo->rank;              buffer_rank=in->MPIInfo->rank;

Legend:
Removed from v.1271  
changed lines
  Added in v.1272

  ViewVC Help
Powered by ViewVC 1.1.26