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

Fixed misleading indentation and boolean-use warnings from gcc v6+

Browse Source
This commit is contained in:
Rob Falgout 2018-10-18 13:12:11 -07:00
parent 0f51e61363
commit 236c420abd
6 changed files with 9122 additions and 9140 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1819
src/parcsr_ls/par_cr.c
View File

File diff suppressed because it is too large Load Diff

8238
src/parcsr_ls/par_lr_interp.c
View File

File diff suppressed because it is too large Load Diff

688
src/parcsr_ls/par_mgr_solve.c
View File

@ -10,10 +10,6 @@
* $Revision$
***********************************************************************EHEADER*/
/******************************************************************************
*
* MGR solve routine
@ -28,48 +24,48 @@
*--------------------------------------------------------------------*/
HYPRE_Int
hypre_MGRSolve( void *mgr_vdata,
hypre_ParCSRMatrix *A,
hypre_ParVector *f,
hypre_ParVector *u )
hypre_ParCSRMatrix *A,
hypre_ParVector *f,
hypre_ParVector *u )
{
MPI_Comm comm = hypre_ParCSRMatrixComm(A);
MPI_Comm comm = hypre_ParCSRMatrixComm(A);
hypre_ParMGRData *mgr_data = (hypre_ParMGRData*) mgr_vdata;
hypre_ParCSRMatrix **A_array = (mgr_data -> A_array);
hypre_ParVector **F_array = (mgr_data -> F_array);
hypre_ParVector **U_array = (mgr_data -> U_array);
HYPRE_Real tol = (mgr_data -> tol);
HYPRE_Int logging = (mgr_data -> logging);
HYPRE_Int print_level = (mgr_data -> print_level);
HYPRE_Int max_iter = (mgr_data -> max_iter);
HYPRE_Real *norms = (mgr_data -> rel_res_norms);
hypre_ParVector *Vtemp = (mgr_data -> Vtemp);
hypre_ParVector *Utemp = (mgr_data -> Utemp);
hypre_ParVector *residual;
HYPRE_Real tol = (mgr_data -> tol);
HYPRE_Int logging = (mgr_data -> logging);
HYPRE_Int print_level = (mgr_data -> print_level);
HYPRE_Int max_iter = (mgr_data -> max_iter);
HYPRE_Real *norms = (mgr_data -> rel_res_norms);
hypre_ParVector *Vtemp = (mgr_data -> Vtemp);
hypre_ParVector *Utemp = (mgr_data -> Utemp);
hypre_ParVector *residual;
HYPRE_Real alpha = -1;
HYPRE_Real beta = 1;
HYPRE_Real conv_factor = 0.0;
HYPRE_Real resnorm = 1.0;
HYPRE_Real init_resnorm = 0.0;
HYPRE_Real rel_resnorm;
HYPRE_Real rhs_norm = 0.0;
HYPRE_Real old_resnorm;
HYPRE_Real ieee_check = 0.;
HYPRE_Real resnorm = 1.0;
HYPRE_Real init_resnorm = 0.0;
HYPRE_Real rel_resnorm;
HYPRE_Real rhs_norm = 0.0;
HYPRE_Real old_resnorm;
HYPRE_Real ieee_check = 0.;
HYPRE_Int iter, num_procs, my_id;
HYPRE_Int Solve_err_flag;
HYPRE_Int iter, num_procs, my_id;
HYPRE_Int Solve_err_flag;
/*
HYPRE_Real total_coeffs;
HYPRE_Real total_variables;
HYPRE_Real operat_cmplxty;
HYPRE_Real grid_cmplxty;
HYPRE_Real total_coeffs;
HYPRE_Real total_variables;
HYPRE_Real operat_cmplxty;
HYPRE_Real grid_cmplxty;
*/
HYPRE_Solver cg_solver = (mgr_data -> coarse_grid_solver);
HYPRE_Int (*coarse_grid_solver_solve)(void*,void*,void*,void*) = (mgr_data -> coarse_grid_solver_solve);
HYPRE_Solver cg_solver = (mgr_data -> coarse_grid_solver);
HYPRE_Int (*coarse_grid_solver_solve)(void*,void*,void*,void*) = (mgr_data -> coarse_grid_solver_solve);
HYPRE_Int blk_size = (mgr_data -> block_size);
HYPRE_Real *diaginv = (mgr_data -> diaginv);
@ -117,17 +113,17 @@ hypre_MGRSolve( void *mgr_vdata,
Solve_err_flag = 0;
/*
total_coeffs = 0;
total_variables = 0;
operat_cmplxty = 0;
grid_cmplxty = 0;
total_coeffs = 0;
total_variables = 0;
operat_cmplxty = 0;
grid_cmplxty = 0;
*/
/*-----------------------------------------------------------------------
* write some initial info
*-----------------------------------------------------------------------*/
if (my_id == 0 && print_level > 1 && tol > 0.)
hypre_printf("\n\nTWO-GRID SOLVER SOLUTION INFO:\n");
hypre_printf("\n\nTWO-GRID SOLVER SOLUTION INFO:\n");
/*-----------------------------------------------------------------------
@ -135,61 +131,61 @@ hypre_MGRSolve( void *mgr_vdata,
*-----------------------------------------------------------------------*/
if (print_level > 1 || logging > 1 || tol > 0.)
{
if ( logging > 1 ) {
hypre_ParVectorCopy(F_array[0], residual );
if (tol > 0.0)
hypre_ParCSRMatrixMatvec(alpha, A_array[0], U_array[0], beta, residual );
resnorm = sqrt(hypre_ParVectorInnerProd( residual, residual ));
}
else {
hypre_ParVectorCopy(F_array[0], Vtemp);
if (tol > 0.0)
hypre_ParCSRMatrixMatvec(alpha, A_array[0], U_array[0], beta, Vtemp);
resnorm = sqrt(hypre_ParVectorInnerProd(Vtemp, Vtemp));
}
if ( logging > 1 ) {
hypre_ParVectorCopy(F_array[0], residual );
if (tol > 0.0)
hypre_ParCSRMatrixMatvec(alpha, A_array[0], U_array[0], beta, residual );
resnorm = sqrt(hypre_ParVectorInnerProd( residual, residual ));
}
else {
hypre_ParVectorCopy(F_array[0], Vtemp);
if (tol > 0.0)
hypre_ParCSRMatrixMatvec(alpha, A_array[0], U_array[0], beta, Vtemp);
resnorm = sqrt(hypre_ParVectorInnerProd(Vtemp, Vtemp));
}
/* Since it is does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */
if (resnorm != 0.) ieee_check = resnorm/resnorm; /* INF -> NaN conversion */
if (ieee_check != ieee_check)
{
/* ...INFs or NaNs in input can make ieee_check a NaN. This test
for ieee_check self-equality works on all IEEE-compliant compilers/
machines, c.f. page 8 of "Lecture Notes on the Status of IEEE 754"
by W. Kahan, May 31, 1996. Currently (July 2002) this paper may be
found at http://HTTP.CS.Berkeley.EDU/~wkahan/ieee754status/IEEE754.PDF */
if (print_level > 0)
{
hypre_printf("\n\nERROR detected by Hypre ... BEGIN\n");
hypre_printf("ERROR -- hypre_MGRSolve: INFs and/or NaNs detected in input.\n");
hypre_printf("User probably placed non-numerics in supplied A, x_0, or b.\n");
hypre_printf("ERROR detected by Hypre ... END\n\n\n");
}
hypre_error(HYPRE_ERROR_GENERIC);
return hypre_error_flag;
}
/* Since it is does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */
if (resnorm != 0.) ieee_check = resnorm/resnorm; /* INF -> NaN conversion */
if (ieee_check != ieee_check)
{
/* ...INFs or NaNs in input can make ieee_check a NaN. This test
for ieee_check self-equality works on all IEEE-compliant compilers/
machines, c.f. page 8 of "Lecture Notes on the Status of IEEE 754"
by W. Kahan, May 31, 1996. Currently (July 2002) this paper may be
found at http://HTTP.CS.Berkeley.EDU/~wkahan/ieee754status/IEEE754.PDF */
if (print_level > 0)
{
hypre_printf("\n\nERROR detected by Hypre ... BEGIN\n");
hypre_printf("ERROR -- hypre_MGRSolve: INFs and/or NaNs detected in input.\n");
hypre_printf("User probably placed non-numerics in supplied A, x_0, or b.\n");
hypre_printf("ERROR detected by Hypre ... END\n\n\n");
}
hypre_error(HYPRE_ERROR_GENERIC);
return hypre_error_flag;
}
init_resnorm = resnorm;
rhs_norm = sqrt(hypre_ParVectorInnerProd(f, f));
if (rhs_norm)
{
rel_resnorm = init_resnorm / rhs_norm;
}
else
{
/* rhs is zero, return a zero solution */
hypre_ParVectorSetConstantValues(U_array[0], 0.0);
if(logging > 0)
{
rel_resnorm = 0.0;
(mgr_data -> final_rel_residual_norm) = rel_resnorm;
}
return hypre_error_flag;
}
init_resnorm = resnorm;
rhs_norm = sqrt(hypre_ParVectorInnerProd(f, f));
if (rhs_norm)
{
rel_resnorm = init_resnorm / rhs_norm;
}
else
{
/* rhs is zero, return a zero solution */
hypre_ParVectorSetConstantValues(U_array[0], 0.0);
if(logging > 0)
{
rel_resnorm = 0.0;
(mgr_data -> final_rel_residual_norm) = rel_resnorm;
}
return hypre_error_flag;
}
}
else
{
rel_resnorm = 1.;
rel_resnorm = 1.;
}
if (my_id == 0 && print_level > 1)
@ -198,38 +194,38 @@ hypre_MGRSolve( void *mgr_vdata,
hypre_printf(" residual factor residual\n");
hypre_printf(" -------- ------ --------\n");
hypre_printf(" Initial %e %e\n",init_resnorm,
rel_resnorm);
rel_resnorm);
}
/************** Main Solver Loop - always do 1 iteration ************/
iter = 0;
while ((rel_resnorm >= tol || iter < 1)
&& iter < max_iter)
{
if (global_smooth_iters)
{
if (global_smooth_type == 0)//block Jacobi smoother
{
for (i = 0;i < global_smooth_iters;i ++)
hypre_block_jacobi(A_array[0],F_array[0],U_array[0],blk_size,n_block,left_size,diaginv,Vtemp);
}
else if ((global_smooth_type > 0) && (global_smooth_type < 7))
{
for (i = 0;i < global_smooth_iters;i ++)
hypre_BoomerAMGRelax(A_array[0], F_array[0], NULL, global_smooth_type-1, 0, 1.0, 0.0, NULL, U_array[0], Vtemp, NULL);
}
else if (global_smooth_type == 8)//EUCLID ILU smoother
{
for (i = 0;i < global_smooth_iters;i ++)
{
// compute residual
hypre_ParCSRMatrixMatvecOutOfPlace(alpha, A_array[0], U_array[0], beta, F_array[0], Vtemp);
// solve
HYPRE_EuclidSolve( (mgr_data -> global_smoother),A_array[0],Vtemp,Utemp);
// update solution
hypre_ParVectorAxpy(beta, Utemp, U_array[0]);
if (global_smooth_iters)
{
if (global_smooth_type == 0)//block Jacobi smoother
{
for (i = 0;i < global_smooth_iters;i ++)
hypre_block_jacobi(A_array[0],F_array[0],U_array[0],blk_size,n_block,left_size,diaginv,Vtemp);
}
else if ((global_smooth_type > 0) && (global_smooth_type < 7))
{
for (i = 0;i < global_smooth_iters;i ++)
hypre_BoomerAMGRelax(A_array[0], F_array[0], NULL, global_smooth_type-1, 0, 1.0, 0.0, NULL, U_array[0], Vtemp, NULL);
}
else if (global_smooth_type == 8)//EUCLID ILU smoother
{
for (i = 0;i < global_smooth_iters;i ++)
{
// compute residual
hypre_ParCSRMatrixMatvecOutOfPlace(alpha, A_array[0], U_array[0], beta, F_array[0], Vtemp);
// solve
HYPRE_EuclidSolve( (mgr_data -> global_smoother),A_array[0],Vtemp,Utemp);
// update solution
hypre_ParVectorAxpy(beta, Utemp, U_array[0]);
}
}
}
}
}
/* Do one cycle of reduction solve on Ae=r */
hypre_MGRCycle(mgr_data, F_array, U_array);
@ -240,31 +236,31 @@ hypre_MGRSolve( void *mgr_vdata,
if (print_level > 1 || logging > 1 || tol > 0.)
{
old_resnorm = resnorm;
old_resnorm = resnorm;
if ( logging > 1 ) {
hypre_ParVectorCopy(F_array[0], residual);
hypre_ParCSRMatrixMatvec(alpha, A_array[0], U_array[0], beta, residual );
resnorm = sqrt(hypre_ParVectorInnerProd( residual, residual ));
}
else {
hypre_ParVectorCopy(F_array[0], Vtemp);
hypre_ParCSRMatrixMatvec(alpha, A_array[0], U_array[0], beta, Vtemp);
resnorm = sqrt(hypre_ParVectorInnerProd(Vtemp, Vtemp));
}
if ( logging > 1 ) {
hypre_ParVectorCopy(F_array[0], residual);
hypre_ParCSRMatrixMatvec(alpha, A_array[0], U_array[0], beta, residual );
resnorm = sqrt(hypre_ParVectorInnerProd( residual, residual ));
}
else {
hypre_ParVectorCopy(F_array[0], Vtemp);
hypre_ParCSRMatrixMatvec(alpha, A_array[0], U_array[0], beta, Vtemp);
resnorm = sqrt(hypre_ParVectorInnerProd(Vtemp, Vtemp));
}
if (old_resnorm) conv_factor = resnorm / old_resnorm;
else conv_factor = resnorm;
if (rhs_norm)
{
rel_resnorm = resnorm / rhs_norm;
}
else
{
rel_resnorm = resnorm;
}
if (old_resnorm) conv_factor = resnorm / old_resnorm;
else conv_factor = resnorm;
if (rhs_norm)
{
rel_resnorm = resnorm / rhs_norm;
}
else
{
rel_resnorm = resnorm;
}
norms[iter] = rel_resnorm;
norms[iter] = rel_resnorm;
}
++iter;
@ -274,7 +270,7 @@ hypre_MGRSolve( void *mgr_vdata,
if (my_id == 0 && print_level > 1)
{
hypre_printf(" MGRCycle %2d %e %f %e \n", iter,
resnorm, conv_factor, rel_resnorm);
resnorm, conv_factor, rel_resnorm);
}
}
@ -287,13 +283,13 @@ hypre_MGRSolve( void *mgr_vdata,
/*-----------------------------------------------------------------------
* Print closing statistics
* Add operator and grid complexity stats
* Add operator and grid complexity stats
*-----------------------------------------------------------------------*/
if (iter > 0 && init_resnorm)
conv_factor = pow((resnorm/init_resnorm),(1.0/(HYPRE_Real) iter));
conv_factor = pow((resnorm/init_resnorm),(1.0/(HYPRE_Real) iter));
else
conv_factor = 1.;
conv_factor = 1.;
if (print_level > 1)
{
@ -321,122 +317,122 @@ hypre_MGRSolve( void *mgr_vdata,
HYPRE_Int
hypre_MGRFrelaxVcycle ( void *Frelax_vdata, hypre_ParVector *f, hypre_ParVector *u )
{
hypre_ParAMGData *Frelax_data = (hypre_ParAMGData*) Frelax_vdata;
HYPRE_Int Not_Finished = 1;
HYPRE_Int level = 0;
HYPRE_Int cycle_param = 1;
HYPRE_Int j, Solve_err_flag, local_size, coarse_grid, fine_grid;
hypre_ParAMGData *Frelax_data = (hypre_ParAMGData*) Frelax_vdata;
HYPRE_Int num_sweeps = 1;
HYPRE_Int relax_order = 1;
HYPRE_Int relax_type = 3;
HYPRE_Int relax_weight = 1;
HYPRE_Int omega = 1;
HYPRE_Int Not_Finished = 1;
HYPRE_Int level = 0;
HYPRE_Int cycle_param = 1;
HYPRE_Int j, Solve_err_flag, local_size, coarse_grid, fine_grid;
hypre_ParVector **F_array = (Frelax_data) -> F_array;
hypre_ParVector **U_array = (Frelax_data) -> U_array;
HYPRE_Int num_sweeps = 1;
HYPRE_Int relax_order = 1;
HYPRE_Int relax_type = 3;
HYPRE_Int relax_weight = 1;
HYPRE_Int omega = 1;
hypre_ParCSRMatrix **A_array = ((Frelax_data) -> A_array);
hypre_ParCSRMatrix **R_array = ((Frelax_data) -> P_array);
hypre_ParCSRMatrix **P_array = ((Frelax_data) -> P_array);
HYPRE_Int **CF_marker_array = ((Frelax_data) -> CF_marker_array);
hypre_ParVector **F_array = (Frelax_data) -> F_array;
hypre_ParVector **U_array = (Frelax_data) -> U_array;
hypre_ParVector *Vtemp = (Frelax_data) -> Vtemp;
hypre_ParVector *Ztemp = (Frelax_data) -> Ztemp;
hypre_ParCSRMatrix **A_array = ((Frelax_data) -> A_array);
hypre_ParCSRMatrix **R_array = ((Frelax_data) -> P_array);
hypre_ParCSRMatrix **P_array = ((Frelax_data) -> P_array);
HYPRE_Int **CF_marker_array = ((Frelax_data) -> CF_marker_array);
HYPRE_Int num_c_levels = (Frelax_data) -> num_levels-1;
hypre_ParVector *Vtemp = (Frelax_data) -> Vtemp;
hypre_ParVector *Ztemp = (Frelax_data) -> Ztemp;
hypre_ParVector *Aux_F = NULL;
hypre_ParVector *Aux_U = NULL;
HYPRE_Int num_c_levels = (Frelax_data) -> num_levels-1;
HYPRE_Real alpha, beta;
hypre_ParVector *Aux_F = NULL;
hypre_ParVector *Aux_U = NULL;
while (Not_Finished)
{
local_size = hypre_VectorSize(hypre_ParVectorLocalVector(F_array[level]));
hypre_VectorSize(hypre_ParVectorLocalVector(Vtemp)) = local_size;
Aux_F = F_array[level];
Aux_U = U_array[level];
HYPRE_Real alpha, beta;
if (cycle_param == 1) {
// visiting coarser grids and relax
// This also doubles as the smoother used when no
// coarsening is done
for (j = 0; j < num_sweeps; j++) {
Solve_err_flag = hypre_BoomerAMGRelaxIF(A_array[level],
Aux_F,
CF_marker_array[level],
relax_type,
relax_order,
cycle_param,
relax_weight,
omega,
NULL,
Aux_U,
Vtemp,
Ztemp);
while (Not_Finished)
{
local_size = hypre_VectorSize(hypre_ParVectorLocalVector(F_array[level]));
hypre_VectorSize(hypre_ParVectorLocalVector(Vtemp)) = local_size;
Aux_F = F_array[level];
Aux_U = U_array[level];
if (cycle_param == 1) {
// visiting coarser grids and relax
// This also doubles as the smoother used when no
// coarsening is done
for (j = 0; j < num_sweeps; j++) {
Solve_err_flag = hypre_BoomerAMGRelaxIF(A_array[level],
Aux_F,
CF_marker_array[level],
relax_type,
relax_order,
cycle_param,
relax_weight,
omega,
NULL,
Aux_U,
Vtemp,
Ztemp);
}
if ((num_c_levels > 0) && (level != num_c_levels))
{
fine_grid = level;
coarse_grid = level + 1;
hypre_ParVectorSetConstantValues(U_array[coarse_grid], 0.0);
alpha = -1.0;
beta = 1.0;
// JSP: avoid unnecessary copy using out-of-place version of SpMV
hypre_ParCSRMatrixMatvecOutOfPlace(alpha, A_array[fine_grid], U_array[fine_grid],
beta, F_array[fine_grid], Vtemp);
alpha = 1.0;
beta = 0.0;
hypre_ParCSRMatrixMatvecT(alpha,R_array[fine_grid],Vtemp,
beta,F_array[coarse_grid]);
++level;
cycle_param = 1;
if (level == num_c_levels) cycle_param = 3;
}
} else if (cycle_param == 3) {
// solve the coarsest grid with Gaussian elimination
hypre_GaussElimSolve(Frelax_data, level, 9);
cycle_param = 2;
} else if (cycle_param == 2) {
/*---------------------------------------------------------------
* Visit finer level next.
* Interpolate and add correction using hypre_ParCSRMatrixMatvec.
* Reset counters and cycling parameters for finer level.
*--------------------------------------------------------------*/
fine_grid = level - 1;
coarse_grid = level;
alpha = 1.0;
beta = 1.0;
hypre_ParCSRMatrixMatvec(alpha, P_array[fine_grid],
U_array[coarse_grid],
beta, U_array[fine_grid]);
--level;
cycle_param = 2;
if (level == 0) cycle_param = 99;
} else {
Not_Finished = 0;
}
if ((num_c_levels > 0) && (level != num_c_levels))
{
fine_grid = level;
coarse_grid = level + 1;
}
hypre_ParVectorSetConstantValues(U_array[coarse_grid], 0.0);
alpha = -1.0;
beta = 1.0;
// JSP: avoid unnecessary copy using out-of-place version of SpMV
hypre_ParCSRMatrixMatvecOutOfPlace(alpha, A_array[fine_grid], U_array[fine_grid],
beta, F_array[fine_grid], Vtemp);
alpha = 1.0;
beta = 0.0;
hypre_ParCSRMatrixMatvecT(alpha,R_array[fine_grid],Vtemp,
beta,F_array[coarse_grid]);
++level;
cycle_param = 1;
if (level == num_c_levels) cycle_param = 3;
}
} else if (cycle_param == 3) {
// solve the coarsest grid with Gaussian elimination
hypre_GaussElimSolve(Frelax_data, level, 9);
cycle_param = 2;
} else if (cycle_param == 2) {
/*---------------------------------------------------------------
* Visit finer level next.
* Interpolate and add correction using hypre_ParCSRMatrixMatvec.
* Reset counters and cycling parameters for finer level.
*--------------------------------------------------------------*/
fine_grid = level - 1;
coarse_grid = level;
alpha = 1.0;
beta = 1.0;
hypre_ParCSRMatrixMatvec(alpha, P_array[fine_grid],
U_array[coarse_grid],
beta, U_array[fine_grid]);
--level;
cycle_param = 2;
if (level == 0) cycle_param = 99;
} else {
Not_Finished = 0;
}
}
return Solve_err_flag;
return Solve_err_flag;
}
HYPRE_Int
hypre_MGRCycle( void *mgr_vdata,
hypre_ParVector **F_array,
hypre_ParVector **U_array )
hypre_ParVector **F_array,
hypre_ParVector **U_array )
{
// MPI_Comm comm;
// MPI_Comm comm;
hypre_ParMGRData *mgr_data = (hypre_ParMGRData*) mgr_vdata;
HYPRE_Int Solve_err_flag;
@ -444,32 +440,32 @@ hypre_MGRCycle( void *mgr_vdata,
HYPRE_Int coarse_grid;
HYPRE_Int fine_grid;
HYPRE_Int Not_Finished;
HYPRE_Int cycle_type;
HYPRE_Int cycle_type;
hypre_ParCSRMatrix **A_array = (mgr_data -> A_array);
hypre_ParCSRMatrix **RT_array = (mgr_data -> RT_array);
hypre_ParCSRMatrix **P_array = (mgr_data -> P_array);
hypre_ParCSRMatrix *RAP = (mgr_data -> RAP);
HYPRE_Solver cg_solver = (mgr_data -> coarse_grid_solver);
HYPRE_Int (*coarse_grid_solver_solve)(void*, void*, void*, void*) = (mgr_data -> coarse_grid_solver_solve);
hypre_ParCSRMatrix **A_array = (mgr_data -> A_array);
hypre_ParCSRMatrix **RT_array = (mgr_data -> RT_array);
hypre_ParCSRMatrix **P_array = (mgr_data -> P_array);
hypre_ParCSRMatrix *RAP = (mgr_data -> RAP);
HYPRE_Solver cg_solver = (mgr_data -> coarse_grid_solver);
HYPRE_Int (*coarse_grid_solver_solve)(void*, void*, void*, void*) = (mgr_data -> coarse_grid_solver_solve);
HYPRE_Int **CF_marker = (mgr_data -> CF_marker_array);
HYPRE_Int **CF_marker = (mgr_data -> CF_marker_array);
HYPRE_Int nsweeps = (mgr_data -> num_relax_sweeps);
HYPRE_Int relax_type = (mgr_data -> relax_type);
HYPRE_Real relax_weight = (mgr_data -> relax_weight);
HYPRE_Real omega = (mgr_data -> omega);
HYPRE_Real **relax_l1_norms = (mgr_data -> l1_norms);
hypre_ParVector *Vtemp = (mgr_data -> Vtemp);
hypre_ParVector *Ztemp = (mgr_data -> Ztemp);
HYPRE_Real **relax_l1_norms = (mgr_data -> l1_norms);
hypre_ParVector *Vtemp = (mgr_data -> Vtemp);
hypre_ParVector *Ztemp = (mgr_data -> Ztemp);
HYPRE_Int i, relax_points;
HYPRE_Int num_coarse_levels = (mgr_data -> num_coarse_levels);
HYPRE_Int num_coarse_levels = (mgr_data -> num_coarse_levels);
HYPRE_Real alpha;
HYPRE_Real beta;
HYPRE_Int Frelax_method = (mgr_data -> Frelax_method);
hypre_ParAMGData **FrelaxVcycleData = (mgr_data -> FrelaxVcycleData);
HYPRE_Int Frelax_method = (mgr_data -> Frelax_method);
hypre_ParAMGData **FrelaxVcycleData = (mgr_data -> FrelaxVcycleData);
/* Initialize */
// comm = hypre_ParCSRMatrixComm(A_array[0]);
@ -482,118 +478,118 @@ hypre_MGRCycle( void *mgr_vdata,
while (Not_Finished)
{
/* Do coarse grid correction solve */
if(cycle_type == 3)
{
/* call coarse grid solver here */
/* default is BoomerAMG */
coarse_grid_solver_solve(cg_solver, RAP, F_array[level], U_array[level]);
/* Do coarse grid correction solve */
if(cycle_type == 3)
{
/* call coarse grid solver here */
/* default is BoomerAMG */
coarse_grid_solver_solve(cg_solver, RAP, F_array[level], U_array[level]);
// DEBUG: print the coarse system indicated by mgr_data ->print_coarse_system
if(mgr_data -> print_coarse_system)
{
HYPRE_ParCSRMatrixPrint(RAP, "RAP_mat");
HYPRE_ParVectorPrint(F_array[level], "RAP_rhs");
HYPRE_ParVectorPrint(U_array[level], "RAP_sol");
mgr_data -> print_coarse_system--;
}
// DEBUG: print the coarse system indicated by mgr_data ->print_coarse_system
if(mgr_data -> print_coarse_system)
{
HYPRE_ParCSRMatrixPrint(RAP, "RAP_mat");
HYPRE_ParVectorPrint(F_array[level], "RAP_rhs");
HYPRE_ParVectorPrint(U_array[level], "RAP_sol");
mgr_data -> print_coarse_system--;
}
/**** cycle up ***/
cycle_type = 2;
}
/* F-relaxation */
else if(cycle_type == 1)
{
/**** cycle up ***/
cycle_type = 2;
}
/* F-relaxation */
else if(cycle_type == 1)
{
fine_grid = level;
coarse_grid = level + 1;
/* Relax solution - F-relaxation */
relax_points = -1;
fine_grid = level;
coarse_grid = level + 1;
/* Relax solution - F-relaxation */
relax_points = -1;
if (Frelax_method == 0)
{ /* (single level) relaxation for A_ff */
if (relax_type == 18)
{
for(i=0; i<nsweeps; i++)
hypre_ParCSRRelax_L1_Jacobi(A_array[fine_grid], F_array[fine_grid], CF_marker[fine_grid],
relax_points, relax_weight, relax_l1_norms[fine_grid],
U_array[fine_grid], Vtemp);
}
else if(relax_type == 8 || relax_type == 13 || relax_type == 14)
{
for(i=0; i<nsweeps; i++)
hypre_BoomerAMGRelax(A_array[fine_grid], F_array[fine_grid], CF_marker[fine_grid],
relax_type, relax_points, relax_weight,
omega, relax_l1_norms[fine_grid], U_array[fine_grid], Vtemp, Ztemp);
}
else
{
for(i=0; i<nsweeps; i++)
Solve_err_flag = hypre_BoomerAMGRelax(A_array[fine_grid], F_array[fine_grid], CF_marker[fine_grid],
relax_type,relax_points,relax_weight,omega,NULL, U_array[fine_grid], Vtemp, Ztemp);
}
}
else if (Frelax_method == 1)
{
/* v-cycle smoother for A_ff */
for(i=0; i<nsweeps; i++)
hypre_MGRFrelaxVcycle(FrelaxVcycleData[level], F_array[level], U_array[level]);
}
else
{
for (i=0; i<nsweeps; i++)
Solve_err_flag = hypre_BoomerAMGRelax(A_array[fine_grid], F_array[fine_grid], CF_marker[fine_grid],
relax_type, relax_points, relax_weight,
omega, NULL, U_array[fine_grid], Vtemp, Ztemp);
}
// Update residual and compute coarse-grid rhs
alpha = -1.0;
beta = 1.0;
if (Frelax_method == 0)
{ /* (single level) relaxation for A_ff */
if (relax_type == 18)
{
for(i=0; i<nsweeps; i++)
hypre_ParCSRRelax_L1_Jacobi(A_array[fine_grid], F_array[fine_grid], CF_marker[fine_grid],
relax_points, relax_weight, relax_l1_norms[fine_grid],
U_array[fine_grid], Vtemp);
}
else if(relax_type == 8 || relax_type == 13 || relax_type == 14)
{
for(i=0; i<nsweeps; i++)
hypre_BoomerAMGRelax(A_array[fine_grid], F_array[fine_grid], CF_marker[fine_grid],
relax_type, relax_points, relax_weight,
omega, relax_l1_norms[fine_grid], U_array[fine_grid], Vtemp, Ztemp);
}
else
{
for(i=0; i<nsweeps; i++)
Solve_err_flag = hypre_BoomerAMGRelax(A_array[fine_grid], F_array[fine_grid], CF_marker[fine_grid],
relax_type,relax_points,relax_weight,omega,NULL, U_array[fine_grid], Vtemp, Ztemp);
}
}
else if (Frelax_method == 1)
{
/* v-cycle smoother for A_ff */
for(i=0; i<nsweeps; i++)
hypre_MGRFrelaxVcycle(FrelaxVcycleData[level], F_array[level], U_array[level]);
}
else
{
for (i=0; i<nsweeps; i++)
Solve_err_flag = hypre_BoomerAMGRelax(A_array[fine_grid], F_array[fine_grid], CF_marker[fine_grid],
relax_type, relax_points, relax_weight,
omega, NULL, U_array[fine_grid], Vtemp, Ztemp);
}
// Update residual and compute coarse-grid rhs
alpha = -1.0;
beta = 1.0;
hypre_ParCSRMatrixMatvecOutOfPlace(alpha, A_array[fine_grid], U_array[fine_grid],
beta, F_array[fine_grid], Vtemp);
hypre_ParCSRMatrixMatvecOutOfPlace(alpha, A_array[fine_grid], U_array[fine_grid],
beta, F_array[fine_grid], Vtemp);
alpha = 1.0;
beta = 0.0;
alpha = 1.0;
beta = 0.0;
hypre_ParCSRMatrixMatvecT(alpha,RT_array[fine_grid],Vtemp,
beta,F_array[coarse_grid]);
hypre_ParCSRMatrixMatvecT(alpha,RT_array[fine_grid],Vtemp,
beta,F_array[coarse_grid]);
// initialize coarse grid solution array
hypre_ParVectorSetConstantValues(U_array[coarse_grid], 0.0);
// initialize coarse grid solution array
hypre_ParVectorSetConstantValues(U_array[coarse_grid], 0.0);
++level;
++level;
if (level == num_coarse_levels) cycle_type = 3;
}
else if(level != 0)
{
/* Interpolate */
if (level == num_coarse_levels) cycle_type = 3;
}
else if(level != 0)
{
/* Interpolate */
fine_grid = level - 1;
coarse_grid = level;
alpha = 1.0;
beta = 1.0;
fine_grid = level - 1;
coarse_grid = level;
alpha = 1.0;
beta = 1.0;
hypre_ParCSRMatrixMatvec(alpha, P_array[fine_grid],
U_array[coarse_grid],
beta, U_array[fine_grid]);
hypre_ParCSRMatrixMatvec(alpha, P_array[fine_grid],
U_array[coarse_grid],
beta, U_array[fine_grid]);
/* post relaxation sweeps */
// for(i=0; i<nsweeps; i++)
// Solve_err_flag = hypre_BoomerAMGRelax(A_array[fine_grid], F_array[fine_grid], CF_marker[fine_grid],
// relax_type, relax_points, relax_weight, omega, NULL, U_array[fine_grid], Vtemp, Ztemp);
/* post relaxation sweeps */
// for(i=0; i<nsweeps; i++)
// Solve_err_flag = hypre_BoomerAMGRelax(A_array[fine_grid], F_array[fine_grid], CF_marker[fine_grid],
// relax_type, relax_points, relax_weight, omega, NULL, U_array[fine_grid], Vtemp, Ztemp);
if (Solve_err_flag != 0)
return(Solve_err_flag);
if (Solve_err_flag != 0)
return(Solve_err_flag);
--level;
--level;
}
else
{
Not_Finished = 0;
}
}
else
{
Not_Finished = 0;
}
}
return Solve_err_flag;
}

1787
src/parcsr_ls/par_multi_interp.c
View File

File diff suppressed because it is too large Load Diff

3930
src/parcsr_ls/partial.c
View File

File diff suppressed because it is too large Load Diff

1800
src/parcsr_mv/par_csr_matop.c
View File

File diff suppressed because it is too large Load Diff