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

Bug fix for red-black relaxation

Browse Source
This commit is contained in:
jjones 2003-03-28 18:56:11 +00:00
parent c4b0f23e53
commit 6978a1dcbf
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sstruct_ls/node_relax.c
View File

@ -659,6 +659,10 @@ hypre_NodeRelax( void *relax_vdata,
if (zero_guess)
{
if (num_nodesets > 1)
{
hypre_SStructPVectorSetConstantValues(x, 0.0);
}
nodeset = nodeset_ranks[p];
compute_pkg = compute_pkgs[nodeset];
stride = nodeset_strides[nodeset];

4
struct_ls/point_relax.c
View File

@ -408,6 +408,10 @@ hypre_PointRelax( void *relax_vdata,
if (zero_guess)
{
if (num_pointsets > 1)
{
hypre_StructVectorSetConstantValues(x, 0.0);
}
pointset = pointset_ranks[p];
compute_pkg = compute_pkgs[pointset];
stride = pointset_strides[pointset];