From 4e16ffcda2f4bce6bb40ab86005468c75802f21f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= <sebastien@dynare.org>
Date: Wed, 21 Oct 2020 18:17:41 +0200
Subject: [PATCH] Fortran MEX interface: minor fix for interface to dgemv
---
mex/sources/blas_lapack.F08 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/mex/sources/blas_lapack.F08 b/mex/sources/blas_lapack.F08
index dfbff5cb8e..f2a1558b73 100644
--- a/mex/sources/blas_lapack.F08
+++ b/mex/sources/blas_lapack.F08
@@ -29,7 +29,7 @@ module blas
interface
subroutine dgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
import :: blint, real64
- character :: trans
+ character, intent(in) :: trans
integer(blint), intent(in) :: m, n, lda, incx, incy
real(real64), dimension(*), intent(in) :: a, x
real(real64), intent(in) :: alpha, beta
--
GitLab