238 |
} |
} |
239 |
#else |
#else |
240 |
globalNumReducedDOFs=loc_offsets[0]; |
globalNumReducedDOFs=loc_offsets[0]; |
241 |
loc_offsets[n]=0; |
loc_offsets[0]=0; |
242 |
#endif |
#endif |
243 |
#pragma omp parallel for private(n) schedule(static) |
#pragma omp parallel for private(n) schedule(static) |
244 |
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]; |
348 |
} |
} |
349 |
#else |
#else |
350 |
globalNumNodes=loc_offsets[0]; |
globalNumNodes=loc_offsets[0]; |
351 |
loc_offsets[n]=0; |
loc_offsets[0]=0; |
352 |
#endif |
#endif |
353 |
#pragma omp parallel for private(n) schedule(static) |
#pragma omp parallel for private(n) schedule(static) |
354 |
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]; |
459 |
} |
} |
460 |
#else |
#else |
461 |
globalNumReducedNodes=loc_offsets[0]; |
globalNumReducedNodes=loc_offsets[0]; |
462 |
loc_offsets[n]=0; |
loc_offsets[0]=0; |
463 |
#endif |
#endif |
464 |
#pragma omp parallel for private(n) schedule(static) |
#pragma omp parallel for private(n) schedule(static) |
465 |
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]; |