调用MKL函数无法解析

vvt

代码发出来看看吧。应该是没有 use 模块。

编译错误，要么是没有 use，要么是没有设置好 include。



理解这 4 个步骤，一切函数库的使用，都是这 4 个操作。

vvt

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn
  call Test_sdot()
End Program www_fcode_cn
  
Subroutine Test_sdot!矢量点乘
  use BLAS95 !// 必须 use 某个module
  implicit none
  real x(10), y(10), res !// sdot 和 dot 无需声明
  integer n, incx, incy, i
  !external dot // 同上
  n = 5
  incx = 2
  incy = 1
  do i = 1, 10
    x(i) = 1
    y(i) = 1
  end do
  res = dot ( x,  y ) !// F95 的接口很简单，两个参数既可
  print*,"SDOT=",res 
  res=dot(x,y)
  write(*,*) res
End subroutine

另外，你可能需要设置
项目—属性—Linker-Input-Additional Dependencies 输入 mkl_blas95.lib

vvt

1.那篇帖子是针对各种函数库进行的，是说的使用所有函数库的“通则”，不可能说得很详细。
2.帮助里提到：

Include Files
Fortran: mkl.fi
Fortran 95: blas.f90
C: mkl.h

所以，需要 use blas95，如果你不知道具体是那个 module，可以去MKL安装目录的 include 文件夹去找，看有几个 .mod 文件。
加载 mkl_blas95.lib 就去安装目录的 lib 里找。
3.同上。
4.F77接口和F95接口不要混用。
5.是否依赖，我也不确定，应该是不依赖的，你可以用 Dependency Walker 查看一下。具体可参考 http://www.fcode.cn/guide-53-1.html

vvt

两个问题：
1.如果你既使用了 mkl_blas95.lib，又使用了 mkl_lapack95.lib，请在项目—属性—Linker-Input-Additional Dependencies 输入 ：“mkl_blas95.lib mkl_lapack95.lib”

2.你对 getrf 的使用不对。ipiv 必须是数组，而不能是单变量。integer::ipiv(3)=3 既可

vvt

1. F77 语法本身，对接口的检查就不严格。建议使用 F95 接口
2. 是的，只有第一个参数是必选的。可选参数的问题，可以看看彭叔叔的书。
   call getrf(a)
   call getrf(a,info=info)
3. 我不知道，我用的 MKL 版本里没有。你看看帮助吧。