external lapack functions marked as external

2016-04-26 09:36:27 +02:00 · 2016-04-26 09:36:27 +02:00 · aae41e0479
parent f8e50cc304
commit aae41e0479
1 changed files with 3 additions and 0 deletions
--- 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)