注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

激进的猫

心似浮云常自在,意如流水任东西

 
 
 

日志

 
 

[Fortran学习笔记] Intel Math Kernel Library应用实例2  

2016-02-19 21:49:39|  分类: 网络学堂 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
        这里列举一个简单的Intel Math Kernel Library应用实例。实际计算过程中调用著名的LAPACK95函数库,使用LAPACK95库的gesv子例程来解线方程组。配置编译器的编译环境等步骤参见应用实例1等文。
        编写程序时在程序内通过use语句对函数库实施调用,语法为“use lapack95”。
        源程序如下:
               program Lapack_Linear_Equations
               use lapack95                                         ! 调用Lapack库
               implicit none
               integer N                                                ! 变量声明
               real,allocatable::A(:,:),B(:)                      ! 申明延迟数组

               read*,N                                                   ! 线性方程组系数矩阵的秩
               allocate(A(N,N))                                     ! 定义延迟数组
               allocate(B(N))
               read*,A,B                                                ! 输入增广矩阵;注意Fortran按列输入原则
   
               call gesv(A,B)                                         ! 调用Lapack库的gesv子例程
               print*,B                                                   ! 输出解
   
               end program Lapack_Linear_Equations

        计算一个三阶线性方程组            
                      [Fortran学习笔记] Intel Math Kernel Library应用实例2 - 激进的猫 - 激进的猫
         利用消元法求得解为
                       [Fortran学习笔记] Intel Math Kernel Library应用实例2 - 激进的猫 - 激进的猫
          利用Lapack库,Fortran求得解为:
                         [Fortran学习笔记] Intel Math Kernel Library应用实例2 - 激进的猫 - 激进的猫
  评论这张
 
阅读(374)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017