diff options
author | bmundim <bmundim@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-05-17 19:29:58 +0000 |
---|---|---|
committer | bmundim <bmundim@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-05-17 19:29:58 +0000 |
commit | d58491658cc5f1e5336a94760def168c89d95643 (patch) | |
tree | 1bf3ddb4dbc3ab819fcbb13baf758181a60b2f83 /src/GRHydro_Con2PrimM_pt.c | |
parent | 5894edf0407dad2f9d73e743ef2a9ea8877985f6 (diff) |
GRHydro: a bit of a clean-up of unused variables to avoid compiler complaints
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@336 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Con2PrimM_pt.c')
-rw-r--r-- | src/GRHydro_Con2PrimM_pt.c | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/src/GRHydro_Con2PrimM_pt.c b/src/GRHydro_Con2PrimM_pt.c index a26b52d..bbd326e 100644 --- a/src/GRHydro_Con2PrimM_pt.c +++ b/src/GRHydro_Con2PrimM_pt.c @@ -216,7 +216,7 @@ void CCTK_FCALL CCTK_FNAME(GRHydro_Con2PrimM_pt) ( CCTK_REAL detg = (*det); CCTK_REAL sqrt_detg = sqrt(detg); CCTK_REAL inv_sqrt_detg = 1./sqrt_detg; - CCTK_INT i,j, i_increase; + CCTK_INT i_increase; DECLARE_CCTK_PARAMETERS; @@ -458,7 +458,7 @@ static CCTK_REAL vsq_calc(CCTK_REAL W, struct LocGlob *lgp) static CCTK_REAL x1_of_x0(CCTK_REAL x0, struct LocGlob *lgp ) { - CCTK_REAL x1,vsq; + CCTK_REAL vsq; CCTK_REAL dv = 1.e-15; vsq = fabs(vsq_calc(x0,lgp)) ; // guaranteed to be positive @@ -509,8 +509,8 @@ static CCTK_INT twod_newton_raphson( CCTK_REAL x[], CCTK_REAL gammaeos, struct L CCTK_REAL f, df, dx[2], x_old[2]; CCTK_REAL resid[2], jac[2][2]; CCTK_REAL errx, x_orig[2]; - CCTK_INT n_iter, id, jd, i_extra, doing_extra; - CCTK_REAL dW,dvsq,vsq_old,vsq,W,W_old; + CCTK_INT n_iter, i_extra, doing_extra; + CCTK_REAL vsq,W,W_old; const CCTK_REAL dv = (1.-1.e-15); CCTK_INT keep_iterating; @@ -523,7 +523,7 @@ static CCTK_INT twod_newton_raphson( CCTK_REAL x[], CCTK_REAL gammaeos, struct L x_old[0] = x_orig[0] = x[0] ; x_old[1] = x_orig[1] = x[1] ; - vsq_old = vsq = W = W_old = 0.; + vsq = W = W_old = 0.; n_iter = 0; /* Start the Newton-Raphson iterations : */ @@ -598,7 +598,7 @@ static CCTK_INT twod_newton_raphson( CCTK_REAL x[], CCTK_REAL gammaeos, struct L return(1); } - return(0); + } @@ -626,15 +626,13 @@ static void func_vsq(CCTK_REAL x[], CCTK_REAL dx[], CCTK_REAL resid[], { - CCTK_REAL W, vsq, Wsq, p_tmp, dPdvsq, dPdW; - CCTK_REAL t11, t16,t18,t2,t21, t23, t24, t25, t3, t35, t36, t4, t40; + CCTK_REAL W, vsq, p_tmp, dPdvsq, dPdW; + CCTK_REAL t11, t16,t18,t2,t21, t23, t24, t25, t3, t35, t4, t40; W = x[0]; vsq = x[1]; - Wsq = W*W; - p_tmp = eos_info(W, vsq, &dPdW, &dPdvsq, gammaeos, lgp); // These expressions were calculated using Mathematica, but made into efficient |