Add dpotrf to Fortran 2008 BLAS/LAPACK bindings
parent
ea18431230
commit
3f53a94981
|
@ -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
|
||||||
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
|
||||||
|
|
Loading…
Reference in New Issue