请选择 进入手机版 | 继续访问电脑版
爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 2464|回复: 0

[求助] fortran 简单并行计算出错

[复制链接]

新浪微博达人勋

发表于 2015-4-21 21:40:59 | 显示全部楼层 |阅读模式

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
各位大神,小弟最近写了一个极为简单的并行程序,但是始终报错,小弟新手也找不出原因,求各位大神看看,小弟不胜感激。

PROGRAM MAIN
    USE MPI
    IMPLICIT NONE

    INTEGER myid,rc,ierr,i,j,ii,jj,status
    INTEGER,PARAMETER:: numprocs=3,nx=9,master=0

    CALL MPI_INIT(ierr)
    CALL MPI_COMM_RANK(MPI_COMM_WORLD,myid,ierr)
    CALL MPI_COMM_SIZE(MPI_COMM_WORLD,numprocs,ierr)

        DO j=1,2
            IF(myid==master) THEN
                ii=2
                CALL MPI_SEND(ii,1,MPI_INTEGER,j,j,MPI_COMM_WORLD,ierr)
            ELSE
                CALL MPI_RECV(ii,1,MPI_INTEGER,master,j,MPI_COMM_WORLD,status,ierr)
                print*, ii
            ENDIF
        ENDDO

    CALL MPI_FINALIZE(rc)

    END

报错如图

2015-04-21 21:43:07的屏幕截图.png
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表