From aae41e04795c6418fdb647ee3c5595acf47670a6 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Tue, 26 Apr 2016 09:36:27 +0200
Subject: [PATCH] external lapack functions marked as external

---
 code/math.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/code/math.f90 b/code/math.f90
index 624990ac4..9ad98df9e 100644
--- a/code/math.f90
+++ b/code/math.f90
@@ -839,6 +839,9 @@ subroutine math_invert(myDim,A, InvA, error)
  
  real(pReal), dimension(myDim,myDim), intent(out) :: invA
  logical, intent(out) :: error
+ external :: &
+  dgetrf, &
+  dgetri
  
  invA = A 
  call dgetrf(myDim,myDim,invA,myDim,ipiv,ierr)