Commit c079ace8 authored by Sébastien Villemot's avatar Sébastien Villemot
Browse files

Remove various compiler warnings

parent 1fc2d78d
......@@ -21,7 +21,7 @@ double GoldenSectionSearch::search(OneDFunction& f, double x1, double x2)
if (init_bracket(f, x1, x2, b)) {
double fb = f.eval(b);
double f1 = f.eval(x1);
double f2 = f.eval(x2);
f.eval(x2);
double dx;
do {
double w = (b-x1)/(x2-x1);
......@@ -38,7 +38,6 @@ double GoldenSectionSearch::search(OneDFunction& f, double x1, double x2)
// x is on the left from b
if (f1 > fx && fx < fb) {
// pickup bracket [f1,fx,fb]
f2 = fb;
x2 = b;
fb = fx;
b = x;
......@@ -51,7 +50,6 @@ double GoldenSectionSearch::search(OneDFunction& f, double x1, double x2)
// x is on the right from b
if (f1 > fb && fb < fx) {
// pickup bracket [f1,fb,fx]
f2 = fx;
x2 = x;
} else {
// pickup bracket [fb,fx,f2]
......
/*
* Copyright (C) 2007-2011 Dynare Team
* Copyright (C) 2007-2012 Dynare Team
*
* This file is part of Dynare.
*
......@@ -247,7 +247,6 @@ mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
for (int i = 0; i < n; i++)
i_nz_state_var[i] = nz_state_var[i];
int n_diag = mxGetScalar(prhs[11]);
#else
mxArray *M_;
M_ = mexGetVariable("global", "M_");
......@@ -342,7 +341,7 @@ mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
lapack_int* iw = (lapack_int*)mxMalloc(pp * sizeof(lapack_int));
lapack_int* ipiv = (lapack_int*)mxMalloc(pp * sizeof(lapack_int));
lapack_int info = 0;
double anorm, rcond;
double rcond;
#ifdef BLAS
mxArray* p_P_t_t1 = mxCreateDoubleMatrix(n, n, mxREAL);
#else
......
......@@ -3001,11 +3001,15 @@ SparseMatrix::Simulate_Newton_One_Boundary(int blck, int y_size, int it_, int y_
{
for (j = 0; j < y_size; j++)
{
#ifdef DEBUG
bool select = false;
#endif
for (int i = 0; i < Size; i++)
if (j == index_vara[i])
{
#ifdef DEBUG
select = true;
#endif
break;
}
#ifdef DEBUG
......
......@@ -310,7 +310,7 @@ void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
double *ghxx = mxGetPr(prhs[5]);
double *ghuu = mxGetPr(prhs[6]);
double *ghxu = mxGetPr(prhs[7]);
double *yhat_, *ss;
double *yhat_ = NULL, *ss = NULL;
if (nrhs>9)
{
yhat_ = mxGetPr(prhs[8]);
......
/*
* Copyright (C) 2006-2011 Dynare Team
* Copyright (C) 2006-2012 Dynare Team
*
* This file is part of Dynare.
*
......@@ -34,12 +34,11 @@ my_criteria(const double *alphar, const double *alphai, const double *beta)
void
mjdgges(double *a, double *b, double *z, double *n, double *sdim, double *eval_r, double *eval_i, double *info)
{
lapack_int i_n, i_info, i_sdim, one, lwork;
lapack_int i_n, i_info, i_sdim, lwork;
double *alphar, *alphai, *beta, *work, *par, *pai, *pb, *per, *pei;
double *junk;
lapack_int *bwork;
one = 1;
i_n = (lapack_int)*n;
alphar = mxCalloc(i_n, sizeof(double));
alphai = mxCalloc(i_n, sizeof(double));
......
/*
** Computes Quasi Monte-Carlo sequence.
**
** Copyright (C) 2010-2011 Dynare Team
** Copyright (C) 2010-2012 Dynare Team
**
** This file is part of Dynare (can be used outside Dynare).
**
......@@ -135,7 +135,7 @@ void mexFunction( int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
{
DYN_MEX_FUNC_ERR_MSG_TXT("qmc_sequence:: The fifth input argument must be a positive scalar!");
}
double *lower_bounds, *upper_bounds;
double *lower_bounds = NULL, *upper_bounds = NULL;
int unit_hypercube_flag = 1;
if ( (type==0) && (nrhs>4) )
{
......
/*
* Copyright (C) 2009-2011 Dynare Team
* Copyright (C) 2009-2012 Dynare Team
*
* This file is part of Dynare.
*
......@@ -226,7 +226,6 @@ namespace MFS
bool not_a_loop;
int i;
AdjacencyList_t::vertex_iterator it, it1, ita, it_end;
property_map<AdjacencyList_t, vertex_index_t>::type v_index = get(vertex_index, G);
for (tie(it, it_end) = vertices(G), i = 0; it != it_end; ++it, i++)
{
int in_degree_n = in_degree(*it, G);
......
......@@ -1515,12 +1515,10 @@ StaticModel::writeOutput(ostream &output, bool block) const
{
BlockSimulationType simulation_type = getBlockSimulationType(b);
unsigned int block_size = getBlockSize(b);
unsigned int block_mfs = getBlockMfs(b);
unsigned int block_recursive = block_size - block_mfs;
ostringstream tmp_s, tmp_s_eq;
tmp_s.str("");
tmp_s_eq.str("");
for (int i = 0; i < block_size; i++)
for (unsigned int i = 0; i < block_size; i++)
{
tmp_s << " " << getBlockVariableID(b, i)+1;
tmp_s_eq << " " << getBlockEquationID(b, i)+1;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment