调用MKL函数无法解析

FLY · 发表于 2014-7-23 06:48:09

vvt 发表于 2014-7-23 06:40
代码发出来看看吧。应该是没有 use 模块。

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

不是直接就能用么，需要USE模块。

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

Subroutine Test_sdot!矢量点乘
    implicit none
    real x(10), y(10), sdot, res
    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 = sdot (n, x, incx, y, incy)
    print*,"SDOT=",res 
    res=dot(x,y)
    write(*,*) res
End subroutine

vvt · 发表于 2014-7-23 06:40:52

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

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

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

FLY · 发表于 2014-7-23 00:13:16

珊瑚虫发表于 2014-7-22 22:41
请参考
http://fcode.cn/guide-58-1.html

还是不行啊，亲。错误如下：
error #6404: This name does not have a type, and must have an explicit type. [DOT]
dot函数在MKL手册中第59页，fortran95接口，还有两个同样功能的函数sdot和ddot,可以使用，但是是fortran77接口。