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

fixed a bug concerning the "systems" version

Browse Source
This commit is contained in:
ulrikey 2000-11-07 20:02:40 +00:00
parent 2b9ea08681
commit e9382e8075
2 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
parcsr_linear_solvers/par_coarse_parms.c
View File

@ -75,10 +75,15 @@ hypre_BoomerAMGCoarseParms(MPI_Comm comm,
MPI_Comm_size(comm,&num_procs);
for (i=0; i < local_num_variables; i++)
{
if (CF_marker[i] == 1) local_coarse_size++;
}
if (num_functions > 1)
{
coarse_dof_func = hypre_CTAlloc(int,local_coarse_size);
local_coarse_size = 0;
for (i=0; i < local_num_variables; i++)
{
if (CF_marker[i] == 1)
@ -86,13 +91,6 @@ hypre_BoomerAMGCoarseParms(MPI_Comm comm,
}
*coarse_dof_func_ptr = coarse_dof_func;
}
else
{
for (i=0; i < local_num_variables; i++)
{
if (CF_marker[i] == 1) local_coarse_size++;
}
}
coarse_pnts_global = hypre_CTAlloc(int,num_procs+1);

12
parcsr_ls/par_coarse_parms.c
View File

@ -75,10 +75,15 @@ hypre_BoomerAMGCoarseParms(MPI_Comm comm,
MPI_Comm_size(comm,&num_procs);
for (i=0; i < local_num_variables; i++)
{
if (CF_marker[i] == 1) local_coarse_size++;
}
if (num_functions > 1)
{
coarse_dof_func = hypre_CTAlloc(int,local_coarse_size);
local_coarse_size = 0;
for (i=0; i < local_num_variables; i++)
{
if (CF_marker[i] == 1)
@ -86,13 +91,6 @@ hypre_BoomerAMGCoarseParms(MPI_Comm comm,
}
*coarse_dof_func_ptr = coarse_dof_func;
}
else
{
for (i=0; i < local_num_variables; i++)
{
if (CF_marker[i] == 1) local_coarse_size++;
}
}
coarse_pnts_global = hypre_CTAlloc(int,num_procs+1);