diff --git a/mex/sources/blas_lapack.F08 b/mex/sources/blas_lapack.F08
index a93aff118b738bfc23d200e9cd3ecbe7dbdda30a..dfbff5cb8e0228f52ff74423d17a62e085dd8cdb 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