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

本文展示了一个使用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

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值