Skip to content
Snippets Groups Projects
Verified Commit e9ecce82 authored by Sébastien Villemot's avatar Sébastien Villemot
Browse files

ricatti_update MEX: remove unused variable

parent 3bf40d92
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
mex/sources/riccati_update/mexFunction.f08
+ 1
− 1
View file @ e9ecce82
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment