| 7 | 1/1 | 返回列表 |
| 查看: 1253 | 回復(fù): 6 | ||||
| 當(dāng)前主題已經(jīng)存檔。 | ||||
ymyang008捐助貴賓 (小有名氣)
|
[交流]
【求助】linux集群,如何自編FORTRAN 程序?qū)崿F(xiàn)并行
|
|||
|
在fortran 程序中如何編程實(shí)現(xiàn)并行運(yùn)算 [ Last edited by zzgyb on 2008-5-7 at 00:01 ] |
第一性原理 |
金蟲 (正式寫手)
木蟲 (知名作家)

版主 (著名寫手)
木蟲 (正式寫手)
小木蟲風(fēng)雅協(xié)會(huì)代理秘書長

木蟲 (初入文壇)
|
要實(shí)現(xiàn)并行計(jì)算,需要安裝并行工具的,如 MPICH, HP-MPI 等,他們都是MPI的具體實(shí)現(xiàn),關(guān)于什么是MPI,及MPICH 請自己百度一下吧。 MPICH是免費(fèi)的,可以到官方下載http://www.mcs.anl.gov/research/projects/mpich2/ ,現(xiàn)在已經(jīng)發(fā)展到MPICH2了,在MPICH2中實(shí)現(xiàn)了對 C/C++,fortran77,fortran90的支持。 怎么在linux和windows下安裝MPICH,以及如何配置你的編譯器的并行環(huán)境,百度里多的是,我的博客里也有,寫的都很詳細(xì)了。 下面就是一個(gè)最簡單的 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 ================================================== 編譯連接后,用命令行執(zhí)行: mpirun -np 6 ./a.out 這樣就啟動(dòng)了6個(gè)進(jìn)程執(zhí)行你的程序。至于在集群環(huán)境下,一般要寫一個(gè)mpd.hosts文件,里面寫上要起動(dòng)的節(jié)點(diǎn),然后最好在主節(jié)點(diǎn)上提交任務(wù)。 就寫這么多吧,樓主發(fā)帖已經(jīng)一月有余,不知樓主還能否看到我的回復(fù)了,呵呵 [ Last edited by wudai on 2008-6-22 at 10:55 ] |
金蟲 (正式寫手)
| 7 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085600材料與化工 +5 | 安全上岸! 2026-03-16 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 314求調(diào)劑 +8 | 無懈可擊的巨人 2026-03-12 | 8/400 |
|
|
[考研] 312求調(diào)劑 +8 | 陌宸希 2026-03-16 | 9/450 |
|
|
[考研] 283求調(diào)劑 +3 | 聽風(fēng)就是雨; 2026-03-16 | 3/150 |
|
|
[考研]
|
zhouzhen654 2026-03-16 | 3/150 |
|
|
[考研] 藥學(xué)383 求調(diào)劑 +3 | 藥學(xué)chy 2026-03-15 | 4/200 |
|
|
[基金申請]
今年的國基金是打分制嗎?
50+3
|
zhanghaozhu 2026-03-14 | 3/150 |
|
|
[考研] 304求調(diào)劑 +3 | 曼殊2266 2026-03-14 | 3/150 |
|
|
[考研] 0703化學(xué)調(diào)劑,求各位老師收留 +8 | 秋有木北 2026-03-14 | 8/400 |
|
|
[考研] 一志愿華中師范071000,325求調(diào)劑 +6 | RuitingC 2026-03-12 | 6/300 |
|
|
[考研] 070303 總分349求調(diào)劑 +3 | LJY9966 2026-03-15 | 5/250 |
|
|
[考研] 0856求調(diào)劑 +3 | 劉夢微 2026-03-15 | 3/150 |
|
|
[考研] 0856專碩279求調(diào)劑 +5 | 加油加油!? 2026-03-15 | 5/250 |
|
|
[考研] 070305求調(diào)劑 +3 | mlpqaz03 2026-03-14 | 4/200 |
|
|
[考研] 本科南京大學(xué)一志愿川大藥學(xué)327 +3 | 麥田耕者 2026-03-14 | 3/150 |
|
|
[考研] 材料工程調(diào)劑 +9 | 咪咪空空 2026-03-12 | 9/450 |
|
|
[考研] 333求調(diào)劑 +3 | 球球古力 2026-03-11 | 3/150 |
|
|
[考研] 求調(diào)劑 +7 | 18880831720 2026-03-11 | 7/350 |
|
|
[考研] 材料專碩350 求調(diào)劑 +4 | 王金科 2026-03-12 | 4/200 |
|
|
[考研] 070303一志愿西北大學(xué)學(xué)碩310找調(diào)劑 +3 | d如愿上岸 2026-03-13 | 3/150 |
|