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 a93aff118..dfbff5cb8 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