| 查看: 1284 | 回复: 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 ] |
回复此楼» 猜你喜欢
fileCode有新解读？
已经有13人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有3人回复
-
基金中了
已经有14人回复
-
关于filecode
已经有7人回复
-
娱乐
已经有6人回复
-
化学口download_prp&fileCode的固定段好像这几天一直没变，有变的大神么？
已经有4人回复
-
关于代码变化问题，想知道的进来
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- JAP状态看不懂了 怎么第一次投稿就遇见这样的事情
已经有6人回复
- 昆虫RNA 提取！电泳图，看不懂！请高手指点！
已经有9人回复
- 我是金属材料专业的新人，有很多金属固态相变的问题不懂，望高手指教
已经有24人回复
- 首届【唱我最想唱的外语歌曲】xxx(the song I want to sing for u)比赛
已经有141人回复
- 【交流】电解抛光的高手来交流一下啊
已经有31人回复
- 【求助】SAS编程出了错，看不懂，请教高手
已经有8人回复
- 【求助】怎样看懂质谱图
已经有21人回复
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
再见北极雪
木虫 (著名写手)
快乐家族之打酱油的小伙计
- 数学EPI: 1
- 应助: 0 (幼儿园)
- 金币: 3957.8
- 红花: 1
- 帖子: 1155
- 在线: 163小时
- 虫号: 917802
- 注册: 2009-12-01
- 专业: 地震学
5楼2010-05-19 10:04:28
kuangrenabc
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 523.5
- 红花: 1
- 帖子: 80
- 在线: 15小时
- 虫号: 968081
- 注册: 2010-03-11
- 性别: GG
- 专业: 零件加工制造
6楼2010-05-19 12:44:58
onesupeng
金虫 (职业作家)
- 数学EPI: 17
- 应助: 256 (大学生)
- 贵宾: 1.36
- 金币: 2336.2
- 散金: 9236
- 红花: 92
- 帖子: 4583
- 在线: 1303.8小时
- 虫号: 394701
- 注册: 2007-06-07
- 专业: 流体力学
7楼2010-05-19 13:25:02
kuangrenabc
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 523.5
- 红花: 1
- 帖子: 80
- 在线: 15小时
- 虫号: 968081
- 注册: 2010-03-11
- 性别: GG
- 专业: 零件加工制造
8楼2010-05-26 19:56:52
100