Не удается открыть модуль и неверный оператор программы в коде F90 - PullRequest
Новая
       45

Не удается открыть модуль и неверный оператор программы в коде F90

0 голосов
/ 18 июня 2019

Я использую 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

Update1

Удаление периода решило первую проблему.Я использовал эти команды:

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``

Update2 Работало.Ран команды:

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

1 Ответ

3 голосов
/ 18 июня 2019

  1. Измените первую строку программы, чтобы удалить период.

    program fhello_world_mpi

    Точки (.) недопустимы в именах объектов Fortran (таких как программы, переменные, константы, типы, и т. Д. ).

  2. Попробуйте mpif90 filename.F90.Функция 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 необходим в любом случае, потому что он инициализирует параллельную среду.

...