From 45181cfd9721a99b312a3309bf3b9be8d778a0de Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= <sebastien@dynare.org>
Date: Thu, 3 Jun 2021 14:55:58 +0200
Subject: [PATCH] Fortran MEX: add interface for dgemm
---
mex/sources/blas_lapack.F08 | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/mex/sources/blas_lapack.F08 b/mex/sources/blas_lapack.F08
index f2a1558b73..f7f181f48d 100644
--- a/mex/sources/blas_lapack.F08
+++ b/mex/sources/blas_lapack.F08
@@ -1,4 +1,4 @@
-! Copyright © 2019-2020 Dynare Team
+! Copyright © 2019-2021 Dynare Team
!
! This file is part of Dynare.
!
@@ -26,6 +26,17 @@ module blas
integer, parameter :: bllog = 4 ! Logical kind, gfortran-specific
#endif
+ interface
+ subroutine dgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
+ import :: blint, real64
+ character, intent(in) :: transa, transb
+ integer(blint), intent(in) :: m, n, k, lda, ldb, ldc
+ real(real64), dimension(*), intent(in) :: a, b
+ real(real64), intent(in) :: alpha, beta
+ real(real64), dimension(*), intent(inout) :: c
+ end subroutine dgemm
+ end interface
+
interface
subroutine dgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
import :: blint, real64
--
GitLab