CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Threaded some loops that were previously not.

Browse Source
This commit is contained in:
falgout 2011-01-14 18:45:54 +00:00
parent 2b07c64640
commit e86279b488
2 changed files with 490 additions and 474 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
struct_ls/pfmg_setup.c
View File

@ -897,30 +897,32 @@ hypre_ZeroDiagonal( hypre_StructMatrix *A )
compute_boxes = hypre_StructGridBoxes(hypre_StructMatrixGrid(A)); compute_boxes = hypre_StructGridBoxes(hypre_StructMatrixGrid(A));
hypre_ForBoxI(i, compute_boxes) hypre_ForBoxI(i, compute_boxes)
{ {
compute_box = hypre_BoxArrayBox(compute_boxes, i); compute_box = hypre_BoxArrayBox(compute_boxes, i);
start = hypre_BoxIMin(compute_box); start = hypre_BoxIMin(compute_box);
A_dbox = hypre_BoxArrayBox(hypre_StructMatrixDataSpace(A), i); A_dbox = hypre_BoxArrayBox(hypre_StructMatrixDataSpace(A), i);
Ap = hypre_StructMatrixExtractPointerByIndex(A, i, diag_index); Ap = hypre_StructMatrixExtractPointerByIndex(A, i, diag_index);
hypre_BoxGetStrideSize(compute_box, stride, loop_size); hypre_BoxGetStrideSize(compute_box, stride, loop_size);
if ( constant_coefficient ) if ( constant_coefficient )
{
Ai = hypre_CCBoxIndexRank( A_dbox, start );
diag_product *= Ap[Ai];
}
else
{
hypre_BoxLoop1Begin(loop_size, A_dbox, start, stride, Ai);
#define HYPRE_BOX_SMP_PRIVATE loopk,loopi,loopj,Ai
#define HYPRE_SMP_REDUCTION_OP *
#define HYPRE_SMP_REDUCTION_VARS diag_product
#include "hypre_box_smp_forloop.h"
hypre_BoxLoop1For(loopi, loopj, loopk, Ai)
{ {
Ai = hypre_CCBoxIndexRank( A_dbox, start );
diag_product *= Ap[Ai]; diag_product *= Ap[Ai];
} }
else hypre_BoxLoop1End(Ai);
{
hypre_BoxLoop1Begin(loop_size, A_dbox, start, stride, Ai);
hypre_BoxLoop1For(loopi, loopj, loopk, Ai)
{
diag_product *= Ap[Ai];
}
hypre_BoxLoop1End(Ai);
}
} }
}
if (diag_product == 0) if (diag_product == 0)
{ {

924
struct_ls/point_relax.c
View File

File diff suppressed because it is too large Load Diff