Высокопроизводительные вычисления на кластерах. Беликов Д.А - 49 стр.

UptoLike

49
$ MPI_COMM_WORLD, ierror)
end do
else
call MPI_RECV(message, 13, MPI_CHARACTER, 0,
$ tag, MPI_COMM_WORLD, status, ierror)
end if
print*, 'process', rank, ':', message
call MPI_FINALIZE(ierror)
end
3.3 Синтаксис базовых функций MPI
Инициализация MPI осуществляется при вызове функции
MPI_INIT:
С: int MPI_Init(int* argc, char*** argv)
FORTRAN: MPI_INIT(ierror)
INTEGER ierror
Возвращается код ошибки ierror. Если ierror=0, то оператор про-
работал успешно.
Завершение MPI производится при вызове MPI-функции
MPI_FINALIZE:
С: int MPI_Finalize(void)
FORTRAN: MPI_FINALIZE(ierror)
INTEGER ierror
Определение числа процессов в группе COMM:
C: int MPI_Comm_size(MPI_Comm comm,int* size)
FORTRAN: MPI_COMM_SIZE(COMM, size, ierror)
INTEGER COMM, size, ierror
Функция возвращает количество процессов size в области связи с
коммуникатором COMM.
Определение номера процесса в группе COMM: