С помощью вызова какой процедуры удаляется функция - Ответ на вопрос №1239848

Вопрос

С помощью вызова какой процедуры удаляется функция smod5MPI_OP_FREE.program example15include 'mpif.h'integer ierr, rank, i, nparameter (n = 1 000)integer a(n), b(n)integer opexternal smod5call MPI_INIT(ierr)call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)do i = 1, na(i) = i + rank end doprint *, '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) endinteger function smod5(in, inout, l, type)integer l, typeinteger in(l), inout(l), ido i = 1, linout(i) = mod(in(i)+inout(i), 5) end do return end

• MPI_OP_CREATE
• MPI_REDUCE
• MPI_OP_FREE

Ответ