From 3a2335975aecc126d4b0caf606625ab115602d3d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= <sebastien@dynare.org>
Date: Fri, 4 Jun 2021 11:36:12 +0200
Subject: [PATCH] =?UTF-8?q?Fortran=20MEX:=20add=20missing=20=E2=80=9Cimpli?=
 =?UTF-8?q?cit=20none=E2=80=9D=20in=20blas=20and=20lapack=20modules?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 mex/sources/blas_lapack.F08 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/mex/sources/blas_lapack.F08 b/mex/sources/blas_lapack.F08
index f7f181f48..8db606a26 100644
--- a/mex/sources/blas_lapack.F08
+++ b/mex/sources/blas_lapack.F08
@@ -17,6 +17,7 @@
 
 module blas
   use iso_fortran_env
+  implicit none
 
 #if defined(MATLAB_MEX_FILE) && __SIZEOF_POINTER__ == 8
   integer, parameter :: blint = int64
@@ -51,6 +52,7 @@ end module blas
 
 module lapack
   use blas
+  implicit none
 
   interface
      subroutine dgesv(n, nrhs, a, lda, ipiv, b, ldb, info)