PARALLEL.RU

Дискуссионный клуб по параллельным вычислениям
Текущее время: 16 дек 18 1:45

Часовой пояс: UTC + 4 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: О задачах
СообщениеДобавлено: 13 ноя 08 3:08 
Не в сети

Зарегистрирован: 13 ноя 08 3:01
Сообщения: 1
Откуда: Москва
Доброго времени суток.
http://parallel.ru/tech/tech_dev/MPI/examples/
Примеры из учебного пособия
"Параллельное программирование с использованием технологии MPI"

задача3
program example3
include 'mpif.h'
integer ierr, rank, len, i, NTIMES
parameter (NTIMES = 100)
character*(MPI_MAX_PROCESSOR_NAME) name
double precision time_start, time_finish, tick
call MPI_INIT(ierr)
call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)
call MPI_GET_PROCESSOR_NAME(name, len, ierr)
tick = MPI_WTICK(ierr)
time_start = MPI_WTIME(ierr)
do i = 1, NTIMES
time_finish = MPI_WTIME(ierr)
end do
call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)
print *, 'processor ', name(1:len),
& ', process ', rank, ': tick = ', tick,
& ', time = ', (time_finish-time_start)/NTIMES
call MPI_FINALIZE(ierr)
end

значок переноса на другую строчку & должен стоять на предидущей строке. Иначе компиллятор ругается. :|
to модераторы: Исправьте, пожалуйста, чтобы люди не тратили время на поиск этой неочевидной ошибочки.
корректный вариант:
program example3
include 'mpif.h'
integer ierr, rank, len, i, NTIMES
parameter (NTIMES = 100)
character*(MPI_MAX_PROCESSOR_NAME) name
double precision time_start, time_finish, tick
call MPI_INIT(ierr)
call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)
call MPI_GET_PROCESSOR_NAME(name, len, ierr)
tick = MPI_WTICK(ierr)
time_start = MPI_WTIME(ierr)
do i = 1, NTIMES
time_finish = MPI_WTIME(ierr)
end do
call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)
print *, 'processor ', name(1:len),&
', process ', rank, ': tick = ', tick,&
', time = ', (time_finish-time_start)/NTIMES
call MPI_FINALIZE(ierr)
end
такие же некорректности встречаются и в других программах.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: О задачах
СообщениеДобавлено: 13 ноя 08 12:39 
Не в сети

Зарегистрирован: 18 ноя 02 16:40
Сообщения: 168
Откуда: Москва
Вы не совсем правы. Первый вариант записан в фиксированной форме, второй - в свободной. Оба корректны.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 4 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


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

Найти:
Перейти:  
cron
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB