void set_T_j_k(double ***T, int N, int j, int k, double *n) {
  int d;
  double prefactor, pprefactor;
  pprefactor = (n[j] / n[j - k]);
  prefactor = 1.0 / (pprefactor * pprefactor - 1.0);
  for (d = 0; d < 3 * N; d++) {
    T[j][k][d] =
        T[j][k - 1][d] + (T[j][k - 1][d] - T[j - 1][k - 1][d]) * prefactor;
  }
}


x86 assembly (clang, -O0):
<set_T_j_k>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    %r8,-0x20(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x10(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x10(%rbp),%ecx
sub    -0x14(%rbp),%ecx
movslq %ecx,%rcx
divsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm1
movsd  -0x38(%rbp),%xmm0
mulsd  %xmm0,%xmm1
movsd  0xeb9(%rip),%xmm0
addsd  %xmm0,%xmm1
movsd  0xea5(%rip),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x30(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
imul   $0x3,-0xc(%rbp),%ecx
cmp    %ecx,%eax
jge    121d <set_T_j_k+0x11d>
mov    -0x8(%rbp),%rax
movslq -0x10(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x10(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  -0x30(%rbp),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
movslq -0x10(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x14(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    116b <set_T_j_k+0x6b>
pop    %rbp
ret

x86 assembly (clang, -O2):
<set_T_j_k>:
test   %esi,%esi
jle    1359 <set_T_j_k+0x259>
movslq %edx,%rax
movsd  (%r8,%rax,8),%xmm1
mov    (%rdi,%rax,8),%r9
mov    %eax,%edx
sub    %ecx,%edx
movslq %edx,%rdx
divsd  (%r8,%rdx,8),%xmm1
mov    -0x8(%rdi,%rax,8),%rax
mulsd  %xmm1,%xmm1
addsd  0xecd(%rip),%xmm1
movsd  0xecd(%rip),%xmm0
divsd  %xmm1,%xmm0
lea    (%rsi,%rsi,2),%esi
movslq %ecx,%rdx
mov    -0x8(%r9,%rdx,8),%r10
mov    (%r9,%rdx,8),%rcx
mov    -0x8(%rax,%rdx,8),%rdx
cmp    $0x2,%esi
mov    $0x1,%r8d
cmovge %esi,%r8d
cmp    $0x4,%r8d
jae    11f9 <set_T_j_k+0xf9>
xor    %edi,%edi
mov    %rdi,%rax
not    %rax
test   $0x1,%r8b
je     1198 <set_T_j_k+0x98>
movsd  (%r10,%rdi,8),%xmm1
movapd %xmm1,%xmm2
subsd  (%rdx,%rdi,8),%xmm2
mulsd  %xmm0,%xmm2
addsd  %xmm1,%xmm2
movsd  %xmm2,(%rcx,%rdi,8)
or     $0x1,%rdi
add    %r8,%rax
je     1359 <set_T_j_k+0x259>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsd  (%r10,%rdi,8),%xmm1
movapd %xmm1,%xmm2
subsd  (%rdx,%rdi,8),%xmm2
mulsd  %xmm0,%xmm2
addsd  %xmm1,%xmm2
movsd  %xmm2,(%rcx,%rdi,8)
movsd  0x8(%r10,%rdi,8),%xmm1
movapd %xmm1,%xmm2
subsd  0x8(%rdx,%rdi,8),%xmm2
mulsd  %xmm0,%xmm2
addsd  %xmm1,%xmm2
movsd  %xmm2,0x8(%rcx,%rdi,8)
add    $0x2,%rdi
cmp    %rdi,%r8
jne    11b0 <set_T_j_k+0xb0>
jmp    1359 <set_T_j_k+0x259>
lea    (%rcx,%r8,8),%rsi
lea    (%r10,%r8,8),%rax
lea    (%rdx,%r8,8),%rdi
cmp    %rax,%rcx
setb   %r9b
cmp    %rsi,%r10
setb   %r11b
cmp    %rdi,%rcx
setb   %al
cmp    %rsi,%rdx
setb   %sil
xor    %edi,%edi
test   %r11b,%r9b
jne    116c <set_T_j_k+0x6c>
and    %sil,%al
jne    116c <set_T_j_k+0x6c>
mov    %r8d,%edi
and    $0x7ffffffc,%edi
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x4(%rdi),%rax
mov    %rax,%r9
shr    $0x2,%r9
add    $0x1,%r9
test   %rax,%rax
je     135a <set_T_j_k+0x25a>
mov    %r9,%rax
and    $0xfffffffffffffffe,%rax
xor    %esi,%esi
cs nopw 0x0(%rax,%rax,1)
movupd (%r10,%rsi,8),%xmm2
movupd 0x10(%r10,%rsi,8),%xmm3
movupd (%rdx,%rsi,8),%xmm4
movupd 0x10(%rdx,%rsi,8),%xmm5
movapd %xmm2,%xmm6
subpd  %xmm4,%xmm6
movapd %xmm3,%xmm4
subpd  %xmm5,%xmm4
mulpd  %xmm1,%xmm6
addpd  %xmm2,%xmm6
mulpd  %xmm1,%xmm4
addpd  %xmm3,%xmm4
movupd %xmm6,(%rcx,%rsi,8)
movupd %xmm4,0x10(%rcx,%rsi,8)
movupd 0x20(%r10,%rsi,8),%xmm2
movupd 0x30(%r10,%rsi,8),%xmm3
movupd 0x20(%rdx,%rsi,8),%xmm4
movupd 0x30(%rdx,%rsi,8),%xmm5
movapd %xmm2,%xmm6
subpd  %xmm4,%xmm6
movapd %xmm3,%xmm4
subpd  %xmm5,%xmm4
mulpd  %xmm1,%xmm6
addpd  %xmm2,%xmm6
mulpd  %xmm1,%xmm4
addpd  %xmm3,%xmm4
movupd %xmm6,0x20(%rcx,%rsi,8)
movupd %xmm4,0x30(%rcx,%rsi,8)
add    $0x8,%rsi
add    $0xfffffffffffffffe,%rax
jne    1270 <set_T_j_k+0x170>
test   $0x1,%r9b
je     1350 <set_T_j_k+0x250>
movupd (%r10,%rsi,8),%xmm2
movupd 0x10(%r10,%rsi,8),%xmm3
movupd (%rdx,%rsi,8),%xmm4
movupd 0x10(%rdx,%rsi,8),%xmm5
movapd %xmm2,%xmm6
subpd  %xmm4,%xmm6
movapd %xmm3,%xmm4
subpd  %xmm5,%xmm4
mulpd  %xmm1,%xmm6
addpd  %xmm2,%xmm6
mulpd  %xmm1,%xmm4
addpd  %xmm3,%xmm4
movupd %xmm6,(%rcx,%rsi,8)
movupd %xmm4,0x10(%rcx,%rsi,8)
cmp    %r8,%rdi
jne    116c <set_T_j_k+0x6c>
ret
xor    %esi,%esi
test   $0x1,%r9b
jne    130d <set_T_j_k+0x20d>
jmp    1350 <set_T_j_k+0x250>

LLVM IR (-O0):
define void @set_T_j_k(double*** %0, i32 %1, i32 %2, i32 %3, double* %4) {
%6 = alloca double***
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca double*
%11 = alloca i32
%12 = alloca double
%13 = alloca double
store double*** %0, double**** %6
store i32 %1, i32* %7
store i32 %2, i32* %8
store i32 %3, i32* %9
store double* %4, double** %10
%14 = load double*, double** %10
%15 = load i32, i32* %8
%16 = sext i32 %15 to i64
%17 = getelementptr inbounds double, double* %14, i64 %16
%18 = load double, double* %17
%19 = load double*, double** %10
%20 = load i32, i32* %8
%21 = load i32, i32* %9
%22 = sub nsw i32 %20, %21
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds double, double* %19, i64 %23
%25 = load double, double* %24
%26 = fdiv double %18, %25
store double %26, double* %13
%27 = load double, double* %13
%28 = load double, double* %13
%29 = call double @llvm.fmuladd.f64(double %27, double %28, double -1.000000e+00)
%30 = fdiv double 1.000000e+00, %29
store double %30, double* %12
store i32 0, i32* %11
br label %31
31: ; preds = %95, %5
%32 = load i32, i32* %11
%33 = load i32, i32* %7
%34 = mul nsw i32 3, %33
%35 = icmp slt i32 %32, %34
br i1 %35, label %36, label %98
36: ; preds = %31
%37 = load double***, double**** %6
%38 = load i32, i32* %8
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds double**, double*** %37, i64 %39
%41 = load double**, double*** %40
%42 = load i32, i32* %9
%43 = sub nsw i32 %42, 1
%44 = sext i32 %43 to i64
%45 = getelementptr inbounds double*, double** %41, i64 %44
%46 = load double*, double** %45
%47 = load i32, i32* %11
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds double, double* %46, i64 %48
%50 = load double, double* %49
%51 = load double***, double**** %6
%52 = load i32, i32* %8
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds double**, double*** %51, i64 %53
%55 = load double**, double*** %54
%56 = load i32, i32* %9
%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 = load i32, i32* %11
%62 = sext i32 %61 to i64
%63 = getelementptr inbounds double, double* %60, i64 %62
%64 = load double, double* %63
%65 = load double***, double**** %6
%66 = load i32, i32* %8
%67 = sub nsw i32 %66, 1
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds double**, double*** %65, i64 %68
%70 = load double**, double*** %69
%71 = load i32, i32* %9
%72 = sub nsw i32 %71, 1
%73 = sext i32 %72 to i64
%74 = getelementptr inbounds double*, double** %70, i64 %73
%75 = load double*, double** %74
%76 = load i32, i32* %11
%77 = sext i32 %76 to i64
%78 = getelementptr inbounds double, double* %75, i64 %77
%79 = load double, double* %78
%80 = fsub double %64, %79
%81 = load double, double* %12
%82 = call double @llvm.fmuladd.f64(double %80, double %81, double %50)
%83 = load double***, double**** %6
%84 = load i32, i32* %8
%85 = sext i32 %84 to i64
%86 = getelementptr inbounds double**, double*** %83, i64 %85
%87 = load double**, double*** %86
%88 = load i32, i32* %9
%89 = sext i32 %88 to i64
%90 = getelementptr inbounds double*, double** %87, i64 %89
%91 = load double*, double** %90
%92 = load i32, i32* %11
%93 = sext i32 %92 to i64
%94 = getelementptr inbounds double, double* %91, i64 %93
store double %82, double* %94
br label %95
95: ; preds = %36
%96 = load i32, i32* %11
%97 = add nsw i32 %96, 1
store i32 %97, i32* %11
br label %31
98: ; preds = %31
ret void
}

LLVM IR (-O2):
define void @set_T_j_k(double*** nocapture %0, i32 %1, i32 %2, i32 %3, double* nocapture %4) {
%6 = sext i32 %2 to i64
%7 = getelementptr inbounds double, double* %4, i64 %6
%8 = load double, double* %7
%9 = sub nsw i32 %2, %3
%10 = sext i32 %9 to i64
%11 = getelementptr inbounds double, double* %4, i64 %10
%12 = load double, double* %11
%13 = fdiv double %8, %12
%14 = tail call double @llvm.fmuladd.f64(double %13, double %13, double -1.000000e+00)
%15 = fdiv double 1.000000e+00, %14
%16 = icmp sgt i32 %1, 0
br i1 %16, label %17, label %171
17: ; preds = %5
%18 = mul i32 %1, 3
%19 = getelementptr inbounds double**, double*** %0, i64 %6
%20 = load double**, double*** %19
%21 = add nsw i32 %3, -1
%22 = sext i32 %21 to i64
%23 = getelementptr inbounds double*, double** %20, i64 %22
%24 = load double*, double** %23
%25 = add nsw i32 %2, -1
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds double**, double*** %0, i64 %26
%28 = load double**, double*** %27
%29 = getelementptr inbounds double*, double** %28, i64 %22
%30 = load double*, double** %29
%31 = sext i32 %3 to i64
%32 = getelementptr inbounds double*, double** %20, i64 %31
%33 = load double*, double** %32
%34 = call i32 @llvm.smax.i32(i32 %18, i32 1)
%35 = zext i32 %34 to i64
%36 = icmp ult i32 %34, 4
br i1 %36, label %134, label %37
37: ; preds = %17
%38 = getelementptr double, double* %33, i64 %35
%39 = getelementptr double, double* %24, i64 %35
%40 = getelementptr double, double* %30, i64 %35
%41 = icmp ult double* %33, %39
%42 = icmp ult double* %24, %38
%43 = and i1 %41, %42
%44 = icmp ult double* %33, %40
%45 = icmp ult double* %30, %38
%46 = and i1 %44, %45
%47 = or i1 %43, %46
br i1 %47, label %134, label %48
48: ; preds = %37
%49 = and i64 %35, 2147483644
%50 = insertelement <2 x double> poison, double %15, i64 0
%51 = shufflevector <2 x double> %50, <2 x double> poison, <2 x i32> zeroinitializer
%52 = insertelement <2 x double> poison, double %15, i64 0
%53 = shufflevector <2 x double> %52, <2 x double> poison, <2 x i32> zeroinitializer
%54 = add nsw i64 %49, -4
%55 = lshr exact i64 %54, 2
%56 = add nuw nsw i64 %55, 1
%57 = and i64 %56, 1
%58 = icmp eq i64 %54, 0
br i1 %58, label %108, label %59
59: ; preds = %48
%60 = and i64 %56, 9223372036854775806
br label %61
61: ; preds = %61, %59
%62 = phi i64 [ 0, %59 ], [ %105, %61 ]
%63 = phi i64 [ 0, %59 ], [ %106, %61 ]
%64 = getelementptr inbounds double, double* %24, i64 %62
%65 = bitcast double* %64 to <2 x double>*
%66 = load <2 x double>, <2 x double>* %65
%67 = getelementptr inbounds double, double* %64, i64 2
%68 = bitcast double* %67 to <2 x double>*
%69 = load <2 x double>, <2 x double>* %68
%70 = getelementptr inbounds double, double* %30, i64 %62
%71 = bitcast double* %70 to <2 x double>*
%72 = load <2 x double>, <2 x double>* %71
%73 = getelementptr inbounds double, double* %70, i64 2
%74 = bitcast double* %73 to <2 x double>*
%75 = load <2 x double>, <2 x double>* %74
%76 = fsub <2 x double> %66, %72
%77 = fsub <2 x double> %69, %75
%78 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %76, <2 x double> %51, <2 x double> %66)
%79 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %77, <2 x double> %53, <2 x double> %69)
%80 = getelementptr inbounds double, double* %33, i64 %62
%81 = bitcast double* %80 to <2 x double>*
store <2 x double> %78, <2 x double>* %81
%82 = getelementptr inbounds double, double* %80, i64 2
%83 = bitcast double* %82 to <2 x double>*
store <2 x double> %79, <2 x double>* %83
%84 = or i64 %62, 4
%85 = getelementptr inbounds double, double* %24, i64 %84
%86 = bitcast double* %85 to <2 x double>*
%87 = load <2 x double>, <2 x double>* %86
%88 = getelementptr inbounds double, double* %85, i64 2
%89 = bitcast double* %88 to <2 x double>*
%90 = load <2 x double>, <2 x double>* %89
%91 = getelementptr inbounds double, double* %30, i64 %84
%92 = bitcast double* %91 to <2 x double>*
%93 = load <2 x double>, <2 x double>* %92
%94 = getelementptr inbounds double, double* %91, i64 2
%95 = bitcast double* %94 to <2 x double>*
%96 = load <2 x double>, <2 x double>* %95
%97 = fsub <2 x double> %87, %93
%98 = fsub <2 x double> %90, %96
%99 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %97, <2 x double> %51, <2 x double> %87)
%100 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %98, <2 x double> %53, <2 x double> %90)
%101 = getelementptr inbounds double, double* %33, i64 %84
%102 = bitcast double* %101 to <2 x double>*
store <2 x double> %99, <2 x double>* %102
%103 = getelementptr inbounds double, double* %101, i64 2
%104 = bitcast double* %103 to <2 x double>*
store <2 x double> %100, <2 x double>* %104
%105 = add nuw i64 %62, 8
%106 = add i64 %63, 2
%107 = icmp eq i64 %106, %60
br i1 %107, label %108, label %61
108: ; preds = %61, %48
%109 = phi i64 [ 0, %48 ], [ %105, %61 ]
%110 = icmp eq i64 %57, 0
br i1 %110, label %132, label %111
111: ; preds = %108
%112 = getelementptr inbounds double, double* %24, i64 %109
%113 = bitcast double* %112 to <2 x double>*
%114 = load <2 x double>, <2 x double>* %113
%115 = getelementptr inbounds double, double* %112, i64 2
%116 = bitcast double* %115 to <2 x double>*
%117 = load <2 x double>, <2 x double>* %116
%118 = getelementptr inbounds double, double* %30, i64 %109
%119 = bitcast double* %118 to <2 x double>*
%120 = load <2 x double>, <2 x double>* %119
%121 = getelementptr inbounds double, double* %118, i64 2
%122 = bitcast double* %121 to <2 x double>*
%123 = load <2 x double>, <2 x double>* %122
%124 = fsub <2 x double> %114, %120
%125 = fsub <2 x double> %117, %123
%126 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %124, <2 x double> %51, <2 x double> %114)
%127 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %125, <2 x double> %53, <2 x double> %117)
%128 = getelementptr inbounds double, double* %33, i64 %109
%129 = bitcast double* %128 to <2 x double>*
store <2 x double> %126, <2 x double>* %129
%130 = getelementptr inbounds double, double* %128, i64 2
%131 = bitcast double* %130 to <2 x double>*
store <2 x double> %127, <2 x double>* %131
br label %132
132: ; preds = %108, %111
%133 = icmp eq i64 %49, %35
br i1 %133, label %171, label %134
134: ; preds = %37, %17, %132
%135 = phi i64 [ 0, %37 ], [ 0, %17 ], [ %49, %132 ]
%136 = xor i64 %135, -1
%137 = and i64 %35, 1
%138 = icmp eq i64 %137, 0
br i1 %138, label %148, label %139
139: ; preds = %134
%140 = getelementptr inbounds double, double* %24, i64 %135
%141 = load double, double* %140
%142 = getelementptr inbounds double, double* %30, i64 %135
%143 = load double, double* %142
%144 = fsub double %141, %143
%145 = tail call double @llvm.fmuladd.f64(double %144, double %15, double %141)
%146 = getelementptr inbounds double, double* %33, i64 %135
store double %145, double* %146
%147 = or i64 %135, 1
br label %148
148: ; preds = %139, %134
%149 = phi i64 [ %135, %134 ], [ %147, %139 ]
%150 = sub nsw i64 0, %35
%151 = icmp eq i64 %136, %150
br i1 %151, label %171, label %152
152: ; preds = %148, %152
%153 = phi i64 [ %169, %152 ], [ %149, %148 ]
%154 = getelementptr inbounds double, double* %24, i64 %153
%155 = load double, double* %154
%156 = getelementptr inbounds double, double* %30, i64 %153
%157 = load double, double* %156
%158 = fsub double %155, %157
%159 = tail call double @llvm.fmuladd.f64(double %158, double %15, double %155)
%160 = getelementptr inbounds double, double* %33, i64 %153
store double %159, double* %160
%161 = add nuw nsw i64 %153, 1
%162 = getelementptr inbounds double, double* %24, i64 %161
%163 = load double, double* %162
%164 = getelementptr inbounds double, double* %30, i64 %161
%165 = load double, double* %164
%166 = fsub double %163, %165
%167 = tail call double @llvm.fmuladd.f64(double %166, double %15, double %163)
%168 = getelementptr inbounds double, double* %33, i64 %161
store double %167, double* %168
%169 = add nuw nsw i64 %153, 2
%170 = icmp eq i64 %169, %35
br i1 %170, label %171, label %152
171: ; preds = %148, %152, %132, %5
ret void
}