设为首页收藏本站如何选择编译器？在线F77转F90 繁体浏览

切换到窄版开启辅助访问

Fortran Coder»论坛 › 研讨区 › Fortran算法研究 › Fortran利用linpack包求解实系数线性方程组 ...

返回列表发新帖

查看: 2206|回复: 0

上一主题

下一主题

[线性代数] Fortran利用linpack包求解实系数线性方程组

6 帖子	5 主题	0 精华

F 币: 87 元
贡献: 36 点

发消息

电梯直达

跳转到指定楼层

楼主

发表于 2022-11-12 09:08:20 | 只看该作者 |只看大图回帖奖励

回帖奖励

|倒序浏览 |阅读模式

本帖最后由 tianshui1001 于 2022-12-11 19:25 编辑

首先在如下网址下载需要的源代码

https://people.math.sc.edu/Burka ... ck_d/linpack_d.html

测试双精度浮点数 linpack_d 程序包
------------------------------
主程序为：linpack_d_test.f90

将如下5个文件添加到当前工程

blas0.f90
blas1_d.f90
blas2_d.f90
blas3_d.f90
linpack_d.f90

附件是利用 lapack 包求解实系数线性方程组的例子

linpack_d_test.jpg (284.75 KB, 下载次数: 157)

Real-lapack.rar

30.75 KB, 下载次数: 3

分享到: 微信

收藏0 点赞0 点踩0

回复

使用道具举报

返回列表发新帖

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-22 11:50

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表