Question

我正在使用gfortran运行.F90代码，但出现两个错误，

program fhello_world_mpi.F90
   1
Error: Invalid form of PROGRAM statement at (1)
fhello_world_mpi.F90:2:6:

   use mpi
       1
 Fatal Error: Can't open module file ‘mpi.mod’ for reading at (1): 
 No such file or directory
 compilation terminated.

我已经检查了mpi安装库（系统中存在mpich，openmpi库）。

程序如下：

program fhello_world_mpi.F90
  use mpi
  implicit none
   integer ( kind = 4 ) error
   integer ( kind = 4 ) id
   integer p
   character(len=MPI_MAX_PROCESSOR_NAME) :: name
   integer clen
   integer, allocatable :: mype(:)
   real ( kind = 8 ) wtime

   call MPI_Init ( error )
   call MPI_Comm_size ( MPI_COMM_WORLD, p, error )
   call MPI_Comm_rank ( MPI_COMM_WORLD, id, error )
  if ( id == 0 ) then
     wtime = MPI_Wtime ( )

     write ( *, '(a)' ) ' '
     write ( *, '(a)' ) 'HELLO_MPI - Master process:'
     write ( *, '(a)' ) '  FORTRAN90/MPI version'
     write ( *, '(a)' ) ' '
     write ( *, '(a)' ) '  An MPI test program.'
     write ( *, '(a)' ) ' '
     write ( *, '(a,i8)' ) '  The number of processes is ', p
     write ( *, '(a)' ) ' '
  end if
  call MPI_GET_PROCESSOR_NAME(NAME, CLEN, ERROR)
  write ( *, '(a)' ) ' '
  write ( *, '(a,i8,a,a)' ) '  Process ', id, ' says "Hello, world!" ',name(1:clen)

  call MPI_Finalize ( error )
end program

更新1

消除期限解决了第一个问题。我使用了以下命令：

mpif90 fhello_world_mpi.F90和

mpirun -np 2 ./fhello_world_mpi

它给出了以下错误：

mpirun was unable to launch the specified application as it could not 
access or execute an executable:

Executable: ./fhello_world_mpi
Node: user

  while attempting to start process rank 0.

 2 total processes failed to start``

更新2 有效。冉命令：

mpif90 -o fhello_world_mpi fhello_world_mpi.F90

mpirun -np 2 ./fhello_world_mpi

输出

HELLO_MPI - Master process:
  FORTRAN90/MPI version

  An MPI test program.

  The number of processes is        2



   Process        1 says "Hello, world!" user
   Process        0 says "Hello, world!" user

Answer 1

更改程序的第一行以删除句点。
```
program fhello_world_mpi
```
在Fortran实体（例如程序，变量，常量，类型，等）的名称中，不允许使用
句点（.）。
尝试使用mpif90文件名。 MPI功能通常被实现为“库”，并且要编译代码，您需要提供其他信息：.mod文件在编译时的位置以及lib*.so文件在编译时的位置。链接。这是通过编译器包装mpif90实现的（通常，名称可能有所不同）：
```
mpif90 -o fhello_world_mpi fhello_world_mpi.F90
```
同样，要执行代码，您需要包装器：
```
mpirun -np 2 ./fhello_world_mpi
```
我认为文件名是fhello_world_mpi.F90，根据需要正确设置。

通常，您不应该尝试手动使用这些标志，但是如果希望看到它们，可以使用mpif90 -show。仍然需要mpirun，因为它会初始化并行环境。

无法在F90代码中打开模块和无效的程序语句

1 个答案: