下面的代碼使用MKL函數庫中的scal計算一個標量和向量的乘積 program MKL_dotcuse blas95implicit noneinteger, parameter :: n = 10real(kind=8) :: x(n), a = 2.d0call random_seed()call random_number(x)print*, 'before...'print*, xcall scal(x, a)print*, 'after'print*, xend program MKL_dotc執行結果如下：before...0.961341174186205 0.694955912451842 0.3527336614124290.717484595247632 0.784130511642941 0.1609444104508840.256570282303017 0.979919252122348 0.6653418743768970.858410968894571after1.92268234837241 1.38991182490368 0.7054673228248581.43496919049526 1.56826102328588 0.3218888209017680.513140564606034 1.95983850424470 1.330683748753791.71682193778914

?

總結

以上是生活随笔為你收集整理的fortran使用MKL函数库中的scal计算一个标量和向量的乘积的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。