送赞干部 2019-08-26 19:29
浏览 198

Cygwin下Fortran mpi 代码运行报错,请问是安装时少选择了文件吗?

Cygwin mpi 代码运行报错,请问是安装时少选择了文件吗?

Fortran90代码如下:

PROGRAM TUTE2Q1
IMPLICIT NONE
INCLUDE 'mpif.h'

! Variable declartion
INTEGER :: i,pid,nprocs,ierr

CALL MPI_INIT(ierr)                                                      ! Initialize MPI Program
CALL MPI_COMM_SIZE(MPI_COMM_WORLD,nprocs,ierr) ! Get Size of Communicator (Number of procs)
CALL MPI_COMM_RANK(MPI_COMM_WORLD,pid,ierr)      ! Get Rank of Communicator (proc id)

! If root write header
IF (pid.EQ.0) THEN
    WRITE(*,1100) "N Procs","PID","Message"
ENDIF

! Synchronize
CALL MPI_BARRIER(MPI_COMM_WORLD,ierr)

! Write out sequentially
DO i = 0,nprocs-1
    IF (pid.EQ.i) THEN
        ! Write out data
        WRITE(*,1200) nprocs,pid,"Hello World"  
    ENDIF
    ! Synchronize
    CALL MPI_BARRIER(MPI_COMM_WORLD,ierr)
ENDDO   

1100 FORMAT(3(A12,1x))
1200 FORMAT(2(I12.1,1x),A12)    

! Finalize MPI program
CALL MPI_FINALIZE(ierr)

END PROGRAM TUTE2Q1

  • 写回答

0条回答

    报告相同问题?

    悬赏问题

    • ¥15 安卓adb backup备份应用数据失败
    • ¥15 eclipse运行项目时遇到的问题
    • ¥15 关于#c##的问题:最近需要用CAT工具Trados进行一些开发
    • ¥15 南大pa1 小游戏没有界面,并且报了如下错误,尝试过换显卡驱动,但是好像不行
    • ¥15 没有证书,nginx怎么反向代理到只能接受https的公网网站
    • ¥50 成都蓉城足球俱乐部小程序抢票
    • ¥15 yolov7训练自己的数据集
    • ¥15 esp8266与51单片机连接问题(标签-单片机|关键词-串口)(相关搜索:51单片机|单片机|测试代码)
    • ¥15 电力市场出清matlab yalmip kkt 双层优化问题
    • ¥30 ros小车路径规划实现不了,如何解决?(操作系统-ubuntu)