diff options
Diffstat (limited to 'src/lapack.F90')
| -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) |