From a7203095db4eb0c35955873b385f258b0a9e0db9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= Date: Tue, 8 Jun 2021 18:04:28 +0200 Subject: [PATCH] =?UTF-8?q?A=5Ftimes=5FB=5Fkronecker=5FC=20MEX:=20don?= =?UTF-8?q?=E2=80=99t=20bother=20adding=20=E2=80=9Conly=E2=80=9D=20clauses?= =?UTF-8?q?=20to=20=E2=80=9Cuse=E2=80=9D=20directive?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- mex/sources/kronecker/A_times_B_kronecker_C.f08 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mex/sources/kronecker/A_times_B_kronecker_C.f08 b/mex/sources/kronecker/A_times_B_kronecker_C.f08 index cbf0336e0..3de0d8842 100644 --- a/mex/sources/kronecker/A_times_B_kronecker_C.f08 +++ b/mex/sources/kronecker/A_times_B_kronecker_C.f08 @@ -19,8 +19,8 @@ ! along with Dynare. If not, see . subroutine mexFunction(nlhs, plhs, nrhs, prhs) bind(c, name='mexFunction') - use iso_fortran_env, only: real64 - use iso_c_binding, only: c_int + use iso_fortran_env + use iso_c_binding use matlab_mex use blas implicit none