void rick_gauleg(x1, x2, x, w, n) double x1;
double x2;
double *x;
double *w;
int n;
{
  int i, j, m;
  double p1, p2, p3, pp, xl, xm, z, z1;
  pp = 0.0;
  m = (n + 1) / 2;
  xm = 0.5 * (x2 + x1);
  xl = 0.5 * (x2 - x1);
  for (i = 0; i < m; i++) {
    z = cos(3.1415926535897932384626433832795 * (i + .75) / (n + .5));
    z1 = -2.0;
    while (fabs(z - z1) > 5.e-15) {
      p1 = 1.0;
      p2 = 0.0;
      for (j = 1; j <= n; j++) {
        p3 = p2;
        p2 = p1;
        p1 = ((2.0 * (double)j - 1.0) * z * p2 - (j - 1.0) * p3) / (double)j;
      }
      pp = (double)n * (z * p1 - p2) / (z * z - 1.0);
      z1 = z;
      z = z1 - p1 / pp;
    }
    x[i] = xm - xl * z;
    x[n - i - 1] = xm + xl * z;
    w[i] = 2.0 * xl / ((1.0 - z * z) * pp * pp);
    w[n - i - 1] = w[i];
  }
}


x86 assembly (clang, -O0):
<rick_gauleg>:
push   %rbp
mov    %rsp,%rbp
sub    $0x70,%rsp
movsd  %xmm0,-0x8(%rbp)
movsd  %xmm1,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
mov    %rsi,-0x20(%rbp)
mov    %edx,-0x24(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x30(%rbp)
movsd  -0x10(%rbp),%xmm1
addsd  -0x8(%rbp),%xmm1
movsd  0xea8(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x10(%rbp),%xmm1
subsd  -0x8(%rbp),%xmm1
movsd  0xe8d(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x58(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x30(%rbp),%eax
jge    141c <rick_gauleg+0x30c>
cvtsi2sdl -0x28(%rbp),%xmm1
movsd  0xe7c(%rip),%xmm0
addsd  %xmm0,%xmm1
movsd  0xe68(%rip),%xmm0
mulsd  %xmm1,%xmm0
cvtsi2sdl -0x24(%rbp),%xmm1
movsd  0xe47(%rip),%xmm2
addsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
call   1030 <cos@plt>
movsd  %xmm0,-0x68(%rbp)
movsd  0xe35(%rip),%xmm0
movsd  %xmm0,-0x70(%rbp)
movsd  -0x68(%rbp),%xmm0
subsd  -0x70(%rbp),%xmm0
movaps 0xe57(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  0xe2b(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    132c <rick_gauleg+0x21c>
movsd  0xe21(%rip),%xmm0
movsd  %xmm0,-0x38(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
movl   $0x1,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jg     12ab <rick_gauleg+0x19b>
movsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
cvtsi2sdl -0x2c(%rbp),%xmm0
addsd  %xmm0,%xmm0
movsd  0xdec(%rip),%xmm1
addsd  %xmm1,%xmm0
mulsd  -0x68(%rbp),%xmm0
movsd  -0x40(%rbp),%xmm2
cvtsi2sdl -0x2c(%rbp),%xmm1
movsd  0xdc1(%rip),%xmm3
subsd  %xmm3,%xmm1
mulsd  -0x48(%rbp),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
cvtsi2sdl -0x2c(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    121b <rick_gauleg+0x10b>
cvtsi2sdl -0x24(%rbp),%xmm0
movsd  -0x68(%rbp),%xmm1
movsd  -0x38(%rbp),%xmm3
movsd  -0x40(%rbp),%xmm2
movq   %xmm2,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm2
mulsd  %xmm3,%xmm1
addsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
movsd  -0x68(%rbp),%xmm1
movsd  -0x68(%rbp),%xmm2
mulsd  %xmm2,%xmm1
movsd  0xd40(%rip),%xmm2
addsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x68(%rbp),%xmm0
movsd  %xmm0,-0x70(%rbp)
movsd  -0x70(%rbp),%xmm0
movsd  -0x38(%rbp),%xmm1
divsd  -0x50(%rbp),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x68(%rbp)
jmp    11d8 <rick_gauleg+0xc8>
movsd  -0x60(%rbp),%xmm1
movsd  -0x58(%rbp),%xmm0
movsd  -0x68(%rbp),%xmm2
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x60(%rbp),%xmm1
movsd  -0x58(%rbp),%xmm0
movsd  -0x68(%rbp),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x18(%rbp),%rax
mov    -0x24(%rbp),%ecx
sub    -0x28(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  0xc95(%rip),%xmm0
mulsd  -0x58(%rbp),%xmm0
movsd  -0x68(%rbp),%xmm1
movsd  -0x68(%rbp),%xmm2
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm1
movsd  0xc5b(%rip),%xmm2
addsd  %xmm2,%xmm1
mulsd  -0x50(%rbp),%xmm1
mulsd  -0x50(%rbp),%xmm1
divsd  %xmm1,%xmm0
mov    -0x20(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
sub    -0x28(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1183 <rick_gauleg+0x73>
add    $0x70,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<rick_gauleg>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x58,%rsp
test   %edx,%edx
jle    134d <rick_gauleg+0x23d>
mov    %edx,%r14d
mov    %rsi,%r15
mov    %rdi,%r13
movapd %xmm0,%xmm3
movapd %xmm1,%xmm2
addsd  %xmm1,%xmm3
movsd  0xebd(%rip),%xmm1
mulsd  %xmm1,%xmm3
movsd  %xmm3,0x10(%rsp)
subsd  %xmm0,%xmm2
mulsd  %xmm1,%xmm2
lea    0x1(%r14),%eax
shr    $0x1f,%eax
add    %r14d,%eax
add    $0x1,%eax
cvtsi2sd %edx,%xmm8
sar    %eax
movsd  0xe8f(%rip),%xmm0
addsd  %xmm8,%xmm0
movsd  %xmm0,0x8(%rsp)
movapd 0xebc(%rip),%xmm0
xorpd  %xmm2,%xmm0
movapd %xmm0,0x30(%rsp)
movapd %xmm2,0x40(%rsp)
addsd  %xmm2,%xmm2
movapd %xmm2,0x20(%rsp)
cmp    $0x2,%eax
mov    $0x1,%r12d
cmovge %eax,%r12d
mov    %edx,%ebx
neg    %ebx
xorpd  %xmm3,%xmm3
xor    %ebp,%ebp
movsd  %xmm8,(%rsp)
jmp    1244 <rick_gauleg+0x134>
movapd %xmm0,%xmm2
movsd  0xe5b(%rip),%xmm9
movsd  0x18(%rsp),%xmm3
movapd 0x30(%rsp),%xmm0
mulsd  %xmm2,%xmm0
movsd  0x10(%rsp),%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,0x0(%r13,%rbp,8)
movapd 0x40(%rsp),%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    %ebp,%eax
not    %eax
add    %r14d,%eax
cltq
movsd  %xmm0,0x0(%r13,%rax,8)
mulsd  %xmm2,%xmm2
movapd %xmm9,%xmm0
subsd  %xmm2,%xmm0
mulsd  %xmm3,%xmm0
mulsd  %xmm3,%xmm0
movapd 0x20(%rsp),%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,(%r15,%rbp,8)
movsd  %xmm1,(%r15,%rax,8)
add    $0x1,%rbp
cmp    %r12,%rbp
je     134d <rick_gauleg+0x23d>
movsd  %xmm3,0x18(%rsp)
xorps  %xmm0,%xmm0
cvtsi2sd %ebp,%xmm0
addsd  0xdaf(%rip),%xmm0
mulsd  0xdaf(%rip),%xmm0
divsd  0x8(%rsp),%xmm0
call   1030 <cos@plt>
movsd  0xdac(%rip),%xmm7
movapd 0xdd4(%rip),%xmm6
movapd %xmm0,%xmm1
addsd  0xd90(%rip),%xmm1
andpd  %xmm6,%xmm1
ucomisd %xmm7,%xmm1
jbe    11c0 <rick_gauleg+0xb0>
movsd  (%rsp),%xmm8
movsd  0xd83(%rip),%xmm9
movsd  0xd83(%rip),%xmm5
nopl   (%rax)
xorpd  %xmm2,%xmm2
mov    $0x1,%eax
movapd %xmm9,%xmm1
xchg   %ax,%ax
xorps  %xmm3,%xmm3
cvtsi2sd %eax,%xmm3
movapd %xmm3,%xmm4
addsd  %xmm5,%xmm4
mulsd  %xmm2,%xmm4
movapd %xmm1,%xmm2
movapd %xmm3,%xmm1
addsd  %xmm3,%xmm1
addsd  %xmm5,%xmm1
mulsd  %xmm0,%xmm1
mulsd  %xmm2,%xmm1
subsd  %xmm4,%xmm1
divsd  %xmm3,%xmm1
lea    (%rbx,%rax,1),%ecx
add    $0x1,%ecx
add    $0x1,%eax
cmp    $0x1,%ecx
jne    12c0 <rick_gauleg+0x1b0>
movapd %xmm0,%xmm3
mulsd  %xmm1,%xmm3
subsd  %xmm2,%xmm3
mulsd  %xmm8,%xmm3
movapd %xmm0,%xmm2
mulsd  %xmm0,%xmm2
addsd  %xmm5,%xmm2
divsd  %xmm2,%xmm3
divsd  %xmm3,%xmm1
movapd %xmm0,%xmm2
subsd  %xmm1,%xmm2
movapd %xmm2,%xmm1
subsd  %xmm0,%xmm1
andpd  %xmm6,%xmm1
ucomisd %xmm7,%xmm1
movapd %xmm2,%xmm0
ja     12b0 <rick_gauleg+0x1a0>
jmp    11d3 <rick_gauleg+0xc3>
add    $0x58,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @rick_gauleg(double %0, double %1, double* %2, double* %3, i32 %4) {
%6 = alloca double
%7 = alloca double
%8 = alloca double*
%9 = alloca double*
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca double
%15 = alloca double
%16 = alloca double
%17 = alloca double
%18 = alloca double
%19 = alloca double
%20 = alloca double
%21 = alloca double
store double %0, double* %6
store double %1, double* %7
store double* %2, double** %8
store double* %3, double** %9
store i32 %4, i32* %10
store double 0.000000e+00, double* %17
%22 = load i32, i32* %10
%23 = add nsw i32 %22, 1
%24 = sdiv i32 %23, 2
store i32 %24, i32* %13
%25 = load double, double* %7
%26 = load double, double* %6
%27 = fadd double %25, %26
%28 = fmul double 5.000000e-01, %27
store double %28, double* %19
%29 = load double, double* %7
%30 = load double, double* %6
%31 = fsub double %29, %30
%32 = fmul double 5.000000e-01, %31
store double %32, double* %18
store i32 0, i32* %11
br label %33
33: ; preds = %147, %5
%34 = load i32, i32* %11
%35 = load i32, i32* %13
%36 = icmp slt i32 %34, %35
br i1 %36, label %37, label %150
37: ; preds = %33
%38 = load i32, i32* %11
%39 = sitofp i32 %38 to double
%40 = fadd double %39, 7.500000e-01
%41 = fmul double 0x400921FB54442D18, %40
%42 = load i32, i32* %10
%43 = sitofp i32 %42 to double
%44 = fadd double %43, 5.000000e-01
%45 = fdiv double %41, %44
%46 = call double @cos(double %45)
store double %46, double* %20
store double -2.000000e+00, double* %21
br label %47
47: ; preds = %80, %37
%48 = load double, double* %20
%49 = load double, double* %21
%50 = fsub double %48, %49
%51 = call double @llvm.fabs.f64(double %50)
%52 = fcmp ogt double %51, 5.000000e-15
br i1 %52, label %53, label %99
53: ; preds = %47
store double 1.000000e+00, double* %14
store double 0.000000e+00, double* %15
store i32 1, i32* %12
br label %54
54: ; preds = %77, %53
%55 = load i32, i32* %12
%56 = load i32, i32* %10
%57 = icmp sle i32 %55, %56
br i1 %57, label %58, label %80
58: ; preds = %54
%59 = load double, double* %15
store double %59, double* %16
%60 = load double, double* %14
store double %60, double* %15
%61 = load i32, i32* %12
%62 = sitofp i32 %61 to double
%63 = call double @llvm.fmuladd.f64(double 2.000000e+00, double %62, double -1.000000e+00)
%64 = load double, double* %20
%65 = fmul double %63, %64
%66 = load double, double* %15
%67 = load i32, i32* %12
%68 = sitofp i32 %67 to double
%69 = fsub double %68, 1.000000e+00
%70 = load double, double* %16
%71 = fmul double %69, %70
%72 = fneg double %71
%73 = call double @llvm.fmuladd.f64(double %65, double %66, double %72)
%74 = load i32, i32* %12
%75 = sitofp i32 %74 to double
%76 = fdiv double %73, %75
store double %76, double* %14
br label %77
77: ; preds = %58
%78 = load i32, i32* %12
%79 = add nsw i32 %78, 1
store i32 %79, i32* %12
br label %54
80: ; preds = %54
%81 = load i32, i32* %10
%82 = sitofp i32 %81 to double
%83 = load double, double* %20
%84 = load double, double* %14
%85 = load double, double* %15
%86 = fneg double %85
%87 = call double @llvm.fmuladd.f64(double %83, double %84, double %86)
%88 = fmul double %82, %87
%89 = load double, double* %20
%90 = load double, double* %20
%91 = call double @llvm.fmuladd.f64(double %89, double %90, double -1.000000e+00)
%92 = fdiv double %88, %91
store double %92, double* %17
%93 = load double, double* %20
store double %93, double* %21
%94 = load double, double* %21
%95 = load double, double* %14
%96 = load double, double* %17
%97 = fdiv double %95, %96
%98 = fsub double %94, %97
store double %98, double* %20
br label %47
99: ; preds = %47
%100 = load double, double* %19
%101 = load double, double* %18
%102 = load double, double* %20
%103 = fneg double %101
%104 = call double @llvm.fmuladd.f64(double %103, double %102, double %100)
%105 = load double*, double** %8
%106 = load i32, i32* %11
%107 = sext i32 %106 to i64
%108 = getelementptr inbounds double, double* %105, i64 %107
store double %104, double* %108
%109 = load double, double* %19
%110 = load double, double* %18
%111 = load double, double* %20
%112 = call double @llvm.fmuladd.f64(double %110, double %111, double %109)
%113 = load double*, double** %8
%114 = load i32, i32* %10
%115 = load i32, i32* %11
%116 = sub nsw i32 %114, %115
%117 = sub nsw i32 %116, 1
%118 = sext i32 %117 to i64
%119 = getelementptr inbounds double, double* %113, i64 %118
store double %112, double* %119
%120 = load double, double* %18
%121 = fmul double 2.000000e+00, %120
%122 = load double, double* %20
%123 = load double, double* %20
%124 = fneg double %122
%125 = call double @llvm.fmuladd.f64(double %124, double %123, double 1.000000e+00)
%126 = load double, double* %17
%127 = fmul double %125, %126
%128 = load double, double* %17
%129 = fmul double %127, %128
%130 = fdiv double %121, %129
%131 = load double*, double** %9
%132 = load i32, i32* %11
%133 = sext i32 %132 to i64
%134 = getelementptr inbounds double, double* %131, i64 %133
store double %130, double* %134
%135 = load double*, double** %9
%136 = load i32, i32* %11
%137 = sext i32 %136 to i64
%138 = getelementptr inbounds double, double* %135, i64 %137
%139 = load double, double* %138
%140 = load double*, double** %9
%141 = load i32, i32* %10
%142 = load i32, i32* %11
%143 = sub nsw i32 %141, %142
%144 = sub nsw i32 %143, 1
%145 = sext i32 %144 to i64
%146 = getelementptr inbounds double, double* %140, i64 %145
store double %139, double* %146
br label %147
147: ; preds = %99
%148 = load i32, i32* %11
%149 = add nsw i32 %148, 1
store i32 %149, i32* %11
br label %33
150: ; preds = %33
ret void
}

LLVM IR (-O2):
define void @rick_gauleg(double %0, double %1, double* nocapture writeonly %2, double* nocapture writeonly %3, i32 %4) {
%6 = fadd double %0, %1
%7 = fmul double %6, 5.000000e-01
%8 = fsub double %1, %0
%9 = fmul double %8, 5.000000e-01
%10 = icmp sgt i32 %4, 0
br i1 %10, label %11, label %79
11: ; preds = %5
%12 = add nuw i32 %4, 1
%13 = sdiv i32 %12, 2
%14 = sitofp i32 %4 to double
%15 = fadd double %14, 5.000000e-01
%16 = fneg double %9
%17 = fmul double %9, 2.000000e+00
%18 = call i32 @llvm.smax.i32(i32 %13, i32 1)
%19 = zext i32 %18 to i64
br label %20
20: ; preds = %11, %59
%21 = phi i64 [ 0, %11 ], [ %77, %59 ]
%22 = phi double [ 0.000000e+00, %11 ], [ %60, %59 ]
%23 = trunc i64 %21 to i32
%24 = sitofp i32 %23 to double
%25 = fadd double %24, 7.500000e-01
%26 = fmul double %25, 0x400921FB54442D18
%27 = fdiv double %26, %15
%28 = tail call double @cos(double %27)
%29 = fadd double %28, 2.000000e+00
%30 = tail call double @llvm.fabs.f64(double %29)
%31 = fcmp ogt double %30, 5.000000e-15
br i1 %31, label %32, label %59
32: ; preds = %20, %48
%33 = phi double [ %55, %48 ], [ %28, %20 ]
br label %34
34: ; preds = %32, %34
%35 = phi i32 [ %46, %34 ], [ 1, %32 ]
%36 = phi double [ %45, %34 ], [ 1.000000e+00, %32 ]
%37 = phi double [ %36, %34 ], [ 0.000000e+00, %32 ]
%38 = sitofp i32 %35 to double
%39 = tail call double @llvm.fmuladd.f64(double %38, double 2.000000e+00, double -1.000000e+00)
%40 = fmul double %33, %39
%41 = fadd double %38, -1.000000e+00
%42 = fneg double %41
%43 = fmul double %37, %42
%44 = tail call double @llvm.fmuladd.f64(double %40, double %36, double %43)
%45 = fdiv double %44, %38
%46 = add nuw i32 %35, 1
%47 = icmp eq i32 %35, %4
br i1 %47, label %48, label %34
48: ; preds = %34
%49 = fneg double %36
%50 = tail call double @llvm.fmuladd.f64(double %33, double %45, double %49)
%51 = fmul double %50, %14
%52 = tail call double @llvm.fmuladd.f64(double %33, double %33, double -1.000000e+00)
%53 = fdiv double %51, %52
%54 = fdiv double %45, %53
%55 = fsub double %33, %54
%56 = fsub double %55, %33
%57 = tail call double @llvm.fabs.f64(double %56)
%58 = fcmp ogt double %57, 5.000000e-15
br i1 %58, label %32, label %59
59: ; preds = %48, %20
%60 = phi double [ %22, %20 ], [ %53, %48 ]
%61 = phi double [ %28, %20 ], [ %55, %48 ]
%62 = tail call double @llvm.fmuladd.f64(double %16, double %61, double %7)
%63 = getelementptr inbounds double, double* %2, i64 %21
store double %62, double* %63
%64 = tail call double @llvm.fmuladd.f64(double %9, double %61, double %7)
%65 = trunc i64 %21 to i32
%66 = xor i32 %65, -1
%67 = add i32 %66, %4
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds double, double* %2, i64 %68
store double %64, double* %69
%70 = fneg double %61
%71 = tail call double @llvm.fmuladd.f64(double %70, double %61, double 1.000000e+00)
%72 = fmul double %60, %71
%73 = fmul double %60, %72
%74 = fdiv double %17, %73
%75 = getelementptr inbounds double, double* %3, i64 %21
store double %74, double* %75
%76 = getelementptr inbounds double, double* %3, i64 %68
store double %74, double* %76
%77 = add nuw nsw i64 %21, 1
%78 = icmp eq i64 %77, %19
br i1 %78, label %79, label %20
79: ; preds = %59, %5
ret void
}