24小时热门版块排行榜    

查看: 1251  |  回复: 6
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

ymyang008

捐助贵宾 (小有名气)

[交流] 【求助】linux集群,如何自编FORTRAN 程序实现并行

在fortran 程序中如何编程实现并行运算

[ Last edited by zzgyb on 2008-5-7 at 00:01 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wudai

木虫 (初入文坛)

★ ★ ★ ★
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,name

        call 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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答

小欢

金虫 (正式写手)


lei0736(金币+1,VIP+0):谢谢
据本人所知,用MPI和PVM可以实现并行计算。
2楼2008-05-09 20:46:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wxjbuilder

木虫 (知名作家)

★ ★
lei0736(金币+2,VIP+0):谢谢
本人愚见:
并行计算应该是程序自己所支持的吧,而不是你想让它并行运算就并行的吧
对于能并行运算的程序,应该可以指定cpu的个数
悠悠天地,奈何独立苍茫?
3楼2008-05-09 21:03:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

abinitio

版主 (著名写手)

我自己不会,但听过讲座。
如2楼小欢所言,使用MPI即可实现并行运算,具体是在程序开始处好象加上一个MPI的并行语句即可。
4楼2008-05-09 21:40:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料调剂 +4 爱擦汗的可乐冰 2026-02-28 4/200 2026-03-01 00:38 by 猫猫球alter
[考研] 307求调剂 +4 73372112 2026-02-28 6/300 2026-03-01 00:04 by ll247
[考研] 304求调剂 +3 52hz~~ 2026-02-28 5/250 2026-03-01 00:00 by 52hz~~
[考研] 317一志愿华南理工电气工程求调剂 +5 Soliloquy_Q 2026-02-28 8/400 2026-02-28 23:36 by xyx2012xyx
[考研] 化工专硕348,一志愿985求调剂 +4 弗格个 2026-02-28 6/300 2026-02-28 22:00 by wang_dand
[考研] 290求调剂 +5 材料专硕调剂; 2026-02-28 6/300 2026-02-28 21:40 by gaoxiaoniuma
[考研] 295求调剂 +5 19171856320 2026-02-28 5/250 2026-02-28 21:39 by gaoxiaoniuma
[考博] 26申博 +4 想申博! 2026-02-26 4/200 2026-02-28 21:37 by limorning
[考研] 材料学调剂 +5 提神豆沙包 2026-02-28 5/250 2026-02-28 21:34 by gaoxiaoniuma
[考研] 材料类求调剂 +6 wana_kiko 2026-02-28 6/300 2026-02-28 21:20 by gaoxiaoniuma
[考研] 求调剂 +4 repeatt?t 2026-02-28 4/200 2026-02-28 21:16 by gaoxiaoniuma
[考研] 284求调剂 +4 天下熯 2026-02-28 4/200 2026-02-28 21:13 by gaoxiaoniuma
[考研] 高分子化学与物理调剂 +4 好好好1233 2026-02-28 7/350 2026-02-28 20:42 by 好好好1233
[考研] 085600材料工程一志愿中科大总分312求调剂 +8 吃宵夜1 2026-02-28 10/500 2026-02-28 20:27 by L135790
[考研] 276求调剂 +3 路lyh123 2026-02-28 4/200 2026-02-28 19:45 by 路lyh123
[考研] 0856材料求调剂 +10 hyf hyf hyf 2026-02-28 11/550 2026-02-28 18:50 by 无际的草原
[考博] 博士自荐 +3 kkluvs 2026-02-28 3/150 2026-02-28 16:59 by StarAura
[考研] 寻找调剂 +3 LYidhsjabdj 2026-02-28 3/150 2026-02-28 12:59 by miniwendy
[考研] 304求调剂 +5 曼殊2266 2026-02-28 6/300 2026-02-28 12:44 by 迷糊CCPs
[考研] 272求调剂 +3 田智友 2026-02-28 3/150 2026-02-28 12:31 by 王加浩to
信息提示
请填处理意见