diff options
| author | schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7> | 2005-02-27 13:11:51 +0000 |
|---|---|---|
| committer | schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7> | 2005-02-27 13:11:51 +0000 |
| commit | 35d3fe85630895a4ae5ea02f944db946ef97a26e (patch) | |
| tree | f93fe5ea189e687ae5d4b93eb280d51b37e5a2ca | |
| parent | 1496881ca2aaf851b69b4112cd3c1397aa5ee657 (diff) | |
Add lapack interface for getrf
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@20 b716e942-a2de-43ad-8f52-f3dfe468e4e7
| -rw-r--r-- | src/lapack.F90 | 21 |
1 files changed, 21 insertions, 0 deletions
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) |