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