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

UptoLike

ВУЗ: 

ТГУ | Томск

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

Рубрика: 

117
end do
write (16,'(2e18.7)') x(i), summ - a(i,m_size+1)
end do
!
write (16,'(a, i4)') 'Count of iteration =', count1
write (16,'(a, e14.6)') 'Norm of residual =',
$ drmax
write (16,'(a, e14.6)') 'Time of calculation =',
$ time1
write (16,'(a)') 'Correct finish'
close (16)
end if
goto 12
! в случае, если число итераций превысило 300, программа
!завершает работу и выдает соответствующее сообщение
11 write (6,*) 'Iteration process was diverged'
write (6,*) 'Max error = ', max_err
12 call MPI_FINALIZE (ierr)
end
!
! процедура задания исходной матрицы и вектора свободных членов
!
Subroutine matgen (a, n)
implicit none
integer n, i, j
double precision a(n,n+1)
!
!
do 30 j = 1,n+1
do 20 i = 1,n
! задание элементов матрицы
if(j.le.n) then
a(i,j) = 1.0d0
else
a(i,j)=2.1d0*(n-1)
end if
20 continue

Страницы