#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 */
scalar_t__ DBL_EPSILON;
double exp(double const);
scalar_t__ fabs(double const);
void CalculateF(double *F, const double *d, double *space, const double factor,
                const int n) {
  int i, j;
  for (i = 0; i < n; i++)
    space[i] = exp(d[i] * factor);
  for (i = 0; i < n; i++)
    for (j = 0; j <= i; j++) {
      if (fabs(factor * (d[i] - d[j])) > DBL_EPSILON)
        F[i * n + j] = (space[i] - space[j]) / (factor * (d[i] - d[j]));
      else
        F[i * n + j] = space[i];
    }
  for (i = 0; i < n; i++)
    for (j = 0; j < i; j++)
      F[j * n + i] = F[i * n + j];
}


x86 assembly (clang, -O0):
<CalculateF>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movsd  %xmm0,-0x20(%rbp)
mov    %ecx,-0x24(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    1181 <CalculateF+0x61>
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mulsd  -0x20(%rbp),%xmm0
call   1040 <exp@plt>
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1143 <CalculateF+0x23>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    1284 <CalculateF+0x164>
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x28(%rbp),%eax
jg     1271 <CalculateF+0x151>
movsd  -0x20(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm1,%xmm0
call   1030 <fabs@plt>
mov    0x2e12(%rip),%rcx
cmp    (%rcx),%rax
jle    123b <CalculateF+0x11b>
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  -0x20(%rbp),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm2
mulsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%ecx
imul   -0x24(%rbp),%ecx
add    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    125e <CalculateF+0x13e>
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%ecx
imul   -0x24(%rbp),%ecx
add    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    1263 <CalculateF+0x143>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    119b <CalculateF+0x7b>
jmp    1276 <CalculateF+0x156>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1188 <CalculateF+0x68>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    12f7 <CalculateF+0x1d7>
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x28(%rbp),%eax
jge    12e4 <CalculateF+0x1c4>
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%ecx
imul   -0x24(%rbp),%ecx
add    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0x24(%rbp),%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    129e <CalculateF+0x17e>
jmp    12e9 <CalculateF+0x1c9>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    128b <CalculateF+0x16b>
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<CalculateF>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
test   %ecx,%ecx
jle    12e4 <CalculateF+0x1c4>
mov    %ecx,%r15d
movapd %xmm0,%xmm1
mov    %rdx,%rbp
mov    %rsi,%rbx
mov    %rdi,%r12
mov    %ecx,%r13d
xor    %r14d,%r14d
movsd  %xmm0,(%rsp)
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsd  (%rbx,%r14,8),%xmm0
mulsd  %xmm1,%xmm0
call   1040 <exp@plt>
movsd  (%rsp),%xmm1
movsd  %xmm0,0x0(%rbp,%r14,8)
add    $0x1,%r14
cmp    %r14,%r13
jne    1160 <CalculateF+0x40>
test   %r15d,%r15d
jle    12e4 <CalculateF+0x1c4>
mov    %r15d,0xc(%rsp)
lea    0x0(,%r13,8),%rax
mov    %rax,0x18(%rsp)
mov    $0x1,%r14d
xor    %r15d,%r15d
mov    %r12,0x10(%rsp)
mov    %r13,0x20(%rsp)
jmp    11d7 <CalculateF+0xb7>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
add    $0x1,%r15
add    $0x1,%r14
add    0x18(%rsp),%r12
mov    0x20(%rsp),%r13
cmp    %r13,%r15
je     1242 <CalculateF+0x122>
xor    %r13d,%r13d
jmp    1213 <CalculateF+0xf3>
nopl   0x0(%rax)
subsd  0x0(%rbp,%r13,8),%xmm0
movsd  (%rbx,%r15,8),%xmm1
subsd  (%rbx,%r13,8),%xmm1
movsd  (%rsp),%xmm2
mulsd  %xmm2,%xmm1
divsd  %xmm1,%xmm0
movapd %xmm2,%xmm1
movsd  %xmm0,(%r12,%r13,8)
add    $0x1,%r13
cmp    %r13,%r14
je     11c0 <CalculateF+0xa0>
movsd  (%rbx,%r15,8),%xmm0
subsd  (%rbx,%r13,8),%xmm0
mulsd  %xmm1,%xmm0
call   1030 <fabs@plt>
movsd  0x0(%rbp,%r15,8),%xmm0
mov    0x2db2(%rip),%rcx
cmp    (%rcx),%rax
jg     11e0 <CalculateF+0xc0>
movsd  (%rsp),%xmm1
jmp    1204 <CalculateF+0xe4>
cmpl   $0x0,0xc(%rsp)
mov    0x10(%rsp),%r9
jle    12e4 <CalculateF+0x1c4>
lea    0x8(%r9),%rax
lea    0x0(,%r13,8),%rcx
mov    %r13,%rdx
shl    $0x4,%rdx
xor    %ebx,%ebx
mov    %r9,%r8
jmp    1280 <CalculateF+0x160>
nopl   0x0(%rax)
add    $0x1,%rbx
add    %rcx,%rax
add    $0x8,%r8
cmp    %r13,%rbx
je     12e4 <CalculateF+0x1c4>
test   %rbx,%rbx
je     1270 <CalculateF+0x150>
cmp    $0x1,%rbx
jne    1290 <CalculateF+0x170>
xor    %ebp,%ebp
jmp    12c0 <CalculateF+0x1a0>
nop
mov    %rbx,%rsi
and    $0xfffffffffffffffe,%rsi
mov    %r8,%rdi
xor    %ebp,%ebp
nopl   0x0(%rax)
movsd  -0x8(%rax,%rbp,8),%xmm0
movsd  %xmm0,(%rdi)
movsd  (%rax,%rbp,8),%xmm0
movsd  %xmm0,(%rdi,%rcx,1)
add    $0x2,%rbp
add    %rdx,%rdi
cmp    %rbp,%rsi
jne    12a0 <CalculateF+0x180>
test   $0x1,%bl
je     1270 <CalculateF+0x150>
mov    %rbx,%rsi
imul   %r13,%rsi
add    %rbp,%rsi
movsd  (%r9,%rsi,8),%xmm0
imul   %r13,%rbp
add    %rbx,%rbp
movsd  %xmm0,(%r9,%rbp,8)
jmp    1270 <CalculateF+0x150>
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@DBL_EPSILON = global i64 0
define void @CalculateF(double* nocapture %0, double* nocapture %1, double* nocapture %2, double %3, i32 %4) {
%6 = icmp sgt i32 %4, 0
br i1 %6, label %7, label %103
7: ; preds = %5
%8 = zext i32 %4 to i64
br label %13
9: ; preds = %13
br i1 %6, label %10, label %103
10: ; preds = %9
%11 = zext i32 %4 to i64
%12 = zext i32 %4 to i64
br label %22
13: ; preds = %7, %13
%14 = phi i64 [ 0, %7 ], [ %20, %13 ]
%15 = getelementptr inbounds double, double* %1, i64 %14
%16 = load double, double* %15
%17 = fmul double %16, %3
%18 = tail call double @exp(double %17)
%19 = getelementptr inbounds double, double* %2, i64 %14
store double %18, double* %19
%20 = add nuw nsw i64 %14, 1
%21 = icmp eq i64 %20, %8
br i1 %21, label %9, label %13
22: ; preds = %10, %58
%23 = phi i64 [ 0, %10 ], [ %59, %58 ]
%24 = phi i64 [ 1, %10 ], [ %60, %58 ]
%25 = getelementptr inbounds double, double* %1, i64 %23
%26 = getelementptr inbounds double, double* %2, i64 %23
%27 = mul nsw i64 %23, %11
br label %32
28: ; preds = %58
br i1 %6, label %29, label %103
29: ; preds = %28
%30 = zext i32 %4 to i64
%31 = zext i32 %4 to i64
br label %62
32: ; preds = %22, %52
%33 = phi i64 [ 0, %22 ], [ %56, %52 ]
%34 = load double, double* %25
%35 = getelementptr inbounds double, double* %1, i64 %33
%36 = load double, double* %35
%37 = fsub double %34, %36
%38 = fmul double %37, %3
%39 = tail call i64 @fabs(double %38)
%40 = load i64, i64* @DBL_EPSILON
%41 = icmp sgt i64 %39, %40
%42 = load double, double* %26
br i1 %41, label %43, label %52
43: ; preds = %32
%44 = getelementptr inbounds double, double* %2, i64 %33
%45 = load double, double* %44
%46 = fsub double %42, %45
%47 = load double, double* %25
%48 = load double, double* %35
%49 = fsub double %47, %48
%50 = fmul double %49, %3
%51 = fdiv double %46, %50
br label %52
52: ; preds = %32, %43
%53 = phi double [ %51, %43 ], [ %42, %32 ]
%54 = add nuw nsw i64 %33, %27
%55 = getelementptr inbounds double, double* %0, i64 %54
store double %53, double* %55
%56 = add nuw nsw i64 %33, 1
%57 = icmp eq i64 %56, %24
br i1 %57, label %58, label %32
58: ; preds = %52
%59 = add nuw nsw i64 %23, 1
%60 = add nuw nsw i64 %24, 1
%61 = icmp eq i64 %59, %12
br i1 %61, label %28, label %22
62: ; preds = %29, %100
%63 = phi i64 [ 0, %29 ], [ %101, %100 ]
%64 = icmp eq i64 %63, 0
br i1 %64, label %100, label %65
65: ; preds = %62
%66 = mul nsw i64 %63, %30
%67 = and i64 %63, 1
%68 = icmp eq i64 %63, 1
br i1 %68, label %90, label %69
69: ; preds = %65
%70 = and i64 %63, 9223372036854775806
br label %71
71: ; preds = %71, %69
%72 = phi i64 [ 0, %69 ], [ %87, %71 ]
%73 = phi i64 [ 0, %69 ], [ %88, %71 ]
%74 = add nuw nsw i64 %72, %66
%75 = getelementptr inbounds double, double* %0, i64 %74
%76 = load double, double* %75
%77 = mul nsw i64 %72, %30
%78 = add nuw nsw i64 %77, %63
%79 = getelementptr inbounds double, double* %0, i64 %78
store double %76, double* %79
%80 = or i64 %72, 1
%81 = add nuw nsw i64 %80, %66
%82 = getelementptr inbounds double, double* %0, i64 %81
%83 = load double, double* %82
%84 = mul nsw i64 %80, %30
%85 = add nuw nsw i64 %84, %63
%86 = getelementptr inbounds double, double* %0, i64 %85
store double %83, double* %86
%87 = add nuw nsw i64 %72, 2
%88 = add i64 %73, 2
%89 = icmp eq i64 %88, %70
br i1 %89, label %90, label %71
90: ; preds = %71, %65
%91 = phi i64 [ 0, %65 ], [ %87, %71 ]
%92 = icmp eq i64 %67, 0
br i1 %92, label %100, label %93
93: ; preds = %90
%94 = add nuw nsw i64 %91, %66
%95 = getelementptr inbounds double, double* %0, i64 %94
%96 = load double, double* %95
%97 = mul nsw i64 %91, %30
%98 = add nuw nsw i64 %97, %63
%99 = getelementptr inbounds double, double* %0, i64 %98
store double %96, double* %99
br label %100
100: ; preds = %93, %90, %62
%101 = add nuw nsw i64 %63, 1
%102 = icmp eq i64 %101, %31
br i1 %102, label %103, label %62
103: ; preds = %100, %5, %9, %28
ret void
}