Question

我试着调用GSL库的Monte Carlo集成子程序来进行一些数值计算。因为我的for循环相当简单，意味着不同运行的结果是独立的，我希望使用OpenMP进行并行化应该非常简单。但是当我编译它时，它总是说“内部编译器错误：分段错误”，并且什么也没产生。这是我的代码：

#include <stdlib.h>
#include <omp.h>
#include <gsl/gsl_math.h>
#include <gsl/gsl_monte.h>
#include <gsl/gsl_monte_vegas.h>
#include <math.h>     

 double
 Reg1 (double *x, double t, size_t dim, void *params)
 {
     return sin(x[1])*cos(t*t)*x[0]*x[0]*cos(x[0])*cos(3*x[0]);
 }


 void
 display_results (char *title, double result, double error)
 {
   printf ("%s ==================\n", title);
   printf ("result = % .10f\n", result);
   printf ("sigma  = % .10f\n\n", error);
 }


 void
 VEGAS_integration_routine (double (*function)(double *, size_t, void *), 
                            double xl[], double xu[], size_t calls, gsl_rng * r)
 {
 double res, err;
     gsl_monte_function Function = { function, 2, 0 };   

     gsl_monte_vegas_state *s = gsl_monte_vegas_alloc (2);

     gsl_monte_vegas_integrate (&Function, xl, xu, 2, 20000, r, s, &res, &err);

     display_results ("vegas warm-up", res, err);

     printf ("converging...\n");

     do
       {
         gsl_monte_vegas_integrate (&Function, xl, xu, 2, calls, r, s, &res, &err);

         printf ("result = % .10f; sigma = % .10f; "
                 "chisq/dof = %.2f\n", res, err, gsl_monte_vegas_chisq (s));
       }
     while (fabs (gsl_monte_vegas_chisq (s) - 1.0) > 0.05);

     display_results ("vegas final", res, err);

     gsl_monte_vegas_free (s);
 }


 int
 main (void)
 {   
   int seg = 200;

   double xl[2] = { 195.0, -1000.0 };
   double xu[2] = { 205.0, 1000.0 };

   const gsl_rng_type *T;
   gsl_rng *r;

   size_t calls = 1000000;

   gsl_rng_env_setup ();

   T = gsl_rng_default;
   r = gsl_rng_alloc (T);

   /* Calculate G1 */
   int i;
   double j=0;
   #pragma omp parallel for shared(xl,xu,calls,r,seg) private(i,j)
   for(i=0; i<=seg; i=i+1)
   {
    j=(double)i * 0.05;
    printf("Now it's t = %.2f \n", j);
    printf("Compute Re(G1)...\n");
    double g(double * x, size_t dim, void *params)
    {
        return Reg1(x, j, dim, &params);
        }
        VEGAS_integration_routine (&g, xl, xu, calls, r);
   }
   gsl_rng_free (r);

   return 0;
 }

此代码基本上是根据GSL webpage上的示例代码修改的。不使用OpenMP，它可以很好地工作。但是，当我使用gcc编译时，使用以下命令（添加了-fopenmp），这在我们的服务器上有效，

gcc -c -Wall -ansi -I/usr/include -L/usr/lib/gcc/x86_64-redhat-linux/4.4.4/ -lgomp -fopenmp test2.c -o test2.o
gcc -L/usr/lib64/  test2.o -L/usr/lib/gcc/x86_64-redhat-linux/4.4.4/ -lgomp -fopenmp -lgsl -lgslcblas -lm -o test2.out

我收到以下错误消息：

test2.c: In function 'main':
test2.c:85: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://bugzilla.redhat.com/bugzilla> for instructions.
Preprocessed source stored into /tmp/ccAGFe3v.out file, please attach this to your bugreport.
make: *** [test2.o] Error 1

由于我无法编译它并且上面显示的错误信息非常有限，我真的很想知道什么是错的，所以我分解了我调用的子例程VEGAS_integration_routine然后逐行运行它。我发现编译停在第二行

gsl_monte_function Function = { function, 2, 0 };

这让我很困惑。使用OpenMP来平坦循环时，我不能在循环中声明GSL函数吗？ GSL和OpenMP之间是否存在内部冲突？我确实搜索过Stack Overflow以及Google，但似乎没有相关帖子存在（太奇怪了！）。如果有人能解释这里发生的事情，或者指出另一种做并行计算的方法，我真的很感激。我确定我编写for循环的方式并不是最好的和最好的......

Answer 1

GCC中词法闭包的实现与OpenMP代码转换引擎的交互方式有a regression bug。该错误似乎在GCC 4.7分支的更高版本中得到修复。如果您不能用GCC 4.7.1或更高版本替换GCC 4.4.4，那么您应该重写代码以不使用嵌套函数，就像您在帖子中引用的GSL示例一样。此外，嵌套函数是非标准的GCC C扩展，你应该尽可能不使用它们。

GSL中的蒙特卡洛集成接口支持通过void *params参数将其他参数传递给被积函数，如here所述。您必须按如下方式更改Reg1：

double
Reg1 (double *x, size_t dim, void *params)
{
    double t = *(double *)params;
    return sin(x[1])*cos(t*t)*x[0]*x[0]*cos(x[0])*cos(3*x[0]);
}

并将VEGAS_integration_routine的第二行更新为：

gsl_monte_function Function = { function, 2, &t };

您还必须将t添加到VEGAS_integration_routine的虚拟参数列表中，并从main传递其值。因此相关部分成为：

void
VEGAS_integration_routine (double (*function)(double *, size_t, void *),
                           double t,
                           double xl[], double xu[], size_t calls, gsl_rng * r)
{
   double res, err;
   gsl_monte_function Function = { function, 2, &t };
   ...
}

#pragma omp parallel for
for(i=0; i <= seg; i++)
{
   double t = (double)i * 0.05;
   ...
   VEGAS_integration_routine (Reg1, t, xl, xu, calls, r);
}

OpenMP并行区域中嵌套函数的内部编译器错误

1 个答案: