double deriv_e(double logp[201], double loge[201], int i, int n_tab) {
  double d_temp;
  switch (i) {
  case 1:
    d_temp = (logp[i + 1] - logp[i]) / (loge[i + 1] - loge[i]);
    break;
  default:
    d_temp = (logp[i] - logp[i - 1]) / (loge[i] - loge[i - 1]);
    break;
  }
  return d_temp;
}


x86 assembly (clang, -O0):
<deriv_e>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
jne    116f <deriv_e+0x6f>
jmp    1123 <deriv_e+0x23>
mov    -0x8(%rbp),%rax
mov    -0x14(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x20(%rbp)
jmp    11b6 <deriv_e+0xb6>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
subsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
subsd  (%rax,%rcx,8),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x20(%rbp)
movsd  -0x20(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<deriv_e>:
lea    -0x1(%rdx),%eax
cmp    $0x1,%edx
movslq %edx,%rcx
mov    $0x2,%edx
cmovne %rcx,%rdx
cmovne %eax,%ecx
movslq %ecx,%rax
movsd  (%rdi,%rdx,8),%xmm0
subsd  (%rdi,%rax,8),%xmm0
movsd  (%rsi,%rdx,8),%xmm1
subsd  (%rsi,%rax,8),%xmm1
divsd  %xmm1,%xmm0
ret

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

LLVM IR (-O2):
define double @deriv_e(double* nocapture %0, double* nocapture %1, i32 %2, i32 %3) {
%5 = icmp eq i32 %2, 1
%6 = sext i32 %2 to i64
%7 = add nsw i32 %2, -1
%8 = select i1 %5, i32 1, i32 %7
%9 = sext i32 %8 to i64
%10 = select i1 %5, i64 2, i64 %6
%11 = getelementptr inbounds double, double* %0, i64 %10
%12 = select i1 %5, i64 2, i64 %6
%13 = load double, double* %11
%14 = getelementptr inbounds double, double* %0, i64 %9
%15 = load double, double* %14
%16 = fsub double %13, %15
%17 = getelementptr inbounds double, double* %1, i64 %12
%18 = load double, double* %17
%19 = getelementptr inbounds double, double* %1, i64 %9
%20 = load double, double* %19
%21 = fsub double %18, %20
%22 = fdiv double %16, %21
ret double %22
}