下面的代码使用MKL函数库计算了共轭向量与另一个向量的点积
program MKL_dotc
use blas95
implicit none
integer, parameter :: n = 10
real(kind=8) :: x1(n), x2(n), y1(n), y2(n)
complex(kind=8) :: x(n), y(n), z
call random_seed()
call random_number(x1)
call random_number(x2)
x = cmplx(x1,x2)
call random_number(y1)
call random_number(y2)
y = cmplx(y1,y2)
z = dotc(x, y)
print*, '计算共轭向量与另一个向量的点积......'
print*, z
end program MKL_dotc