Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Dóra Kocsis
dynare
Commits
c079ace8
Commit
c079ace8
authored
Jun 08, 2012
by
Sébastien Villemot
Browse files
Remove various compiler warnings
parent
1fc2d78d
Changes
8
Hide whitespace changes
Inline
Side-by-side
dynare++/src/nlsolve.cpp
View file @
c079ace8
...
...
@@ -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]
...
...
mex/sources/block_kalman_filter/block_kalman_filter.cc
View file @
c079ace8
/*
* Copyright (C) 2007-201
1
Dynare Team
* Copyright (C) 2007-201
2
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
...
...
mex/sources/bytecode/SparseMatrix.cc
View file @
c079ace8
...
...
@@ -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
...
...
mex/sources/local_state_space_iterations/local_state_space_iteration_2.cc
View file @
c079ace8
...
...
@@ -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
]);
...
...
mex/sources/mjdgges/mjdgges.c
View file @
c079ace8
/*
* Copyright (C) 2006-201
1
Dynare Team
* Copyright (C) 2006-201
2
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
));
...
...
mex/sources/sobol/qmc_sequence.cc
View file @
c079ace8
/*
** Computes Quasi Monte-Carlo sequence.
**
** Copyright (C) 2010-201
1
Dynare Team
** Copyright (C) 2010-201
2
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
)
)
{
...
...
preprocessor/MinimumFeedbackSet.cc
View file @
c079ace8
/*
* Copyright (C) 2009-201
1
Dynare Team
* Copyright (C) 2009-201
2
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
);
...
...
preprocessor/StaticModel.cc
View file @
c079ace8
...
...
@@ -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
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment