#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*/ fdjac(void (*)(double *, int, double *), double *, int,
                         double *, double *, double, double *);
void hessian_fdg(void (*funcgrad)(double *, int, double *), double *x, int N,
                 double *jac, double *dx, double eps2, double *H) {
  int i, j, k;
  fdjac(funcgrad, x, N, jac, dx, eps2, H);
  for (i = 0; i < N; ++i) {
    k = i * N;
    for (j = 0; j < N; ++j) {
      H[k + j] = (H[k + j] + H[j * N + i]) / 2.0;
    }
  }
}


x86 assembly (clang, -O0):
<hessian_fdg>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
movsd  %xmm0,-0x30(%rbp)
mov    %r9,-0x38(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
mov    -0x14(%rbp),%edx
mov    -0x20(%rbp),%rcx
mov    -0x28(%rbp),%r8
movsd  -0x30(%rbp),%xmm0
mov    -0x38(%rbp),%r9
call   1030 <fdjac@plt>
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11ec <hessian_fdg+0xdc>
mov    -0x3c(%rbp),%eax
imul   -0x14(%rbp),%eax
mov    %eax,-0x44(%rbp)
movl   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11d9 <hessian_fdg+0xc9>
mov    -0x38(%rbp),%rax
mov    -0x44(%rbp),%ecx
add    -0x40(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x38(%rbp),%rax
mov    -0x40(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  0xe4b(%rip),%xmm1
divsd  %xmm1,%xmm0
mov    -0x38(%rbp),%rax
mov    -0x44(%rbp),%ecx
add    -0x40(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    1179 <hessian_fdg+0x69>
jmp    11de <hessian_fdg+0xce>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    115c <hessian_fdg+0x4c>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<hessian_fdg>:
push   %rbp
push   %r15
push   %r14
push   %rbx
push   %rax
mov    %r9,%r15
mov    %edx,%r14d
call   1030 <fdjac@plt>
test   %r14d,%r14d
jle    11f5 <hessian_fdg+0xe5>
mov    %r14d,%r8d
mov    %r8d,%ecx
and    $0xfffffffe,%ecx
lea    0x8(%r15),%rdx
lea    0x0(,%r8,8),%rsi
mov    %r8,%rdi
shl    $0x4,%rdi
xor    %r10d,%r10d
movsd  0xeae(%rip),%xmm0
mov    %r15,%r9
jmp    1174 <hessian_fdg+0x64>
nopw   0x0(%rax,%rax,1)
add    $0x1,%r10
add    %rsi,%rdx
add    $0x8,%r9
cmp    %r8,%r10
je     11f5 <hessian_fdg+0xe5>
cmp    $0x1,%r14d
jne    1180 <hessian_fdg+0x70>
xor    %eax,%eax
jmp    11c3 <hessian_fdg+0xb3>
xchg   %ax,%ax
mov    %r9,%rbx
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
nop
movsd  -0x8(%rdx,%rax,8),%xmm1
movsd  (%rdx,%rax,8),%xmm2
addsd  (%rbx),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,-0x8(%rdx,%rax,8)
addsd  (%rbx,%rsi,1),%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,(%rdx,%rax,8)
add    $0x2,%rax
add    %rdi,%rbx
cmp    %rax,%rcx
jne    1190 <hessian_fdg+0x80>
test   $0x1,%r8b
je     1160 <hessian_fdg+0x50>
mov    %r10,%rbp
imul   %r8,%rbp
add    %rax,%rbp
movsd  (%r15,%rbp,8),%xmm1
imul   %r8,%rax
add    %r10,%rax
addsd  (%r15,%rax,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%r15,%rbp,8)
jmp    1160 <hessian_fdg+0x50>
add    $0x8,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @hessian_fdg(void (double*, i32, double*)* %0, double* %1, i32 %2, double* %3, double* %4, double %5, double* %6) {
%8 = alloca void (double*, i32, double*)*
%9 = alloca double*
%10 = alloca i32
%11 = alloca double*
%12 = alloca double*
%13 = alloca double
%14 = alloca double*
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
store void (double*, i32, double*)* %0, void (double*, i32, double*)** %8
store double* %1, double** %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
%18 = load void (double*, i32, double*)*, void (double*, i32, double*)** %8
%19 = load double*, double** %9
%20 = load i32, i32* %10
%21 = load double*, double** %11
%22 = load double*, double** %12
%23 = load double, double* %13
%24 = load double*, double** %14
%25 = call i32 @fdjac(void (double*, i32, double*)* %18, double* %19, i32 %20, double* %21, double* %22, double %23, double* %24)
store i32 0, i32* %15
br label %26
26: ; preds = %67, %7
%27 = load i32, i32* %15
%28 = load i32, i32* %10
%29 = icmp slt i32 %27, %28
br i1 %29, label %30, label %70
30: ; preds = %26
%31 = load i32, i32* %15
%32 = load i32, i32* %10
%33 = mul nsw i32 %31, %32
store i32 %33, i32* %17
store i32 0, i32* %16
br label %34
34: ; preds = %63, %30
%35 = load i32, i32* %16
%36 = load i32, i32* %10
%37 = icmp slt i32 %35, %36
br i1 %37, label %38, label %66
38: ; preds = %34
%39 = load double*, double** %14
%40 = load i32, i32* %17
%41 = load i32, i32* %16
%42 = add nsw i32 %40, %41
%43 = sext i32 %42 to i64
%44 = getelementptr inbounds double, double* %39, i64 %43
%45 = load double, double* %44
%46 = load double*, double** %14
%47 = load i32, i32* %16
%48 = load i32, i32* %10
%49 = mul nsw i32 %47, %48
%50 = load i32, i32* %15
%51 = add nsw i32 %49, %50
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds double, double* %46, i64 %52
%54 = load double, double* %53
%55 = fadd double %45, %54
%56 = fdiv double %55, 2.000000e+00
%57 = load double*, double** %14
%58 = load i32, i32* %17
%59 = load i32, i32* %16
%60 = add nsw i32 %58, %59
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds double, double* %57, i64 %61
store double %56, double* %62
br label %63
63: ; preds = %38
%64 = load i32, i32* %16
%65 = add nsw i32 %64, 1
store i32 %65, i32* %16
br label %34
66: ; preds = %34
br label %67
67: ; preds = %66
%68 = load i32, i32* %15
%69 = add nsw i32 %68, 1
store i32 %69, i32* %15
br label %26
70: ; preds = %26
ret void
}

LLVM IR (-O2):
define void @hessian_fdg(void (double*, i32, double*)* %0, double* %1, i32 %2, double* %3, double* %4, double %5, double* %6) {
%8 = tail call i32 @fdjac(void (double*, i32, double*)* %0, double* %1, i32 %2, double* %3, double* %4, double %5, double* %6)
%9 = icmp sgt i32 %2, 0
br i1 %9, label %10, label %60
10: ; preds = %7
%11 = zext i32 %2 to i64
%12 = zext i32 %2 to i64
%13 = and i64 %11, 1
%14 = icmp eq i32 %2, 1
%15 = and i64 %11, 4294967294
%16 = icmp eq i64 %13, 0
br label %17
17: ; preds = %57, %10
%18 = phi i64 [ 0, %10 ], [ %58, %57 ]
%19 = mul nsw i64 %18, %11
br i1 %14, label %45, label %20
20: ; preds = %17, %20
%21 = phi i64 [ %42, %20 ], [ 0, %17 ]
%22 = phi i64 [ %43, %20 ], [ 0, %17 ]
%23 = add nuw nsw i64 %21, %19
%24 = getelementptr inbounds double, double* %6, i64 %23
%25 = load double, double* %24
%26 = mul nsw i64 %21, %11
%27 = add nuw nsw i64 %26, %18
%28 = getelementptr inbounds double, double* %6, i64 %27
%29 = load double, double* %28
%30 = fadd double %25, %29
%31 = fmul double %30, 5.000000e-01
store double %31, double* %24
%32 = or i64 %21, 1
%33 = add nuw nsw i64 %32, %19
%34 = getelementptr inbounds double, double* %6, i64 %33
%35 = load double, double* %34
%36 = mul nsw i64 %32, %11
%37 = add nuw nsw i64 %36, %18
%38 = getelementptr inbounds double, double* %6, i64 %37
%39 = load double, double* %38
%40 = fadd double %35, %39
%41 = fmul double %40, 5.000000e-01
store double %41, double* %34
%42 = add nuw nsw i64 %21, 2
%43 = add i64 %22, 2
%44 = icmp eq i64 %43, %15
br i1 %44, label %45, label %20
45: ; preds = %20, %17
%46 = phi i64 [ 0, %17 ], [ %42, %20 ]
br i1 %16, label %57, label %47
47: ; preds = %45
%48 = add nuw nsw i64 %46, %19
%49 = getelementptr inbounds double, double* %6, i64 %48
%50 = load double, double* %49
%51 = mul nsw i64 %46, %11
%52 = add nuw nsw i64 %51, %18
%53 = getelementptr inbounds double, double* %6, i64 %52
%54 = load double, double* %53
%55 = fadd double %50, %54
%56 = fmul double %55, 5.000000e-01
store double %56, double* %49
br label %57
57: ; preds = %45, %47
%58 = add nuw nsw i64 %18, 1
%59 = icmp eq i64 %58, %12
br i1 %59, label %60, label %17
60: ; preds = %57, %7
ret void
}