fortran使用MKL函数库中的scal计算一个标量和向量的乘积

最新推荐文章于 2024-09-19 18:52:24 发布

原创最新推荐文章于 2024-09-19 18:52:24 发布 · 420 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#fortran

FortranNote 同时被 2 个专栏收录

81 篇文章

订阅专栏

MKL函数库

25 篇文章

订阅专栏

本文展示了一个使用MKL函数库中的scal函数计算标量与向量乘积的Fortran程序示例。程序首先初始化了一个包含10个元素的向量，并随机填充了这些元素。然后，使用scal函数将向量的每个元素乘以标量2，展示了向量在乘法前后的变化。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

下面的代码使用MKL函数库中的scal计算一个标量和向量的乘积
program MKL_dotc
        use blas95
        implicit none
        integer, parameter :: n = 10
        real(kind=8) :: x(n), a = 2.d0
        
        call random_seed()
        call random_number(x)
        
        print*, 'before...'
        print*, x
        call scal(x, a)
        print*, 'after'
        print*, x
        
end program MKL_dotc

执行结果如下：
 before...
  0.961341174186205       0.694955912451842       0.352733661412429
  0.717484595247632       0.784130511642941       0.160944410450884
  0.256570282303017       0.979919252122348       0.665341874376897
  0.858410968894571
 after
   1.92268234837241        1.38991182490368       0.705467322824858
   1.43496919049526        1.56826102328588       0.321888820901768
  0.513140564606034        1.95983850424470        1.33068374875379
   1.71682193778914