| 查看: 1250 | 回复: 6 | ||||
| 当前主题已经存档。 | ||||
ymyang008捐助贵宾 (小有名气)
|
[交流]
【求助】linux集群，如何自编FORTRAN 程序实现并行
|
|||
|
在fortran 程序中如何编程实现并行运算 [ Last edited by zzgyb on 2008-5-7 at 00:01 ] |
回复此楼» 收录本帖的淘帖专辑推荐
 第一性原理 |
» 猜你喜欢
德国亥姆霍兹Hereon中心招收两位医用镁合金腐蚀与LPSO相变方向2026公派博士生
已经有0人回复
-
推荐一款可以AI辅助写作的Latex编辑器SmartLatexEditor，超级好用，推荐试试
已经有11人回复
-
物理学I论文润色/翻译怎么收费?
已经有226人回复
-
2026-CJ开始申报了
已经有1人回复
小欢
金虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 1062.9
- 散金: 2060
- 红花: 8
- 帖子: 497
- 在线: 391.5小时
- 虫号: 301247
- 注册: 2006-11-26
- 专业: 有机分子功能材料化学
2楼2008-05-09 20:46:14
wxjbuilder
木虫 (知名作家)
- 计算强帖: 4
- 应助: 1 (幼儿园)
- 贵宾: 0.05
- 金币: 2986.4
- 散金: 1761
- 红花: 2
- 沙发: 1
- 帖子: 5392
- 在线: 273.2小时
- 虫号: 442356
- 注册: 2007-10-27
- 性别: GG
- 专业: 理论和计算化学
3楼2008-05-09 21:03:33
abinitio
版主 (著名写手)
- 应助: 221 (大学生)
- 贵宾: 0.093
- 金币: 7365.2
- 散金: 3917
- 红花: 57
- 帖子: 1317
- 在线: 485.2小时
- 虫号: 368545
- 注册: 2007-05-11
- 性别: GG
- 专业: 凝聚态物性I:结构、力学和
- 管辖: 分子模拟
4楼2008-05-09 21:40:49
jove1782
木虫 (正式写手)
小木虫风雅协会代理秘书长
- 应助: 3 (幼儿园)
- 贵宾: 0.006
- 金币: 5540.8
- 散金: 27
- 红花: 3
- 帖子: 982
- 在线: 134.9小时
- 虫号: 570051
- 注册: 2008-06-06
- 性别: GG
- 专业: 电化学
5楼2008-06-21 21:51:56
wudai
木虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 2245.8
- 散金: 250
- 红花: 1
- 帖子: 44
- 在线: 231.6小时
- 虫号: 344845
- 注册: 2007-04-14
- 性别: GG
- 专业: 凝聚态物理
★ ★ ★ ★
spur(金币+4,VIP+0):many thanks!
lei0736(金币+0,VIP+0):十大“耐思”版主评选欢迎参与投票 http://emuch.net/bbs/viewthread.php?tid=845527&fpage=1
spur(金币+4,VIP+0):many thanks!
lei0736(金币+0,VIP+0):十大“耐思”版主评选欢迎参与投票 http://emuch.net/bbs/viewthread.php?tid=845527&fpage=1
|
要实现并行计算，需要安装并行工具的，如 MPICH， HP-MPI 等，他们都是MPI的具体实现，关于什么是MPI，及MPICH 请自己百度一下吧。 MPICH是免费的，可以到官方下载http://www.mcs.anl.gov/research/projects/mpich2/ ，现在已经发展到MPICH2了，在MPICH2中实现了对 C/C++,fortran77,fortran90的支持。 怎么在linux和windows下安装MPICH，以及如何配置你的编译器的并行环境，百度里多的是，我的博客里也有，写的都很详细了。 下面就是一个最简单的 helloworld 并行程序，fortran77版本的 ================================================== program main include 'mpif.h' implicit none integer i,ierr,rc,namelen,num,l,m character(MPI_MAX_PROCESSOR_NAME) name call MPI_INIT(ierr) call MPI_COMM_RANK(MPI_COMM_WORLD,i,ierr) call MPI_COMM_SIZE(MPI_COMM_WORLD,num,ierr) call MPI_GET_PROCESSOR_NAME(name,namelen,ierr) write(*,"('hello world ! processor',I2,' of ',I1,' on ',20A)"  i,num,namecall MPI_FINALIZE(rc) end program main ================================================== 编译连接后，用命令行执行： mpirun -np 6 ./a.out 这样就启动了6个进程执行你的程序。至于在集群环境下，一般要写一个mpd.hosts文件，里面写上要起动的节点，然后最好在主节点上提交任务。 就写这么多吧，楼主发帖已经一月有余，不知楼主还能否看到我的回复了，呵呵 [ Last edited by wudai on 2008-6-22 at 10:55 ] |
6楼2008-06-22 10:50:16
madonion
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 589.4
- 帖子: 307
- 在线: 26.3小时
- 虫号: 251164
- 注册: 2006-05-14
- 性别: GG
- 专业: 化学反应工程
7楼2008-06-22 16:12:09
