送赞干部 2019-08-26 19:30
浏览 255

Cygwin 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 YoloV5 第三方库的版本对照问题
    • ¥15 请完成下列相关问题!
    • ¥15 drone 推送镜像时候 purge: true 推送完毕后没有删除对应的镜像,手动拷贝到服务器执行结果正确在样才能让指令自动执行成功删除对应镜像,如何解决?
    • ¥15 求daily translation(DT)偏差订正方法的代码
    • ¥15 js调用html页面需要隐藏某个按钮
    • ¥15 ads仿真结果在圆图上是怎么读数的
    • ¥20 Cotex M3的调试和程序执行方式是什么样的?
    • ¥20 java项目连接sqlserver时报ssl相关错误
    • ¥15 一道python难题3
    • ¥15 牛顿斯科特系数表表示