С помощью вызова какой процедуры удаляется функция smod5 MPI_OP_FREE. program example15 include 'mpif.h' integer ierr, rank, i, n parameter (n = 1 000) integer a(n), b(n) integer op external smod5 call MPI_INIT(ierr) call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr) do i = 1, n a(i) = i + rank end do print *, 'process ', rank, ' a(1) =', a(1) call MPI_OP_CREATE(smod5, .TRUE., op, ierr) call MPI_REDUCE(a, b, n, MPI_INTEGER, op, 0, & MPI_COMM_WORLD, ierr) call MPI_OP_FREE(op, ierr) if(rank .eq. 0) print *, ' b(1) =', b(1) call MPI_FINALIZE(ierr) end integer function smod5(in, inout, l, type) integer l, type integer in(l), inout(l), i do i = 1, l inout(i) = mod(in(i)+inout(i), 5) end do return end

Правильный ответ:

• # К моменту вызова какой процедуры каждым процессом программы все действия должны быть завершены?
• # Какому процессу соответствует данная схема [Большая Картинка]
• # Какое значение параметра TYPE в данной процедуре будет для декартовой типологии MPI_TOPO_TEST(COMM, TYPE, IERR) INTEGER COMM, TYPE, IERR
• # С помощью какой процедуры возможно расщепление коммуникатора на подгруппы, соответствующие декартовым подрешеткам меньшей размерности
• # С помощью какого параметра задается число вершин графа MPI_GRAPH_CREATE(COMM, NNODES, INDEX, EDGES, REORDER, COMM_GRAPH, IERR) INTEGER COMM, NNODES, INDEX(*), EDGES(*), COMM_GRAPH, IERR LOGICAL REORDER