| 查看: 987 | 回复: 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 ] |
回复此楼» 猜你喜欢
博士延得我，科研能力直往上蹿
已经有7人回复
-
退学或坚持读
已经有27人回复
-
面上基金申报没有其他的参与者成吗
已经有5人回复
-
有70后还继续奋斗在职场上的吗？
已经有5人回复
-
遇见不省心的家人很难过
已经有22人回复
-
多组分精馏求助
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
- 散金: 9224
- 红花: 92
- 帖子: 4583
- 在线: 1303.8小时
- 虫号: 394701
- 注册: 2007-06-07
- 专业: 流体力学
7楼2010-05-19 13:25:02
onesupeng
金虫 (职业作家)
- 数学EPI: 17
- 应助: 256 (大学生)
- 贵宾: 1.36
- 金币: 2336.2
- 散金: 9224
- 红花: 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
- 散金: 9224
- 红花: 92
- 帖子: 4583
- 在线: 1303.8小时
- 虫号: 394701
- 注册: 2007-06-07
- 专业: 流体力学
4楼2010-05-19 02:49:10