From e9ecce8293384af3632ef4be21f85433cf099fe5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= <sebastien@dynare.org> Date: Sat, 15 Apr 2023 13:03:34 +0200 Subject: [PATCH] ricatti_update MEX: remove unused variable --- mex/sources/riccati_update/mexFunction.f08 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mex/sources/riccati_update/mexFunction.f08 b/mex/sources/riccati_update/mexFunction.f08 index 68d66e9c69..7443a604c7 100644 --- a/mex/sources/riccati_update/mexFunction.f08 +++ b/mex/sources/riccati_update/mexFunction.f08 @@ -36,7 +36,7 @@ subroutine mexFunction(nlhs, plhs, nrhs, prhs) bind(c, name='mexFunction') real(real64), dimension(:,:), pointer, contiguous :: P, T, K, Z, Q, Pnew real(real64), dimension(:,:), allocatable :: tmp1, tmp2 - integer :: i, j, n, r + integer :: i, n, r character(kind=c_char, len=2) :: num2str ! 0. Checking the consistency and validity of input arguments -- GitLab