| 查看: 1318 | 回复: 6 | ||||
| 当前主题已经存档。 | ||||
ymyang008捐助贵宾 (小有名气)
|
[交流]
【求助】linux集群，如何自编FORTRAN 程序实现并行
|
|||
|
在fortran 程序中如何编程实现并行运算 [ Last edited by zzgyb on 2008-5-7 at 00:01 ] |
回复此楼» 收录本帖的淘帖专辑推荐
 第一性原理 |
» 猜你喜欢
0702一志愿吉大B区求调剂 本科期间发表一篇Sci
已经有3人回复
-
基底STO,薄膜SRO，XRD里面的振荡，是laue震荡还是kiessig振荡? 怎么判断？
已经有2人回复
-
物理学I论文润色/翻译怎么收费?
已经有191人回复
-
B区学生调剂-兰州交通大学材料科学与工程学院
已经有12人回复
-
山西大同大学物理学专业还有调剂名额，欢迎调剂！
已经有13人回复
-
桂林理工大学物理学专业招收调剂
已经有13人回复
-
VASP 的一组 GPU / CPU 基准测试记录
已经有0人回复
-
美国顶级物理期刊《应用物理快报》（APL）的编辑欺骗和歧视作者及AIP的官僚主义傲慢
已经有7人回复
-
津理工大学晶体材料全国重点实验室刘红军教授课题组招收博士生一名
已经有0人回复
-
【原创讨论】从电子约束到物质编辑：一套可迭代的环形磁场科技树
已经有0人回复
小欢
金虫 (正式写手)
- 应助: 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
