The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]



Индекс форумов
Составление сообщения

Исходное сообщение
"В ядро Linux может быть включен диспетчер реального времени"
Отправлено pavlinux, 23-Окт-09 10:36 
/*  
*  Для прогрева всех ядрывшек, теперь c OpenMP
*   gcc-4.4.2 primesum.c -std=gnu99 -O3 -ffast-math -lgmp -fopenmp -o pimesum
*/

#include <gmp.h>

#define POW2_128 "340282366920938463463374607431768211456"

int main (int argc, char **argv)
{
  int k;
  mpz_t i, sum;
  mpz_t LIMIT;

  mpz_init (i);
  mpz_init (sum);
  mpz_init_set_str(LIMIT, POW2_128, 10);

#pragma omp parallel
{
#pragma omp do private (i, k)
                do {
                    mpz_add_ui(i, i, 1ULL);
                    k = mpz_cmp(LIMIT, i);
                    if (mpz_probab_prime_p (i, 10) == 2 ) {
#pragma omp shared (sum)
#pragma omp critical (sum)
                      mpz_add(sum, i, sum);
                      gmp_printf("Prime: %Zd, Sum  %Zd\n", i, sum);
#pragma omp flush(sum)
                   }
               } while ( k != 0 );
#pragma omp end parallel
}
  gmp_printf("%Zd\n", sum);
  mpz_clear (i);
  mpz_clear (sum);

return 0;
}

 

Ваше сообщение
Имя*:
EMail:
Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email).
Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
 
При общении не допускается: неуважительное отношение к собеседнику, хамство, унизительное обращение, ненормативная лексика, переход на личности, агрессивное поведение, обесценивание собеседника, провоцирование флейма голословными и заведомо ложными заявлениями. Не отвечайте на сообщения, явно нарушающие правила - удаляются не только сами нарушения, но и все ответы на них. Лог модерирования.



Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру