Fortran MEX interface: minor fix for interface to dgemv

2020-10-21 18:17:41 +02:00 · 2020-10-21 18:17:41 +02:00 · 4e16ffcda2
parent 6f415dff61
commit 4e16ffcda2
1 changed files with 1 additions and 1 deletions
--- a/mex/sources/blas_lapack.F08
+++ b/mex/sources/blas_lapack.F08
@ -29,7 +29,7 @@ module blas
  interface
     subroutine dgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
       import :: blint, real64
-       character :: trans
+       character, intent(in) :: trans
       integer(blint), intent(in) :: m, n, lda, incx, incy
       real(real64), dimension(*), intent(in) :: a, x
       real(real64), intent(in) :: alpha, beta