Обясните етот код

[NastyaV]

Кто может обяснить такой код

include 'mpif.h'
integer ierr, rank, rank1, i, size, MAXPROC, MAXEDGES
parameter (MAXPROC = 128, MAXEDGES = 512)
integer a, b
integer status(MPI_STATUS_SIZE)
integer comm_graph, index(MAXPROC), edges(MAXEDGES)
integer num, neighbors(MAXPROC)
call MPI_INIT(ierr)
call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierr)
call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)
do i = 1, size
index(i) = size+i-2
end do
do i = 1, size-1
edges(i) = i
edges(size+i-1) = 0
end do
call MPI_GRAPH_CREATE(MPI_COMM_WORLD, size, index, edges,
& .TRUE., comm_graph, ierr)
call MPI_GRAPH_NEIGHBORS_COUNT(comm_grap h, rank, num,
& ierr)
call MPI_GRAPH_NEIGHBORS(comm_graph, rank, num, neighbors,
& ierr)
do i = 1, num
call MPI_SENDRECV(rank, 1, MPI_INTEGER, neighbors(i),
& 1, rank1, 1, MPI_INTEGER,
& neighbors(i), 1, comm_graph,
& status, ierr)
print *, 'procecc ', rank, ' communicate with process',
& rank1
end do
call MPI_FINALIZE(ierr)
end

что ета програма делает?

[_ILYA_]

зачем тебе это

[Lunex.08]

Вы, случаем, разделом не ошиблись?

[Stilet]

Разве код написан на Си?

[pproger]

mpich это .

[Chris D]

Это MPI, интерфейс передачи сообщения...
Но эта реализация написанна на Фортране...

[NastyaV]

Вот тот код что мне нужно чтоб вы обяснили

http://programmersforum.ru/showthread.php?t=116724

[_ILYA_]

Сообщение от NastyaV

Вот тот код что мне нужно чтоб вы обяснили

http://programmersforum.ru/showthread.php?t=116724

А другим это нужно?