akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору bormpe вообще, прогони какой-нить тест... да хоть из Вики: Цитата: В этой программе на языке Fortran создается заранее неизвестное число потоков (оно определяется переменной окружения OMP_NUM_THREADS перед запуском программы), каждый из которых выводит приветствие вместе со своим номером. Главный поток (имеющий номер 0) также выводит общее число потоков, но только после того, как все они «пройдут» директиву BARRIER. | Код: PROGRAM HELLO INTEGER ID, NTHRDS INTEGER OMP_GET_THREAD_NUM, OMP_GET_NUM_THREADS C$OMP PARALLEL PRIVATE(ID) ID = OMP_GET_THREAD_NUM() PRINT *, 'HELLO WORLD FROM THREAD', ID C$OMP BARRIER IF ( ID .EQ. 0 ) THEN NTHRDS = OMP_GET_NUM_THREADS() PRINT *, 'THERE ARE', NTHRDS, 'THREADS' END IF C$OMP END PARALLEL END |
| Всего записей: 24056 | Зарегистр. 06-12-2002 | Отправлено: 12:18 17-02-2017 | Исправлено: akaGM, 12:19 17-02-2017 |
|