stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

folded_to_unfolded_dr MEX: remove unused variable

kalman-mex
Sébastien Villemot 2023-07-27 17:29:16 +02:00
parent b1db895dee
commit b4f260aa01
No known key found for this signature in database
GPG Key ID: 2CECE9350ECEBE4A
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mex/sources/folded_to_unfolded_dr/mexFunction.f08
View File

@ -27,7 +27,7 @@ subroutine mexFunction(nlhs, plhs, nrhs, prhs) bind(c, name='mexFunction')
type(c_ptr), dimension(*), intent(in), target :: prhs
type(c_ptr), dimension(*), intent(out) :: plhs
integer(c_int), intent(in), value :: nlhs, nrhs
type(c_ptr) :: M_mx, options_mx, dr_mx, pruning_mx, tmp, g
type(c_ptr) :: M_mx, options_mx, dr_mx, tmp, g
type(tensor), dimension(:), allocatable, target :: fdr
integer :: order, npred, nboth, nstatic, nfwrd, endo_nbr, exo_nbr, nys, nvar
type(pascal_triangle) :: p