我正在尝试将我的 C 项目从顺序编程转变为并行编程。尽管现在大部分代码都为此目的从头开始重新设计,但随机数的生成仍然是其核心。因此,随机数生成器 (RNG) 的性能不佳会严重影响程序的整体性能。
我写了一些代码行(见下文)来显示我所面临的问题,而且没有太多冗长。
问题如下:每当线程数 nt 增加时,性能就会明显变差。在这个工作站(linux 内核 2.6.33.4;gcc 4.4.4;intel quadcore CPU)上,在 nt=4 的情况下,并行 for 循环的完成时间比在 nt=1 情况下的时间长大约 10 倍,无论迭代次数 n 多少。
这种情况似乎在这里有所描述,但重点主要是fortran,一种我知之甚少的语言,所以我非常感谢一些帮助。
我尝试按照他们的想法创建不同的 RNG(具有不同的种子)以供每个线程访问,但性能仍然非常糟糕。实际上,每个线程的这个不同的种子点也让我感到烦恼,因为我看不出如何保证最终生成的数字的质量(缺乏相关性等)。
我已经考虑过完全放弃 GSL 并自己实现一个随机生成器算法(例如 Mersenne-Twister),但我怀疑我以后会遇到同样的问题。
非常感谢您的回答和建议。请务必询问我可能忘记提及的任何重要事项。
编辑:实施了 lucas1024(pragma for-loop 声明)和 JonathanDursi(播种;将“a”设置为私有变量)建议的更正。在多线程模式下性能仍然非常缓慢。
编辑 2: Jonathan Dursi 建议的实施解决方案(见评论)。
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <gsl/gsl_rng.h>
#include <omp.h>
double d_t (struct timespec t1, struct timespec t2){
return (t2.tv_sec-t1.tv_sec)+(double)(t2.tv_nsec-t1.tv_nsec)/1000000000.0;
}
int main (int argc, char *argv[]){
double a, b;
int i,j,k;
int n=atoi(argv[1]), seed=atoi(argv[2]), nt=atoi(argv[3]);
printf("\nn\t= %d", n);
printf("\nseed\t= %d", seed);
printf("\nnt\t= %d", nt);
struct timespec t1, t2, t3, t4;
clock_gettime(CLOCK_PROCESS_CPUTIME_ID, &t1);
//initialize gsl random number generator
const gsl_rng_type *rng_t;
gsl_rng **rng;
gsl_rng_env_setup();
rng_t = gsl_rng_default;
rng = (gsl_rng **) malloc(nt * sizeof(gsl_rng *));
#pragma omp parallel for num_threads(nt)
for(i=0;i<nt;i++){
rng[i] = gsl_rng_alloc (rng_t);
gsl_rng_set(rng[i],seed*i);
}
clock_gettime(CLOCK_PROCESS_CPUTIME_ID, &t2);
for (i=0;i<n;i++){
a = gsl_rng_uniform(rng[0]);
}
clock_gettime(CLOCK_PROCESS_CPUTIME_ID, &t3);
omp_set_num_threads(nt);
#pragma omp parallel private(j,a)
{
j = omp_get_thread_num();
#pragma omp for
for(i=0;i<n;i++){
a = gsl_rng_uniform(rng[j]);
}
}
clock_gettime(CLOCK_PROCESS_CPUTIME_ID, &t4);
printf("\n\ninitializing:\t\tt1 = %f seconds", d_t(t1,t2));
printf("\nsequencial for loop:\tt2 = %f seconds", d_t(t2,t3));
printf("\nparalel for loop:\tt3 = %f seconds (%f * t2)", d_t(t3,t4), (double)d_t(t3,t4)/(double)d_t(t2,t3));
printf("\nnumber of threads:\tnt = %d\n", nt);
//free random number generator
for (i=0;i<nt;i++)
gsl_rng_free(rng[i]);
free(rng);
return 0;
}