Я пытаюсь получить параметр MPI_TAG_UB для openmpi (я использую версию 2.1.1). Я знаю, что мне нужно использовать подпрограмму MPI_COMM_GET_ATTR, но я понятия не имею, как это сделать, я никогда не использовал Fortran в своей жизни. По этой ссылке Я попробовал это:
LOGICAL FLAG
INTEGER IERR
INTEGER (KIND=MPI_ADDRESS_KIND) VALUE
! Upon successful return, VALUE == 7 (sign extended)
CALL MPI_COMM_GET_ATTR(MPI_COMM_WORLD, KEYVAL, VALUE, FLAG, IERR)
Я положил это в файл test.f90
, затем сделал
gfortran test.f90 -o test.out
но я получил это сообщение об ошибке:
Ошибка: параметр 'mpi_address_kind' в (1) не был объявлен или является переменной, которая не сводится к постоянному выражению
Ошибка: неожиданный конец файла в 'test.f90'
Так что в принципе я понятия не имею, что я делаю. Кто-нибудь когда-нибудь получал значение MPI_TAG_UB для реализации MPI?
Спасибо!