stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add dpotrf to Fortran 2008 BLAS/LAPACK bindings

time-shift
Sébastien Villemot 2020-07-30 15:12:43 +02:00
parent ea18431230
commit 3f53a94981
No known key found for this signature in database
GPG Key ID: 2CECE9350ECEBE4A
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mex/sources/blas_lapack.F08
View File

@ -56,7 +56,7 @@ module lapack
alphar, alphai, beta, vsl, ldvsl, vsr, ldvsr, work, lwork, bwork, &
info)
import :: blint, bllog, real64
character :: jobvsl, jobvsr, sort
character, intent(in) :: jobvsl, jobvsr, sort
interface
logical(bllog) function selctg(alphar, alphai, beta)
import :: bllog, real64
@ -70,4 +70,14 @@ module lapack
integer(blint), intent(out) :: sdim, info
end subroutine dgges
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