#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ f3_coef(double *, int, int, int, double, double, double);
double fabs(int);
double moment_1d(int l1, int l2, int mx, double PAx, double PBx, double PCx,
                 double eta) {
  int i;
  double f[2 * 8 + 8];
  double sum = 0.0;
  double p;
  f3_coef(f, l1, l2, mx, PAx, PBx, PCx);
  eta = eta / 2.0;
  p = 1.0;
  for (i = 0; i < (l1 + l2 + mx) / 2 + 1; i++) {
    p *= fabs(i + i - 1);
    sum += f[i + i] * p;
    p *= eta;
  }
  return sum;
}


x86 assembly (clang, -O0):
<moment_1d>:
push   %rbp
mov    %rsp,%rbp
sub    $0x120,%rsp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %edx,-0xc(%rbp)
movsd  %xmm0,-0x18(%rbp)
movsd  %xmm1,-0x20(%rbp)
movsd  %xmm2,-0x28(%rbp)
movsd  %xmm3,-0x30(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x108(%rbp)
ff
lea    -0x100(%rbp),%rdi
mov    -0x4(%rbp),%esi
mov    -0x8(%rbp),%edx
mov    -0xc(%rbp),%ecx
movsd  -0x18(%rbp),%xmm0
movsd  -0x20(%rbp),%xmm1
movsd  -0x28(%rbp),%xmm2
call   1030 <f3_coef@plt>
movsd  -0x30(%rbp),%xmm0
movsd  0xe84(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  0xe6b(%rip),%xmm0
movsd  %xmm0,-0x110(%rbp)
ff
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    %eax,-0x114(%rbp)
mov    -0x4(%rbp),%eax
add    -0x8(%rbp),%eax
add    -0xc(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x114(%rbp),%eax
add    $0x1,%ecx
cmp    %ecx,%eax
jge    1243 <moment_1d+0x123>
mov    -0x34(%rbp),%edi
add    -0x34(%rbp),%edi
sub    $0x1,%edi
call   1040 <fabs@plt>
mulsd  -0x110(%rbp),%xmm0
ff
movsd  %xmm0,-0x110(%rbp)
ff
mov    -0x34(%rbp),%eax
add    -0x34(%rbp),%eax
cltq
movsd  -0x100(%rbp,%rax,8),%xmm0
ff ff
movsd  -0x110(%rbp),%xmm2
ff
movsd  -0x108(%rbp),%xmm1
ff
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x108(%rbp)
ff
movsd  -0x30(%rbp),%xmm0
mulsd  -0x110(%rbp),%xmm0
ff
movsd  %xmm0,-0x110(%rbp)
ff
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    11a4 <moment_1d+0x84>
movsd  -0x108(%rbp),%xmm0
ff
add    $0x120,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<moment_1d>:
push   %rbp
push   %r14
push   %rbx
sub    $0xe0,%rsp
movsd  %xmm3,0x18(%rsp)
mov    %edx,%r14d
mov    %esi,%ebx
mov    %edi,%ebp
lea    0x20(%rsp),%rdi
mov    %ebp,%esi
mov    %ebx,%edx
mov    %r14d,%ecx
call   1030 <f3_coef@plt>
add    %ebp,%ebx
add    %r14d,%ebx
xorpd  %xmm0,%xmm0
cmp    $0xffffffff,%ebx
jl     124e <moment_1d+0x12e>
mov    %ebx,%r14d
shr    $0x1f,%r14d
add    %ebx,%r14d
sar    %r14d
add    $0x1,%r14d
add    $0x1,%ebx
cmp    $0x3,%ebx
jae    1187 <moment_1d+0x67>
xorpd  %xmm0,%xmm0
movsd  0xe88(%rip),%xmm2
xor    %ebx,%ebx
jmp    121a <moment_1d+0xfa>
movsd  0x18(%rsp),%xmm1
mulsd  0xe6b(%rip),%xmm1
mov    %r14d,%ebp
and    $0xfffffffe,%ebp
xorpd  %xmm0,%xmm0
movsd  0xe61(%rip),%xmm2
xor    %ebx,%ebx
movsd  %xmm1,0x18(%rsp)
nop
movsd  %xmm2,0x8(%rsp)
movsd  %xmm0,0x10(%rsp)
lea    -0x1(%rbx),%edi
call   1040 <fabs@plt>
mulsd  0x8(%rsp),%xmm0
movsd  0x18(%rsp),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,0x8(%rsp)
mulsd  0x20(%rsp,%rbx,8),%xmm0
addsd  0x10(%rsp),%xmm0
movsd  %xmm0,0x10(%rsp)
lea    0x1(%rbx),%edi
call   1040 <fabs@plt>
movsd  0x18(%rsp),%xmm2
mulsd  0x8(%rsp),%xmm0
mulsd  %xmm0,%xmm2
mulsd  0x30(%rsp,%rbx,8),%xmm0
addsd  0x10(%rsp),%xmm0
add    $0x4,%rbx
add    $0xfffffffffffffffe,%rbp
jne    11b0 <moment_1d+0x90>
test   $0x1,%r14b
je     124e <moment_1d+0x12e>
lea    -0x1(%rbx),%edi
movsd  %xmm0,0x10(%rsp)
movsd  %xmm2,0x8(%rsp)
call   1040 <fabs@plt>
movsd  0x8(%rsp),%xmm1
mulsd  %xmm0,%xmm1
movsd  0x10(%rsp),%xmm0
mulsd  0x20(%rsp,%rbx,8),%xmm1
addsd  %xmm1,%xmm0
add    $0xe0,%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
define double @moment_1d(i32 %0, i32 %1, i32 %2, double %3, double %4, double %5, double %6) {
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca double
%12 = alloca double
%13 = alloca double
%14 = alloca double
%15 = alloca i32
%16 = alloca [24 x double]
%17 = alloca double
%18 = alloca double
store i32 %0, i32* %8
store i32 %1, i32* %9
store i32 %2, i32* %10
store double %3, double* %11
store double %4, double* %12
store double %5, double* %13
store double %6, double* %14
store double 0.000000e+00, double* %17
%19 = getelementptr inbounds [24 x double], [24 x double]* %16, i64 0, i64 0
%20 = load i32, i32* %8
%21 = load i32, i32* %9
%22 = load i32, i32* %10
%23 = load double, double* %11
%24 = load double, double* %12
%25 = load double, double* %13
%26 = call i32 @f3_coef(double* %19, i32 %20, i32 %21, i32 %22, double %23, double %24, double %25)
%27 = load double, double* %14
%28 = fdiv double %27, 2.000000e+00
store double %28, double* %14
store double 1.000000e+00, double* %18
store i32 0, i32* %15
br label %29
29: ; preds = %59, %7
%30 = load i32, i32* %15
%31 = load i32, i32* %8
%32 = load i32, i32* %9
%33 = add nsw i32 %31, %32
%34 = load i32, i32* %10
%35 = add nsw i32 %33, %34
%36 = sdiv i32 %35, 2
%37 = add nsw i32 %36, 1
%38 = icmp slt i32 %30, %37
br i1 %38, label %39, label %62
39: ; preds = %29
%40 = load i32, i32* %15
%41 = load i32, i32* %15
%42 = add nsw i32 %40, %41
%43 = sub nsw i32 %42, 1
%44 = call double @fabs(i32 %43)
%45 = load double, double* %18
%46 = fmul double %45, %44
store double %46, double* %18
%47 = load i32, i32* %15
%48 = load i32, i32* %15
%49 = add nsw i32 %47, %48
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds [24 x double], [24 x double]* %16, i64 0, i64 %50
%52 = load double, double* %51
%53 = load double, double* %18
%54 = load double, double* %17
%55 = call double @llvm.fmuladd.f64(double %52, double %53, double %54)
store double %55, double* %17
%56 = load double, double* %14
%57 = load double, double* %18
%58 = fmul double %57, %56
store double %58, double* %18
br label %59
59: ; preds = %39
%60 = load i32, i32* %15
%61 = add nsw i32 %60, 1
store i32 %61, i32* %15
br label %29
62: ; preds = %29
%63 = load double, double* %17
ret double %63
}

LLVM IR (-O2):
define double @moment_1d(i32 %0, i32 %1, i32 %2, double %3, double %4, double %5, double %6) {
%8 = alloca [24 x double]
%9 = bitcast [24 x double]* %8 to i8*
%10 = getelementptr inbounds [24 x double], [24 x double]* %8, i64 0, i64 0
%11 = call i32 @f3_coef(double* %10, i32 %0, i32 %1, i32 %2, double %3, double %4, double %5)
%12 = fmul double %6, 5.000000e-01
%13 = add nsw i32 %1, %0
%14 = add nsw i32 %13, %2
%15 = icmp slt i32 %14, -1
br i1 %15, label %68, label %16
16: ; preds = %7
%17 = sdiv i32 %14, 2
%18 = add nuw nsw i32 %17, 1
%19 = zext i32 %18 to i64
%20 = and i64 %19, 1
%21 = add i32 %14, 1
%22 = icmp ult i32 %21, 3
br i1 %22, label %54, label %23
23: ; preds = %16
%24 = and i64 %19, 4294967294
br label %25
25: ; preds = %25, %23
%26 = phi i64 [ 0, %23 ], [ %49, %25 ]
%27 = phi double [ 1.000000e+00, %23 ], [ %48, %25 ]
%28 = phi double [ 0.000000e+00, %23 ], [ %47, %25 ]
%29 = phi i64 [ 0, %23 ], [ %50, %25 ]
%30 = shl nuw nsw i64 %26, 1
%31 = trunc i64 %30 to i32
%32 = add i32 %31, -1
%33 = call double @fabs(i32 %32)
%34 = fmul double %27, %33
%35 = getelementptr inbounds [24 x double], [24 x double]* %8, i64 0, i64 %30
%36 = load double, double* %35
%37 = call double @llvm.fmuladd.f64(double %36, double %34, double %28)
%38 = fmul double %12, %34
%39 = shl nuw i64 %26, 1
%40 = or i64 %39, 2
%41 = trunc i64 %40 to i32
%42 = add nsw i32 %41, -1
%43 = call double @fabs(i32 %42)
%44 = fmul double %38, %43
%45 = getelementptr inbounds [24 x double], [24 x double]* %8, i64 0, i64 %40
%46 = load double, double* %45
%47 = call double @llvm.fmuladd.f64(double %46, double %44, double %37)
%48 = fmul double %12, %44
%49 = add nuw nsw i64 %26, 2
%50 = add i64 %29, 2
%51 = icmp eq i64 %50, %24
br i1 %51, label %52, label %25
52: ; preds = %25
%53 = shl nuw i64 %49, 1
br label %54
54: ; preds = %52, %16
%55 = phi double [ undef, %16 ], [ %47, %52 ]
%56 = phi i64 [ 0, %16 ], [ %53, %52 ]
%57 = phi double [ 1.000000e+00, %16 ], [ %48, %52 ]
%58 = phi double [ 0.000000e+00, %16 ], [ %47, %52 ]
%59 = icmp eq i64 %20, 0
br i1 %59, label %68, label %60
60: ; preds = %54
%61 = trunc i64 %56 to i32
%62 = add i32 %61, -1
%63 = call double @fabs(i32 %62)
%64 = fmul double %57, %63
%65 = getelementptr inbounds [24 x double], [24 x double]* %8, i64 0, i64 %56
%66 = load double, double* %65
%67 = call double @llvm.fmuladd.f64(double %66, double %64, double %58)
br label %68
68: ; preds = %60, %54, %7
%69 = phi double [ 0.000000e+00, %7 ], [ %55, %54 ], [ %67, %60 ]
ret double %69
}