使用 Cygwin64 的 Fortran MPI

您可以使用以下方法执行以下操作：

• Windows 10 命令行（不是 Cygwin）
• 英特尔 Fortran 编译器 （ifort）
• Microsoft MPI

（1） 在 Windows 命令窗口中安装并能够使用英特尔编译器（您的问题）。

（2） 通过从 https://www.microsoft.com/en-us/download/details.aspx?id=100593 下载 来安装 Microsoft MPI 您需要下载并安装 msmpisetup.exe 和 msmpisdk.msi

（3） 您需要在 MS-MPI include 目录中使用编译器 （ifort） 编译 mpi.f90（您需要管理员权限）。

（i） 在 Windows 搜索栏中输入“cmd”，然后选择 （RHS） “以管理员身份运行”。您需要确保在此状态下仍可运行 ifort 编译器：一种替代方法是从 Windows 开始菜单中的编译器选项中启动命令窗口，但请确保在此处使用右键单击并以管理员身份运行。

（ii） 在此管理员命令窗口中，导航到 MS-MPI 包含目录（例如 C：\Program Files （x86）\Microsoft SDKs\MPI\Include） 并创建一个新的子目录“intel”。

（iii） 将文件 mpi.f90 从 include 目录复制到 .\intel 子目录中。此外，将文件 mpifptr.h 从 .\x64 子目录复制到 .\intel 子目录中。

（iv） 在此命令窗口中，导航到 .\intel 子目录并键入命令“ifort -c mpi.f90”。现在，您应该有相关的 mpi 模块文件可用。

（4） 在 C 盘的某处创建一个普通目录，并将以下批处理文件和 MPI/fortran 源文件放入其中：

do_intel.bat

rem ifort -c %1.f90 /traceback /check:all /Qparallel -I"C:\Program Files (x86)\Microsoft SDKs\MPI\Include\intel
ifort -c %1.f90 /Qparallel /O3 -I"C:\Program Files (x86)\Microsoft SDKs\MPI\Include\intel
ifort %1.obj -o %1.exe "C:\Program Files (x86)\Microsoft SDKs\MPI\Lib\x64\msmpi.lib" "C:\Program Files (x86)\Microsoft SDKs\MPI\Lib\x64\msmpifec.lib"

runmpi.bat

set OPT="C:\Program Files\Microsoft MPI\bin"
%OPT%\mpiexec -n %2 %1

测试.f90

program main
   use mpi
   implicit none

   integer size, rank, tag
   integer stat(mpi_status_size), ierr
   integer I
   real R

   call mpi_init( ierr )
   call mpi_comm_size( mpi_comm_world, size, ierr )
   call mpi_comm_rank( mpi_comm_world, rank, ierr )
   write( *, * ) "Processor ", rank, " of ", size, " is alive"

   tag = 0
   if ( rank == 0 ) then
      I = 42
      R = 3.14152
      call mpi_send( I, 1, mpi_integer, 1, tag, mpi_comm_world, ierr )
      write( *, * ) "Processor ", rank, " sent integer ", I
      call mpi_send( R, 1, mpi_real   , 1, tag, mpi_comm_world, ierr )
      write( *, * ) "Processor ", rank, " sent real ", R

   else if ( rank == 1 ) then
      call mpi_recv( I, 1, mpi_integer, 0, tag, mpi_comm_world, stat, ierr )
      write( *, * ) "Processor ", rank, " received integer ", I
      call mpi_recv( R, 1, mpi_real, 0, tag, mpi_comm_world, stat, ierr )
      write( *, * ) "Processor ", rank, " received real ", R
   end if

   call mpi_finalize( ierr )

end program main

（5） 使用命令窗口，在 do_intel.bat、runmpi 和 test.f90 所在的目录中.bat键入

do_intel test

它应该（希望！）编译和链接测试文件。

（6） 如果全部编译正确，则键入

runmpi test.exe 2

使用两个处理器运行测试程序。

gfortran 也可以与 Microsoft MPI 一起运行，尽管要让它运行起来更难，而且我发现它“不可靠”。

编译 mpi.f90 文件（假定位于 MS-MPI 包含目录的 .\gfortran 子控制器中）需要以下命令：

gfortran -c -fallow-invalid-boz -fno-range-check mpi.f90

下面的批处理文件可以编译和链接测试文件：

rem gfortran -c %1.f90 -Wall -Wextra -I"C:\Program Files (x86)\Microsoft SDKs\MPI\Include\gfortran" -fallow-argument-mismatch -ff2c
gfortran -c %1.f90 -O3 -I"C:\Program Files (x86)\Microsoft SDKs\MPI\Include\gfortran" -fallow-argument-mismatch -ff2c
gfortran -o %1.exe %1.o "C:\Program Files (x86)\Microsoft SDKs\MPI\Lib\x64\msmpi.lib" "C:\Program Files (x86)\Microsoft SDKs\MPI\Lib\x64\msmpifec.lib"

对于我的许多更复杂的进程，带有 MS-MPI 的 gfortran 适用于少数处理器，然后挂起或崩溃;我无法找出原因，因为该问题在英特尔编译器上工作正常。

Cygwin 有 OpenMPI 软件包

对于开发，您需要安装
https://cygwin.com/packages/summary/libopenmpi-devel.htmllibopenmpi-devel

软件包
https://cygwin.com/packages/x86_64/openmpi/openmpi-4.1.5-1
提供了大多数 GNU GCC 编译器的接口。查看内容摘录openmpi

usr/bin/mpic++ -> opal_wrapper.exe
usr/bin/mpicc -> opal_wrapper.exe
usr/bin/mpicxx -> opal_wrapper.exe
usr/bin/mpiexec -> orterun.exe
usr/bin/mpif77 -> opal_wrapper.exe
usr/bin/mpif90 -> opal_wrapper.exe
usr/bin/mpifort -> opal_wrapper.exe

重用另一个答案中报告的示例

$ mpif90 test.f90 -o prova

$ mpirun -n 4 ./prova
 Processor            0  of            4  is alive
 Processor            0  sent integer           42
 Processor            0  sent real    3.14152002
 Processor            1  of            4  is alive
 Processor            1  received integer           42
 Processor            1  received real    3.14152002
 Processor            2  of            4  is alive
 Processor            3  of            4  is alive