From 35d3fe85630895a4ae5ea02f944db946ef97a26e Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7>
Date: Sun, 27 Feb 2005 13:11:51 +0000
Subject: Add lapack interface for getrf

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@20 b716e942-a2de-43ad-8f52-f3dfe468e4e7
---
 src/lapack.F90 | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/src/lapack.F90 b/src/lapack.F90
index 58e64e1..efe807b 100644
--- a/src/lapack.F90
+++ b/src/lapack.F90
@@ -136,6 +136,27 @@ module lapack
   ! pb (symmetric positive banded), po (symmetric positive),
   ! pp (symmetric positive packed), pt (symmetric positive tridiagonal),
   ! sp (symmetric packed), sy (symmetric)
+   
+  interface getrf
+     subroutine sgetrf (m, n, a, lda, ipiv, info)
+       implicit none
+       integer m
+       integer n
+       integer lda
+       real    a(lda,n)
+       integer ipiv(n)
+       integer info
+     end subroutine sgetrf
+     subroutine dgetrf (m, n, a, lda, ipiv, info)
+       implicit none
+       integer          m
+       integer          n
+       integer          lda
+       double precision a(lda,n)
+       integer          ipiv(n)
+       integer          info
+     end subroutine dgetrf
+  end interface
   
   interface sytrf
      subroutine ssytrf (m, n, a, lda, ipiv, info)
-- 
cgit v1.2.3