Fortran MEX: add missing “implicit none” in blas and lapack modules
parent
2a1183e1fa
commit
3a2335975a
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue