当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 2 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : fortran code, wrong output!!
帖子发表于 : 2008-06-13 10:44 

注册: 2007-07-28 15:07
帖子: 25
送出感谢: 0 次
接收感谢: 0 次
c********************************************************************
c complete fortran code
program hello
IMPLICIT NONE

include 'mpif.h'

integer ierr
integer my_rank
integer p

call MPI_INIT(ierr)
call MPI_COMM_RANK(MPI_COMM_WORLD, my_rank, ierr)
call MPI_COMM_SIZE(MPI_COMM_WORLD, p, ierr)

write(6,900) p
900 format(' ','there are ', I1, ' processes')

if( my_rank .EQ. 0 ) then
write(6,*) 'hello world from process',my_rank
else
print *, 'hello world from other process'
endif

call MPI_FINALIZE(ierr)

stop
end program hello
c************************************************************

$ mpif77 -o hello hello.f
$ mpiexec -n 4 ./hello
there are 1 processes
hello world from process 0
there are 1 processes
hello world from process 0
there are 1 processes
hello world from process 0
there are 1 processes
hello world from process 0

what is wrong here? the program is supposed to simulate four CPUs. but there is only 1 process.
and the same message is printed four times. any1 can help??


页首
 用户资料  
 
2 楼 
 文章标题 :
帖子发表于 : 2008-06-13 10:52 
头像

注册: 2007-04-06 10:24
帖子: 2487
地址: ~/Shanghai
送出感谢: 0 次
接收感谢: 0 次
哇 fortran,不会


_________________
http://silenceisdefeat.com/~greco
代码:
''.join([chr(ord(c)-2) for c in 'O{"G/ockn"ku<"itgeq0ujkBiockn0eqo'])
echo -n "Z3JlY28uc2hpQGdtYWlsLmNvbQ==" | base64 -d


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 2 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译