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

UptoLike

ВУЗ: 

ТГУ | Томск

Составители: 

Рубрика: 

104
do i=1,n
x(i)=a(i,n+1)
end do
call MPI_Gather(x(1), m, MPI_DOUBLE_PRECISION,
$ x(1), m, MPI_DOUBLE_PRECISION, 0, comm, ierr)
If (rank.eq.0) then
c Сортировка решения с учетом начального распределения
с данных
do i=1,m
do p=0,size-1
b((i-1)*size+p+1)=x(i+p*m)
end do
end do
c Вывод результата в файл
open (3,file='rez.txt')
write (3,'(3f30.25)') time
do i=1,n
write (3,'(a,i5,a,f30.20,a)') ' x[',i,']=',b(i),'.'
end do
end if
call MPI_FINALIZE(ierr)
end
Результаты работы программы gauss_method для размерности
расширенной матрицы m = 1000 представлены в табл. 6.1.
Таблица 6.1 Результаты расчетов по программе
Количество ПЭ 1 2 4 8 10
Размер расчетной полосы m 1000 500 250 125 100
Время счета, с 2,28 0,98 0,49 0,27 0,23

Страницы