From 3f53a94981900a910c6a7c39583e6b740b9f3a0d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= <sebastien@dynare.org>
Date: Thu, 30 Jul 2020 15:12:43 +0200
Subject: [PATCH] Add dpotrf to Fortran 2008 BLAS/LAPACK bindings
---
mex/sources/blas_lapack.F08 | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/mex/sources/blas_lapack.F08 b/mex/sources/blas_lapack.F08
index a93aff118b..dfbff5cb8e 100644
--- a/mex/sources/blas_lapack.F08
+++ b/mex/sources/blas_lapack.F08
@@ -56,7 +56,7 @@ module lapack
alphar, alphai, beta, vsl, ldvsl, vsr, ldvsr, work, lwork, bwork, &
info)
import :: blint, bllog, real64
- character :: jobvsl, jobvsr, sort
+ character, intent(in) :: jobvsl, jobvsr, sort
interface
logical(bllog) function selctg(alphar, alphai, beta)
import :: bllog, real64
@@ -70,4 +70,14 @@ module lapack
integer(blint), intent(out) :: sdim, info
end subroutine dgges
end interface
+
+ interface
+ subroutine dpotrf(uplo, n, a, lda, info)
+ import :: blint, real64
+ character, intent(in) :: uplo
+ integer(blint), intent(in) :: n, lda
+ real(real64), dimension(*), intent(inout) :: a
+ integer(blint), intent(out) :: info
+ end subroutine dpotrf
+ end interface
end module lapack
--
GitLab