| 查看: 1317 | 回复: 7 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
kuangrenabc金虫 (小有名气)
|
[交流]
【求助】懂Fortran并行计算的高手请进 已有3人参与
|
||
|
本人初次接触Fortran，想学习Fortran并行计算。 我安装网上的说明，安装了并行计算库MPICH2，并且对Visual Fortran 6.5 环境作了设置。经调试一些小的程序发现没有问题。但是运行IMSL上的含有并行计算的实例，就发现总出问题，请高手指点。 这个是IMSL中的一个实例，代码如下： program Parallel_Example_1 use imsl use linear_operators use mpi_setup_int use mpi implicit none integer, parameter :: n=32, nr=4 real(kind(1e0)) :: one=1e0 real(kind(1e0)), dimension(n,n,nr) :: A, b, x, err(nr) MP_NPROCS=MP_SETUP() ! Generate random matrices for A and b: A = rand(A) b = rand(b) ! Compute the box solution matrix of Ax = b. x = A .ix. b ! Check the results. err = norm(b - (A .x. x))/(norm(A)*norm(x)+norm(b)) if (ALL(err <= sqrt(epsilon(one))) .and. MP_RANK == 0) & write (*,*) 'Parallel Example 1 is correct.' ! See to any error messages and quit MPI. MP_NPROCS=MP_SETUP('Final') end program Parallel_Example_1 运行的结果是： *** FATAL ERROR 1 from MPI_INIT. A CALL was excuted using the IMSL *** dummy routine. Parallel performance needs a functioning MPI *** library 请高手看后指点一二，谢谢。 [ Last edited by javeey on 2010-5-19 at 00:01 ] |
回复此楼» 猜你喜欢
今天系统多次维护，明天很可能放榜！
已经有5人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有74人回复
-
岩土工程学报什么时候才能终审完呐
已经有4人回复
-
时间戳又变了8-15
已经有25人回复
-
2027广东省杰青
已经有6人回复
-
快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。
已经有3人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有9人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有26人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有16人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- JAP状态看不懂了 怎么第一次投稿就遇见这样的事情
已经有6人回复
- 昆虫RNA 提取！电泳图，看不懂！请高手指点！
已经有9人回复
- 我是金属材料专业的新人，有很多金属固态相变的问题不懂，望高手指教
已经有24人回复
- 首届【唱我最想唱的外语歌曲】xxx(the song I want to sing for u)比赛
已经有141人回复
- 【交流】电解抛光的高手来交流一下啊
已经有31人回复
- 【求助】SAS编程出了错，看不懂，请教高手
已经有8人回复
- 【求助】怎样看懂质谱图
已经有21人回复
kuangrenabc
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 523.5
- 红花: 1
- 帖子: 80
- 在线: 15小时
- 虫号: 968081
- 注册: 2010-03-11
- 性别: GG
- 专业: 零件加工制造
8楼2010-05-26 19:56:52
onesupeng
金虫 (职业作家)
- 数学EPI: 17
- 应助: 256 (大学生)
- 贵宾: 1.36
- 金币: 2336.2
- 散金: 9236
- 红花: 92
- 帖子: 4583
- 在线: 1303.8小时
- 虫号: 394701
- 注册: 2007-06-07
- 专业: 流体力学
2楼2010-05-18 22:40:50
kuangrenabc
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 523.5
- 红花: 1
- 帖子: 80
- 在线: 15小时
- 虫号: 968081
- 注册: 2010-03-11
- 性别: GG
- 专业: 零件加工制造
3楼2010-05-18 22:46:52
onesupeng
金虫 (职业作家)
- 数学EPI: 17
- 应助: 256 (大学生)
- 贵宾: 1.36
- 金币: 2336.2
- 散金: 9236
- 红花: 92
- 帖子: 4583
- 在线: 1303.8小时
- 虫号: 394701
- 注册: 2007-06-07
- 专业: 流体力学
4楼2010-05-19 02:49:10
25