double _g1h_Integrald(int hole_k, int nknsq, double *jac, unsigned short supp1,
                      double *func1, unsigned short supp2, double *func2) {
  int i, k;
  long double s;
  unsigned short supp;
  double *f1, *f2, *jc;
  supp = (unsigned short)(supp1 & supp2);
  s = 0.0;
  for (k = 0; k < hole_k; k++)
    if (supp & (0x0001 << k)) {
      jc = &jac[k * nknsq];
      f1 = &func1[k * nknsq];
      f2 = &func2[k * nknsq];
      for (i = 0; i < nknsq; i++)
        s += f1[i] * f2[i] * jc[i];
    }
  s /= (double)(nknsq);
  return (double)s;
}


x86 assembly (clang, -O0):
<_g1h_Integrald>:
push   %rbp
mov    %rsp,%rbp
mov    %r9w,%ax
mov    0x10(%rbp),%r9
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %rdx,-0x10(%rbp)
mov    %cx,-0x12(%rbp)
mov    %r8,-0x20(%rbp)
mov    %ax,-0x22(%rbp)
movzwl -0x12(%rbp),%eax
movzwl -0x22(%rbp),%ecx
and    %ecx,%eax
mov    %ax,-0x42(%rbp)
fldz
fstpt  -0x40(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    121e <_g1h_Integrald+0x11e>
movzwl -0x42(%rbp),%eax
mov    -0x2c(%rbp),%ecx
mov    $0x1,%edx
shl    %cl,%edx
mov    %edx,%ecx
and    %ecx,%eax
cmp    $0x0,%eax
je     120b <_g1h_Integrald+0x10b>
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0x8(%rbp),%ecx
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x60(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0x8(%rbp),%ecx
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x50(%rbp)
mov    0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0x8(%rbp),%ecx
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x58(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    1206 <_g1h_Integrald+0x106>
mov    -0x50(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x58(%rbp),%rax
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm1,%xmm0
mov    -0x60(%rbp),%rax
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x78(%rbp)
fldl   -0x78(%rbp)
fldt   -0x40(%rbp)
faddp  %st,%st(1)
fstpt  -0x40(%rbp)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    11b5 <_g1h_Integrald+0xb5>
jmp    120b <_g1h_Integrald+0x10b>
jmp    1210 <_g1h_Integrald+0x110>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    113c <_g1h_Integrald+0x3c>
cvtsi2sdl -0x8(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
fldl   -0x68(%rbp)
fldt   -0x40(%rbp)
fdivp  %st,%st(1)
fstpt  -0x40(%rbp)
fldt   -0x40(%rbp)
fstpl  -0x70(%rbp)
movsd  -0x70(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<_g1h_Integrald>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %r8,-0x30(%rsp)
mov    %rdx,-0x38(%rsp)
fldz
test   %edi,%edi
fldz
fldz
jle    1265 <_g1h_Integrald+0x165>
fstp   %st(1)
fstp   %st(1)
fstp   %st(0)
mov    0x38(%rsp),%rdx
and    %ecx,%r9d
movzwl %r9w,%r14d
movslq %esi,%rcx
mov    %edi,%r15d
mov    %ecx,%r11d
mov    %r11d,%r13d
and    $0xfffffffe,%r13d
mov    -0x30(%rsp),%rax
lea    0x8(%rax),%rbx
mov    %rcx,-0x28(%rsp)
lea    0x0(,%rcx,8),%r12
lea    0x8(%rdx),%rbp
mov    -0x38(%rsp),%rax
lea    0x8(%rax),%rdi
fldz
xor    %ecx,%ecx
fld    %st(0)
fldz
fxch   %st(2)
fxch   %st(1)
jmp    119c <_g1h_Integrald+0x9c>
cs nopw 0x0(%rax,%rax,1)
nop
fldz
fstp   %st(0)
add    $0x1,%rcx
add    %r12,%rbx
add    %r12,%rbp
add    %r12,%rdi
fld    %st(1)
cmp    %r15,%rcx
je     1265 <_g1h_Integrald+0x165>
fstp   %st(2)
bt     %ecx,%r14d
jae    1180 <_g1h_Integrald+0x80>
test   %esi,%esi
jle    1180 <_g1h_Integrald+0x80>
cmp    $0x1,%esi
jne    11b3 <_g1h_Integrald+0xb3>
fld    %st(0)
xor    %eax,%eax
jmp    1209 <_g1h_Integrald+0x109>
xor    %eax,%eax
fldz
fxch   %st(2)
nopl   0x0(%rax)
fstp   %st(2)
movsd  -0x8(%rbx,%rax,8),%xmm0
mulsd  -0x8(%rbp,%rax,8),%xmm0
movsd  (%rbx,%rax,8),%xmm1
mulsd  -0x8(%rdi,%rax,8),%xmm0
movsd  %xmm0,-0x10(%rsp)
fxch   %st(1)
faddl  -0x10(%rsp)
mulsd  0x0(%rbp,%rax,8),%xmm1
mulsd  (%rdi,%rax,8),%xmm1
movsd  %xmm1,-0x8(%rsp)
faddl  -0x8(%rsp)
add    $0x2,%rax
fld    %st(0)
cmp    %rax,%r13
fxch   %st(2)
fxch   %st(1)
jne    11c0 <_g1h_Integrald+0xc0>
test   $0x1,%r11b
fxch   %st(2)
je     1182 <_g1h_Integrald+0x82>
fstp   %st(2)
mov    %rcx,%r10
imul   -0x28(%rsp),%r10
mov    -0x38(%rsp),%rdx
lea    (%rdx,%r10,8),%r9
mov    -0x30(%rsp),%rdx
lea    (%rdx,%r10,8),%r8
mov    0x38(%rsp),%rdx
lea    (%rdx,%r10,8),%rdx
movsd  (%r8,%rax,8),%xmm0
mulsd  (%rdx,%rax,8),%xmm0
mulsd  (%r9,%rax,8),%xmm0
movsd  %xmm0,-0x18(%rsp)
fxch   %st(1)
faddl  -0x18(%rsp)
fldz
fxch   %st(1)
fxch   %st(2)
fxch   %st(1)
jmp    1182 <_g1h_Integrald+0x82>
fstp   %st(1)
fstp   %st(0)
mov    %esi,-0x3c(%rsp)
fidivl -0x3c(%rsp)
fstpl  -0x20(%rsp)
movsd  -0x20(%rsp),%xmm0
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define double @_g1h_Integrald(i32 %0, i32 %1, double* %2, i16 zeroext %3, double* %4, i16 zeroext %5, double* %6) {
%8 = alloca i32
%9 = alloca i32
%10 = alloca double*
%11 = alloca i16
%12 = alloca double*
%13 = alloca i16
%14 = alloca double*
%15 = alloca i32
%16 = alloca i32
%17 = alloca x86_fp80
%18 = alloca i16
%19 = alloca double*
%20 = alloca double*
%21 = alloca double*
store i32 %0, i32* %8
store i32 %1, i32* %9
store double* %2, double** %10
store i16 %3, i16* %11
store double* %4, double** %12
store i16 %5, i16* %13
store double* %6, double** %14
%22 = load i16, i16* %11
%23 = zext i16 %22 to i32
%24 = load i16, i16* %13
%25 = zext i16 %24 to i32
%26 = and i32 %23, %25
%27 = trunc i32 %26 to i16
store i16 %27, i16* %18
store x86_fp80 0xK00000000000000000000, x86_fp80* %17
store i32 0, i32* %16
br label %28
28: ; preds = %88, %7
%29 = load i32, i32* %16
%30 = load i32, i32* %8
%31 = icmp slt i32 %29, %30
br i1 %31, label %32, label %91
32: ; preds = %28
%33 = load i16, i16* %18
%34 = zext i16 %33 to i32
%35 = load i32, i32* %16
%36 = shl i32 1, %35
%37 = and i32 %34, %36
%38 = icmp ne i32 %37, 0
br i1 %38, label %39, label %87
39: ; preds = %32
%40 = load double*, double** %10
%41 = load i32, i32* %16
%42 = load i32, i32* %9
%43 = mul nsw i32 %41, %42
%44 = sext i32 %43 to i64
%45 = getelementptr inbounds double, double* %40, i64 %44
store double* %45, double** %21
%46 = load double*, double** %12
%47 = load i32, i32* %16
%48 = load i32, i32* %9
%49 = mul nsw i32 %47, %48
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds double, double* %46, i64 %50
store double* %51, double** %19
%52 = load double*, double** %14
%53 = load i32, i32* %16
%54 = load i32, i32* %9
%55 = mul nsw i32 %53, %54
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds double, double* %52, i64 %56
store double* %57, double** %20
store i32 0, i32* %15
br label %58
58: ; preds = %83, %39
%59 = load i32, i32* %15
%60 = load i32, i32* %9
%61 = icmp slt i32 %59, %60
br i1 %61, label %62, label %86
62: ; preds = %58
%63 = load double*, double** %19
%64 = load i32, i32* %15
%65 = sext i32 %64 to i64
%66 = getelementptr inbounds double, double* %63, i64 %65
%67 = load double, double* %66
%68 = load double*, double** %20
%69 = load i32, i32* %15
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds double, double* %68, i64 %70
%72 = load double, double* %71
%73 = fmul double %67, %72
%74 = load double*, double** %21
%75 = load i32, i32* %15
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds double, double* %74, i64 %76
%78 = load double, double* %77
%79 = fmul double %73, %78
%80 = fpext double %79 to x86_fp80
%81 = load x86_fp80, x86_fp80* %17
%82 = fadd x86_fp80 %81, %80
store x86_fp80 %82, x86_fp80* %17
br label %83
83: ; preds = %62
%84 = load i32, i32* %15
%85 = add nsw i32 %84, 1
store i32 %85, i32* %15
br label %58
86: ; preds = %58
br label %87
87: ; preds = %86, %32
br label %88
88: ; preds = %87
%89 = load i32, i32* %16
%90 = add nsw i32 %89, 1
store i32 %90, i32* %16
br label %28
91: ; preds = %28
%92 = load i32, i32* %9
%93 = sitofp i32 %92 to double
%94 = fpext double %93 to x86_fp80
%95 = load x86_fp80, x86_fp80* %17
%96 = fdiv x86_fp80 %95, %94
store x86_fp80 %96, x86_fp80* %17
%97 = load x86_fp80, x86_fp80* %17
%98 = fptrunc x86_fp80 %97 to double
ret double %98
}

LLVM IR (-O2):
define double @_g1h_Integrald(i32 %0, i32 %1, double* nocapture %2, i16 zeroext %3, double* nocapture %4, i16 zeroext %5, double* nocapture %6) {
%8 = icmp sgt i32 %0, 0
br i1 %8, label %9, label %80
9: ; preds = %7
%10 = and i16 %5, %3
%11 = zext i16 %10 to i32
%12 = icmp sgt i32 %1, 0
%13 = sext i32 %1 to i64
%14 = zext i32 %0 to i64
%15 = zext i32 %1 to i64
%16 = and i64 %15, 1
%17 = icmp eq i32 %1, 1
%18 = and i64 %15, 4294967294
%19 = icmp eq i64 %16, 0
br label %20
20: ; preds = %9, %76
%21 = phi i64 [ 0, %9 ], [ %78, %76 ]
%22 = phi x86_fp80 [ 0xK00000000000000000000, %9 ], [ %77, %76 ]
%23 = trunc i64 %21 to i32
%24 = shl nuw i32 1, %23
%25 = and i32 %24, %11
%26 = icmp eq i32 %25, 0
br i1 %26, label %76, label %27
27: ; preds = %20
%28 = mul nsw i64 %21, %13
%29 = getelementptr inbounds double, double* %2, i64 %28
%30 = getelementptr inbounds double, double* %4, i64 %28
%31 = getelementptr inbounds double, double* %6, i64 %28
br i1 %12, label %32, label %76
32: ; preds = %27
br i1 %17, label %61, label %33
33: ; preds = %32, %33
%34 = phi i64 [ %58, %33 ], [ 0, %32 ]
%35 = phi x86_fp80 [ %57, %33 ], [ %22, %32 ]
%36 = phi i64 [ %59, %33 ], [ 0, %32 ]
%37 = getelementptr inbounds double, double* %30, i64 %34
%38 = load double, double* %37
%39 = getelementptr inbounds double, double* %31, i64 %34
%40 = load double, double* %39
%41 = fmul double %38, %40
%42 = getelementptr inbounds double, double* %29, i64 %34
%43 = load double, double* %42
%44 = fmul double %41, %43
%45 = fpext double %44 to x86_fp80
%46 = fadd x86_fp80 %35, %45
%47 = or i64 %34, 1
%48 = getelementptr inbounds double, double* %30, i64 %47
%49 = load double, double* %48
%50 = getelementptr inbounds double, double* %31, i64 %47
%51 = load double, double* %50
%52 = fmul double %49, %51
%53 = getelementptr inbounds double, double* %29, i64 %47
%54 = load double, double* %53
%55 = fmul double %52, %54
%56 = fpext double %55 to x86_fp80
%57 = fadd x86_fp80 %46, %56
%58 = add nuw nsw i64 %34, 2
%59 = add i64 %36, 2
%60 = icmp eq i64 %59, %18
br i1 %60, label %61, label %33
61: ; preds = %33, %32
%62 = phi x86_fp80 [ undef, %32 ], [ %57, %33 ]
%63 = phi i64 [ 0, %32 ], [ %58, %33 ]
%64 = phi x86_fp80 [ %22, %32 ], [ %57, %33 ]
br i1 %19, label %76, label %65
65: ; preds = %61
%66 = getelementptr inbounds double, double* %30, i64 %63
%67 = load double, double* %66
%68 = getelementptr inbounds double, double* %31, i64 %63
%69 = load double, double* %68
%70 = fmul double %67, %69
%71 = getelementptr inbounds double, double* %29, i64 %63
%72 = load double, double* %71
%73 = fmul double %70, %72
%74 = fpext double %73 to x86_fp80
%75 = fadd x86_fp80 %64, %74
br label %76
76: ; preds = %65, %61, %27, %20
%77 = phi x86_fp80 [ %22, %20 ], [ %22, %27 ], [ %62, %61 ], [ %75, %65 ]
%78 = add nuw nsw i64 %21, 1
%79 = icmp eq i64 %78, %14
br i1 %79, label %80, label %20
80: ; preds = %76, %7
%81 = phi x86_fp80 [ 0xK00000000000000000000, %7 ], [ %77, %76 ]
%82 = sitofp i32 %1 to x86_fp80
%83 = fdiv x86_fp80 %81, %82
%84 = fptrunc x86_fp80 %83 to double
ret double %84
}