Unverified Commit 3f53a949 authored by Sébastien Villemot's avatar Sébastien Villemot
Browse files

Add dpotrf to Fortran 2008 BLAS/LAPACK bindings

parent ea184312
...@@ -56,7 +56,7 @@ module lapack ...@@ -56,7 +56,7 @@ module lapack
alphar, alphai, beta, vsl, ldvsl, vsr, ldvsr, work, lwork, bwork, & alphar, alphai, beta, vsl, ldvsl, vsr, ldvsr, work, lwork, bwork, &
info) info)
import :: blint, bllog, real64 import :: blint, bllog, real64
character :: jobvsl, jobvsr, sort character, intent(in) :: jobvsl, jobvsr, sort
interface interface
logical(bllog) function selctg(alphar, alphai, beta) logical(bllog) function selctg(alphar, alphai, beta)
import :: bllog, real64 import :: bllog, real64
...@@ -70,4 +70,14 @@ module lapack ...@@ -70,4 +70,14 @@ module lapack
integer(blint), intent(out) :: sdim, info integer(blint), intent(out) :: sdim, info
end subroutine dgges end subroutine dgges
end interface end interface
interface
subroutine dpotrf(uplo, n, a, lda, info)
import :: blint, real64
character, intent(in) :: uplo
integer(blint), intent(in) :: n, lda
real(real64), dimension(*), intent(inout) :: a
integer(blint), intent(out) :: info
end subroutine dpotrf
end interface
end module lapack end module lapack
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment