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

Fortran MEX: add missing “implicit none” in blas and lapack modules

time-shift
Sébastien Villemot 2021-06-04 11:36:12 +02:00
parent 2a1183e1fa
commit 3a2335975a
No known key found for this signature in database
GPG Key ID: 2CECE9350ECEBE4A
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mex/sources/blas_lapack.F08
View File

@ -17,6 +17,7 @@
module blas module blas
use iso_fortran_env use iso_fortran_env
implicit none
#if defined(MATLAB_MEX_FILE) && __SIZEOF_POINTER__ == 8 #if defined(MATLAB_MEX_FILE) && __SIZEOF_POINTER__ == 8
integer, parameter :: blint = int64 integer, parameter :: blint = int64
@ -51,6 +52,7 @@ end module blas
module lapack module lapack
use blas use blas
implicit none
interface interface
subroutine dgesv(n, nrhs, a, lda, ipiv, b, ldb, info) subroutine dgesv(n, nrhs, a, lda, ipiv, b, ldb, info)