From b4f260aa01b1ac380f00a0ada8b7fe1652aab9fe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= <sebastien@dynare.org> Date: Thu, 27 Jul 2023 17:29:16 +0200 Subject: [PATCH] folded_to_unfolded_dr MEX: remove unused variable --- mex/sources/folded_to_unfolded_dr/mexFunction.f08 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mex/sources/folded_to_unfolded_dr/mexFunction.f08 b/mex/sources/folded_to_unfolded_dr/mexFunction.f08 index 50b5eb9045..97a211b2f3 100644 --- a/mex/sources/folded_to_unfolded_dr/mexFunction.f08 +++ b/mex/sources/folded_to_unfolded_dr/mexFunction.f08 @@ -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 -- GitLab