| 查看: 1252 | 回复: 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论文润色/翻译怎么收费?
已经有291人回复
-
2026-CJ开始申报了
已经有1人回复
-
西安电子科学大学杭州研究院刘丽香教授招收智能多模态传感器和微型储能器件方向博士
已经有10人回复
-
重庆交通大学光子学微结构与器件课题组招收2026年硕士研究生信息
已经有0人回复
-
一志愿郑大材料学硕298分，求调剂
已经有5人回复
小欢
金虫 (正式写手)
- 应助: 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
10