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

A few changes to address some issues found by the Klocwork static analyzer.

Browse Source
This commit is contained in:
kolev1 2012-04-25 22:37:16 +00:00
parent 50a94d0efc
commit 891e32d672
3 changed files with 65 additions and 120 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
parcsr_ls/_hypre_parcsr_ls.h
View File

@ -529,9 +529,9 @@ HYPRE_Int hypre_AMSSetSmoothingOptions ( void *solver , HYPRE_Int A_relax_type ,
HYPRE_Int hypre_AMSSetChebySmoothingOptions ( void *solver , HYPRE_Int A_cheby_order , HYPRE_Int A_cheby_fraction );
HYPRE_Int hypre_AMSSetAlphaAMGOptions ( void *solver , HYPRE_Int B_Pi_coarsen_type , HYPRE_Int B_Pi_agg_levels , HYPRE_Int B_Pi_relax_type , double B_Pi_theta , HYPRE_Int B_Pi_interp_type , HYPRE_Int B_Pi_Pmax );
HYPRE_Int hypre_AMSSetBetaAMGOptions ( void *solver , HYPRE_Int B_G_coarsen_type , HYPRE_Int B_G_agg_levels , HYPRE_Int B_G_relax_type , double B_G_theta , HYPRE_Int B_G_interp_type , HYPRE_Int B_G_Pmax );
HYPRE_Int hypre_AMSComputePi ( hypre_ParCSRMatrix *A , hypre_ParCSRMatrix *G , hypre_ParVector *x , hypre_ParVector *y , hypre_ParVector *z , hypre_ParVector *Gx , hypre_ParVector *Gy , hypre_ParVector *Gz , HYPRE_Int dim , hypre_ParCSRMatrix **Pi_ptr );
HYPRE_Int hypre_AMSComputePixyz ( hypre_ParCSRMatrix *A , hypre_ParCSRMatrix *G , hypre_ParVector *x , hypre_ParVector *y , hypre_ParVector *z , hypre_ParVector *Gx , hypre_ParVector *Gy , hypre_ParVector *Gz , HYPRE_Int dim , hypre_ParCSRMatrix **Pix_ptr , hypre_ParCSRMatrix **Piy_ptr , hypre_ParCSRMatrix **Piz_ptr );
HYPRE_Int hypre_AMSComputeGPi ( hypre_ParCSRMatrix *A , hypre_ParCSRMatrix *G , hypre_ParVector *x , hypre_ParVector *y , hypre_ParVector *z , hypre_ParVector *Gx , hypre_ParVector *Gy , hypre_ParVector *Gz , HYPRE_Int dim , hypre_ParCSRMatrix **GPi_ptr );
HYPRE_Int hypre_AMSComputePi ( hypre_ParCSRMatrix *A , hypre_ParCSRMatrix *G , hypre_ParVector *Gx , hypre_ParVector *Gy , hypre_ParVector *Gz , HYPRE_Int dim , hypre_ParCSRMatrix **Pi_ptr );
HYPRE_Int hypre_AMSComputePixyz ( hypre_ParCSRMatrix *A , hypre_ParCSRMatrix *G , hypre_ParVector *Gx , hypre_ParVector *Gy , hypre_ParVector *Gz , HYPRE_Int dim , hypre_ParCSRMatrix **Pix_ptr , hypre_ParCSRMatrix **Piy_ptr , hypre_ParCSRMatrix **Piz_ptr );
HYPRE_Int hypre_AMSComputeGPi ( hypre_ParCSRMatrix *A , hypre_ParCSRMatrix *G , hypre_ParVector *Gx , hypre_ParVector *Gy , hypre_ParVector *Gz , HYPRE_Int dim , hypre_ParCSRMatrix **GPi_ptr );
HYPRE_Int hypre_AMSSetup ( void *solver , hypre_ParCSRMatrix *A , hypre_ParVector *b , hypre_ParVector *x );
HYPRE_Int hypre_AMSSolve ( void *solver , hypre_ParCSRMatrix *A , hypre_ParVector *b , hypre_ParVector *x );
HYPRE_Int hypre_ParCSRSubspacePrec ( hypre_ParCSRMatrix *A0 , HYPRE_Int A0_relax_type , HYPRE_Int A0_relax_times , double *A0_l1_norms , double A0_relax_weight , double A0_omega , double A0_max_eig_est , double A0_min_eig_est , HYPRE_Int A0_cheby_order , double A0_cheby_fraction , hypre_ParCSRMatrix **A , HYPRE_Solver *B , HYPRE_PtrToSolverFcn *HB , hypre_ParCSRMatrix **P , hypre_ParVector **r , hypre_ParVector **g , hypre_ParVector *x , hypre_ParVector *y , hypre_ParVector *r0 , hypre_ParVector *g0 , char *cycle , hypre_ParVector *z );

6
parcsr_ls/ads.c
View File

@ -112,6 +112,12 @@ HYPRE_Int hypre_ADSDestroy(void *solver)
{
hypre_ADSData *ads_data = solver;
if (!ads_data)
{
hypre_error_in_arg(1);
return hypre_error_flag;
}
if (ads_data -> A_C)
hypre_ParCSRMatrixDestroy(ads_data -> A_C);
if (ads_data -> B_C)

173
parcsr_ls/ams.c
View File

@ -858,6 +858,12 @@ HYPRE_Int hypre_AMSDestroy(void *solver)
{
hypre_AMSData *ams_data = solver;
if (!ams_data)
{
hypre_error_in_arg(1);
return hypre_error_flag;
}
if (ams_data -> owns_A_G)
if (ams_data -> A_G)
hypre_ParCSRMatrixDestroy(ams_data -> A_G);
@ -1312,42 +1318,14 @@ HYPRE_Int hypre_AMSSetBetaAMGOptions(void *solver,
HYPRE_Int hypre_AMSComputePi(hypre_ParCSRMatrix *A,
hypre_ParCSRMatrix *G,
hypre_ParVector *x,
hypre_ParVector *y,
hypre_ParVector *z,
hypre_ParVector *Gx,
hypre_ParVector *Gy,
hypre_ParVector *Gz,
HYPRE_Int dim,
hypre_ParCSRMatrix **Pi_ptr)
{
HYPRE_Int input_info = 0;
hypre_ParCSRMatrix *Pi;
if (x != NULL && y != NULL && (dim == 2 || z != NULL))
input_info = 1;
if (Gx != NULL && Gy != NULL && (dim == 2 || Gz != NULL))
input_info = 2;
if (!input_info)
hypre_error_in_arg(3);
/* If not given, compute Gx, Gy and Gz */
if (input_info == 1)
{
Gx = hypre_ParVectorInRangeOf(G);
hypre_ParCSRMatrixMatvec (1.0, G, x, 0.0, Gx);
Gy = hypre_ParVectorInRangeOf(G);
hypre_ParCSRMatrixMatvec (1.0, G, y, 0.0, Gy);
if (dim == 3)
{
Gz = hypre_ParVectorInRangeOf(G);
hypre_ParCSRMatrixMatvec (1.0, G, z, 0.0, Gz);
}
}
/* Compute Pi = [Pi_x, Pi_y, Pi_z] */
{
HYPRE_Int i, j, d;
@ -1467,14 +1445,6 @@ HYPRE_Int hypre_AMSComputePi(hypre_ParCSRMatrix *A,
}
if (input_info == 1)
{
hypre_ParVectorDestroy(Gx);
hypre_ParVectorDestroy(Gy);
if (dim == 3)
hypre_ParVectorDestroy(Gz);
}
*Pi_ptr = Pi;
return hypre_error_flag;
@ -1494,9 +1464,6 @@ HYPRE_Int hypre_AMSComputePi(hypre_ParCSRMatrix *A,
HYPRE_Int hypre_AMSComputePixyz(hypre_ParCSRMatrix *A,
hypre_ParCSRMatrix *G,
hypre_ParVector *x,
hypre_ParVector *y,
hypre_ParVector *z,
hypre_ParVector *Gx,
hypre_ParVector *Gy,
hypre_ParVector *Gz,
@ -1505,33 +1472,8 @@ HYPRE_Int hypre_AMSComputePixyz(hypre_ParCSRMatrix *A,
hypre_ParCSRMatrix **Piy_ptr,
hypre_ParCSRMatrix **Piz_ptr)
{
HYPRE_Int input_info = 0;
hypre_ParCSRMatrix *Pix, *Piy, *Piz;
if (x != NULL && y != NULL && (dim == 2 || z != NULL))
input_info = 1;
if (Gx != NULL && Gy != NULL && (dim == 2 || Gz != NULL))
input_info = 2;
if (!input_info)
hypre_error_in_arg(3);
/* If not given, compute Gx, Gy and Gz */
if (input_info == 1)
{
Gx = hypre_ParVectorInRangeOf(G);
hypre_ParCSRMatrixMatvec (1.0, G, x, 0.0, Gx);
Gy = hypre_ParVectorInRangeOf(G);
hypre_ParCSRMatrixMatvec (1.0, G, y, 0.0, Gy);
if (dim == 3)
{
Gz = hypre_ParVectorInRangeOf(G);
hypre_ParCSRMatrixMatvec (1.0, G, z, 0.0, Gz);
}
}
/* Compute Pix, Piy, Piz */
{
HYPRE_Int i, j;
@ -1794,14 +1736,6 @@ HYPRE_Int hypre_AMSComputePixyz(hypre_ParCSRMatrix *A,
}
}
if (input_info == 1)
{
hypre_ParVectorDestroy(Gx);
hypre_ParVectorDestroy(Gy);
if (dim == 3)
hypre_ParVectorDestroy(Gz);
}
*Pix_ptr = Pix;
*Piy_ptr = Piy;
if (dim == 3)
@ -1820,45 +1754,17 @@ HYPRE_Int hypre_AMSComputePixyz(hypre_ParCSRMatrix *A,
HYPRE_Int hypre_AMSComputeGPi(hypre_ParCSRMatrix *A,
hypre_ParCSRMatrix *G,
hypre_ParVector *x,
hypre_ParVector *y,
hypre_ParVector *z,
hypre_ParVector *Gx,
hypre_ParVector *Gy,
hypre_ParVector *Gz,
HYPRE_Int dim,
hypre_ParCSRMatrix **GPi_ptr)
{
HYPRE_Int input_info = 0;
hypre_ParCSRMatrix *GPi;
if (x != NULL && y != NULL && (dim == 2 || z != NULL))
input_info = 1;
if (Gx != NULL && Gy != NULL && (dim == 2 || Gz != NULL))
input_info = 2;
if (!input_info)
hypre_error_in_arg(3);
/* Take into account G */
dim++;
/* If not given, compute Gx, Gy and Gz */
if (input_info == 1)
{
Gx = hypre_ParVectorInRangeOf(G);
hypre_ParCSRMatrixMatvec (1.0, G, x, 0.0, Gx);
Gy = hypre_ParVectorInRangeOf(G);
hypre_ParCSRMatrixMatvec (1.0, G, y, 0.0, Gy);
if (dim == 4)
{
Gz = hypre_ParVectorInRangeOf(G);
hypre_ParCSRMatrixMatvec (1.0, G, z, 0.0, Gz);
}
}
/* Compute GPi = [Pi_x, Pi_y, Pi_z, G] */
{
HYPRE_Int i, j, d;
@ -1982,14 +1888,6 @@ HYPRE_Int hypre_AMSComputeGPi(hypre_ParCSRMatrix *A,
}
if (input_info == 1)
{
hypre_ParVectorDestroy(Gx);
hypre_ParVectorDestroy(Gy);
if (dim == 4)
hypre_ParVectorDestroy(Gz);
}
*GPi_ptr = GPi;
return hypre_error_flag;
@ -2013,6 +1911,8 @@ HYPRE_Int hypre_AMSSetup(void *solver,
{
hypre_AMSData *ams_data = solver;
HYPRE_Int input_info = 0;
ams_data -> A = A;
/* Modifications for problems with zero-conductivity regions */
@ -2164,15 +2064,36 @@ HYPRE_Int hypre_AMSSetup(void *solver,
&ams_data->A_min_eig_est);
}
/* If not given, compute Gx, Gy and Gz */
{
if (ams_data -> x != NULL && ams_data -> y != NULL &&
(ams_data -> dim == 2 || ams_data -> z != NULL))
input_info = 1;
if (ams_data -> Gx != NULL && ams_data -> Gy != NULL &&
(ams_data -> dim == 2 || ams_data -> Gz != NULL))
input_info = 2;
if (input_info == 1)
{
ams_data -> Gx = hypre_ParVectorInRangeOf(ams_data -> G);
hypre_ParCSRMatrixMatvec (1.0, ams_data -> G, ams_data -> x, 0.0, ams_data -> Gx);
ams_data -> Gy = hypre_ParVectorInRangeOf(ams_data -> G);
hypre_ParCSRMatrixMatvec (1.0, ams_data -> G, ams_data -> y, 0.0, ams_data -> Gy);
if (ams_data -> dim == 3)
{
ams_data -> Gz = hypre_ParVectorInRangeOf(ams_data -> G);
hypre_ParCSRMatrixMatvec (1.0, ams_data -> G, ams_data -> z, 0.0, ams_data -> Gz);
}
}
}
if (ams_data -> Pi == NULL && ams_data -> Pix == NULL)
{
if (ams_data -> cycle_type == 20)
/* Construct the combined interpolation matrix [G,Pi] */
hypre_AMSComputeGPi(ams_data -> A,
ams_data -> G,
ams_data -> x,
ams_data -> y,
ams_data -> z,
ams_data -> Gx,
ams_data -> Gy,
ams_data -> Gz,
@ -2182,9 +2103,6 @@ HYPRE_Int hypre_AMSSetup(void *solver,
/* Construct Pi{x,y,z} instead of Pi = [Pix,Piy,Piz] */
hypre_AMSComputePixyz(ams_data -> A,
ams_data -> G,
ams_data -> x,
ams_data -> y,
ams_data -> z,
ams_data -> Gx,
ams_data -> Gy,
ams_data -> Gz,
@ -2196,9 +2114,6 @@ HYPRE_Int hypre_AMSSetup(void *solver,
/* Construct the Pi interpolation matrix */
hypre_AMSComputePi(ams_data -> A,
ams_data -> G,
ams_data -> x,
ams_data -> y,
ams_data -> z,
ams_data -> Gx,
ams_data -> Gy,
ams_data -> Gz,
@ -2206,6 +2121,16 @@ HYPRE_Int hypre_AMSSetup(void *solver,
&ams_data -> Pi);
}
/* Keep Gx, Gy and Gz only if use the method with discrete divergence
stabilization (where we use them to compute the local mesh size). */
if (input_info == 1 && ams_data -> cycle_type != 9)
{
hypre_ParVectorDestroy(ams_data -> Gx);
hypre_ParVectorDestroy(ams_data -> Gy);
if (ams_data -> dim == 3)
hypre_ParVectorDestroy(ams_data -> Gz);
}
/* Create the AMG solver on the range of G^T */
if (!ams_data -> beta_is_zero && ams_data -> cycle_type != 20)
{
@ -2394,6 +2319,8 @@ HYPRE_Int hypre_AMSSetup(void *solver,
{
hypre_ParCSRMatrix *Gt, *GGt, *ApGGt;
hypre_ParCSRMatrixTranspose(ams_data -> G, &Gt, 1);
hypre_ParCSRMatrixOwnsColStarts(Gt) = 0;
hypre_ParCSRMatrixOwnsRowStarts(Gt) = 0;
/* scale GGt by h^2 */
{
@ -2437,7 +2364,17 @@ HYPRE_Int hypre_AMSSetup(void *solver,
}
}
/* we only needed Gx, Gy and Gz to compute the local mesh size */
if (input_info == 1)
{
hypre_ParVectorDestroy(ams_data -> Gx);
hypre_ParVectorDestroy(ams_data -> Gy);
if (ams_data -> dim == 3)
hypre_ParVectorDestroy(ams_data -> Gz);
}
GGt = hypre_ParMatmul(ams_data -> G, Gt);
hypre_ParCSRMatrixDestroy(Gt);
/* hypre_ParCSRMatrixAdd(GGt, A, &ams_data -> A); */
{
@ -2485,6 +2422,8 @@ HYPRE_Int hypre_AMSSetup(void *solver,
*C_ptr = C;
}
hypre_ParCSRMatrixDestroy(GGt);
hypre_BoomerAMGBuildCoarseOperator(ams_data -> Pi,
ApGGt,
ams_data -> Pi,