VS2017+Fortran（Intel Parallel Studio XE 2018）+MPI

相关文件资源：

VS 2017 提取码：hyz3

Fortran (Intel Parallel Studio XE 2018) 提取码：arn5

MPI 提取码：kgo6

环境：Win10操作系统

安装顺序：

1、先安装VS2017，解压文件直接安装即可，安装时需要安装C++这个库，为了后续和Intel Parallel Studio XE 2018一起集成。

2、先关闭VS2017的窗口，再继续安装intel parallel studio xe 2018，不需要其它组件的话可以只选择安装Inter Visual Fortran ...这一个组件，所需空间会少很多。安装过程中选择license注册（五个任选其一即可）

3、安装两个MPI插件

说明：VS2017可以安装在其他盘，Intel parallel studio xe 2018需要安装在C盘

项目MPI并行配置流程：

1、新建Fortran项目

2、设置项目的链接库，关键是能让项目找到MPI安装在哪个地方

（1）调试——属性——Fortran——General——Additional Inclue Directories中添加include目录：C:\Program Files (x86)\Microsoft SDKs\MPI\Include\和C:\Program Files (x86)\Microsoft SDKs\MPI\Include\x86，两个之间用英文分号隔开

（2）调试——属性——Linker——General——Additional Library Directories 中添加：C:\Program Files (x86)\Microsoft SDKs\MPI\Lib\x86\和C:\Program Files (x86)\Microsoft SDKs\MPI\Lib\，同样两个之间用英文分号隔开。

（3）调试——属性——Linker——Input——Additional Dependencies处添加msmpi.lib msmpifec.lib （中间用空格区分）

（4）将 C:\Program Files\Microsoft MPI\Bin 目录下的文件mpiexec.exe放到VS2017项目的目录下（和.f90程序放在一个文件夹下），再按照下图改动，其中 -n 4表示并行4进程，可修改。

3、设置完成，运行以下程序进行测试

include "mpi.f90"

program main 
    use mpi 
    implicit none 
    character(len=mpi_max_processor_name) :: p_name 
    integer :: myid, numProcs, nameLen, ierr 

    call mpi_init( ierr ) ! 完成 MPI程序 的初始化工作
    !                | 
    !                + ---- 返回代码，与 mpi_success 相等时表示成功（out） 
    call mpi_comm_rank( mpi_comm_world, myid, ierr ) ! 获取当前进程标识号 
    !                        |            |     | 
    !                        |            |     + ---- 返回代码（out） 
    !                        |            + ---------- 返回当前进程标识号（out） 
    !                        + ----------------------- 通信域（in） 
    call mpi_comm_size( mpi_comm_world, numProcs, ierr ) ! 获取通信域包含的进程数 
    !                        |            |         | 
    !                        |            |         + ---- 返回代码（out） 
    !                        |            + -------------- 返回通信域内进程数（out） 
    !                        + --------------------------- 通信域（in） 
    call mpi_get_processor_name( p_name, nameLen, ierr ) ! 获取运行当前进程的机器名 
    !                               |       |       | 
    !                               |       |       + ---- 返回代码（out） 
    !                               |       + ------------ 返回机器名长度（out） 
    !                               + -------------------- 返回机器名（out） 
    write(*,*) "Hello World! Processor ",myid," of ",numProcs," on ",p_name(1:nameLen) 
    call mpi_finalize( ierr ) ! 完成 MPI程序 的结束工作
    pause 
end program 

参考资料：

VS2017+Fortran2018（intel parallel studio xe 2018 update 3）集成失败【已解决】_小毛95的博客-CSDN博客_fortran2018VS2103+Intel2013+MSMPI运行Fortran并行程序_huangjd7的博客-CSDN博客基于MS VS2017的Intel Fortran 使用MPI_Dwyane JHWu的博客-CSDN博客_fortran mpi