void get_I_vec(double *x, int *n, int *p, int *uncens_n, double *weighted_risk,
               double *weighted_risk_sum, double *I_vec) {
  int actual_x, i, j;
  double x_bar, V;
  for (actual_x = 0; actual_x < *p; actual_x++) {
    for (i = 0; i < *uncens_n; i++) {
      x_bar = 0;
      for (j = 0; j < *n; j++)
        x_bar += weighted_risk[(i * *n) + j] * x[(actual_x * *n) + j];
      x_bar /= weighted_risk_sum[i];
      V = 0;
      for (j = 0; j < *n; j++)
        V += weighted_risk[(i * *n) + j] * (x[(actual_x * *n) + j] - x_bar) *
             (x[(actual_x * *n) + j] - x_bar);
      V /= weighted_risk_sum[i];
      I_vec[actual_x] += V;
    }
  }
}


x86 assembly (clang, -O0):
<get_I_vec>:
push   %rbp
mov    %rsp,%rbp
mov    0x10(%rbp),%rax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    -0x18(%rbp),%rcx
cmp    (%rcx),%eax
jge    12c1 <get_I_vec+0x1c1>
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
mov    -0x20(%rbp),%rcx
cmp    (%rcx),%eax
jge    12ae <get_I_vec+0x1ae>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    11bc <get_I_vec+0xbc>
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%ecx
mov    -0x10(%rbp),%rdx
imul   (%rdx),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    -0x10(%rbp),%rdx
imul   (%rdx),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x48(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    115b <get_I_vec+0x5b>
mov    -0x30(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x48(%rbp),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x50(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    126e <get_I_vec+0x16e>
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%ecx
mov    -0x10(%rbp),%rdx
imul   (%rdx),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    -0x10(%rbp),%rdx
imul   (%rdx),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
subsd  -0x48(%rbp),%xmm1
mulsd  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    -0x10(%rbp),%rdx
imul   (%rdx),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
subsd  -0x48(%rbp),%xmm2
movsd  -0x50(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    11e6 <get_I_vec+0xe6>
mov    -0x30(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x50(%rbp),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm0
mov    0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    113d <get_I_vec+0x3d>
jmp    12b3 <get_I_vec+0x1b3>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1127 <get_I_vec+0x27>
pop    %rbp
ret

x86 assembly (clang, -O2):
<get_I_vec>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %r8,-0x40(%rsp)
mov    %rsi,-0x18(%rsp)
mov    %rdi,-0x48(%rsp)
mov    (%rdx),%eax
mov    %rax,-0x10(%rsp)
test   %eax,%eax
jle    131e <get_I_vec+0x21e>
mov    %r9,%rdx
mov    0x38(%rsp),%r9
mov    (%rcx),%r12d
mov    -0x40(%rsp),%rax
add    $0x8,%rax
mov    %rax,-0x20(%rsp)
mov    -0x48(%rsp),%rax
add    $0x8,%rax
mov    %rax,-0x28(%rsp)
xor    %ebx,%ebx
mov    %rdx,-0x38(%rsp)
jmp    116f <get_I_vec+0x6f>
nopl   0x0(%rax,%rax,1)
add    $0x1,%rbx
cmp    -0x10(%rsp),%rbx
je     131e <get_I_vec+0x21e>
test   %r12d,%r12d
jle    1160 <get_I_vec+0x60>
mov    -0x18(%rsp),%rax
mov    (%rax),%eax
mov    %eax,%edx
imul   %ebx,%edx
movslq %edx,%rcx
mov    %rcx,-0x30(%rsp)
mov    -0x38(%rsp),%rdx
movslq %eax,%rcx
lea    -0x1(%rax),%r13
mov    %ecx,%ebp
and    $0xfffffffe,%ebp
lea    0x0(,%rcx,8),%r11
mov    %rcx,-0x8(%rsp)
mov    %ecx,%esi
imul   %ebx,%esi
movslq %esi,%rsi
mov    -0x28(%rsp),%rcx
lea    (%rcx,%rsi,8),%rsi
mov    -0x20(%rsp),%r10
xor    %r14d,%r14d
jmp    11fa <get_I_vec+0xfa>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsd  (%rdx,%r14,8),%xmm1
xorpd  %xmm2,%xmm2
divsd  %xmm1,%xmm2
addsd  (%r9,%rbx,8),%xmm2
movsd  %xmm2,(%r9,%rbx,8)
add    $0x1,%r14
add    %r11,%r10
cmp    %r12,%r14
je     1160 <get_I_vec+0x60>
test   %eax,%eax
jle    11d0 <get_I_vec+0xd0>
test   %r13,%r13
je     1240 <get_I_vec+0x140>
xorpd  %xmm1,%xmm1
xor    %edi,%edi
nopl   0x0(%rax)
movsd  -0x8(%r10,%rdi,8),%xmm2
movsd  (%r10,%rdi,8),%xmm0
mulsd  -0x8(%rsi,%rdi,8),%xmm2
mulsd  (%rsi,%rdi,8),%xmm0
addsd  %xmm1,%xmm2
addsd  %xmm2,%xmm0
add    $0x2,%rdi
movapd %xmm0,%xmm1
cmp    %rdi,%rbp
jne    1210 <get_I_vec+0x110>
jmp    1246 <get_I_vec+0x146>
nop
xorpd  %xmm0,%xmm0
xor    %edi,%edi
mov    %r14,%r15
imul   -0x8(%rsp),%r15
test   $0x1,%al
je     1279 <get_I_vec+0x179>
lea    (%r15,%rdi,1),%rcx
mov    -0x40(%rsp),%rdx
movsd  (%rdx,%rcx,8),%xmm1
mov    -0x38(%rsp),%rdx
add    -0x30(%rsp),%rdi
mov    -0x48(%rsp),%rcx
mulsd  (%rcx,%rdi,8),%xmm1
addsd  %xmm1,%xmm0
movsd  (%rdx,%r14,8),%xmm1
test   %eax,%eax
jle    11d6 <get_I_vec+0xd6>
divsd  %xmm1,%xmm0
xorpd  %xmm2,%xmm2
xor    %r8d,%r8d
test   %r13,%r13
je     12e3 <get_I_vec+0x1e3>
nopw   0x0(%rax,%rax,1)
movsd  -0x8(%rsi,%r8,8),%xmm3
movsd  (%rsi,%r8,8),%xmm4
subsd  %xmm0,%xmm3
movsd  -0x8(%r10,%r8,8),%xmm5
mulsd  %xmm3,%xmm5
mulsd  %xmm3,%xmm5
addsd  %xmm2,%xmm5
subsd  %xmm0,%xmm4
movsd  (%r10,%r8,8),%xmm2
mulsd  %xmm4,%xmm2
mulsd  %xmm4,%xmm2
addsd  %xmm5,%xmm2
add    $0x2,%r8
cmp    %r8,%rbp
jne    12a0 <get_I_vec+0x1a0>
test   $0x1,%al
je     11da <get_I_vec+0xda>
add    %r8,%r15
add    -0x30(%rsp),%r8
mov    -0x48(%rsp),%rcx
movsd  (%rcx,%r8,8),%xmm3
subsd  %xmm0,%xmm3
mov    -0x40(%rsp),%rcx
movsd  (%rcx,%r15,8),%xmm0
mulsd  %xmm3,%xmm0
mulsd  %xmm3,%xmm0
addsd  %xmm0,%xmm2
jmp    11da <get_I_vec+0xda>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @get_I_vec(double* nocapture %0, i32* nocapture %1, i32* nocapture %2, i32* nocapture %3, double* nocapture %4, double* nocapture %5, double* nocapture %6) {
%8 = load i32, i32* %2
%9 = icmp sgt i32 %8, 0
br i1 %9, label %10, label %134
10: ; preds = %7
%11 = load i32, i32* %3
%12 = icmp sgt i32 %11, 0
%13 = zext i32 %8 to i64
%14 = zext i32 %11 to i64
br label %15
15: ; preds = %10, %131
%16 = phi i64 [ 0, %10 ], [ %132, %131 ]
br i1 %12, label %17, label %131
17: ; preds = %15
%18 = load i32, i32* %1
%19 = icmp sgt i32 %18, 0
%20 = trunc i64 %16 to i32
%21 = mul nsw i32 %18, %20
%22 = getelementptr inbounds double, double* %6, i64 %16
%23 = sext i32 %21 to i64
%24 = sext i32 %18 to i64
%25 = zext i32 %18 to i64
%26 = add nsw i64 %25, -1
%27 = and i64 %25, 1
%28 = icmp eq i64 %26, 0
%29 = and i64 %25, 4294967294
%30 = icmp eq i64 %27, 0
%31 = and i64 %25, 1
%32 = icmp eq i64 %26, 0
%33 = and i64 %25, 4294967294
%34 = icmp eq i64 %31, 0
br label %35
35: ; preds = %17, %123
%36 = phi i64 [ 0, %17 ], [ %129, %123 ]
br i1 %19, label %40, label %37
37: ; preds = %35
%38 = getelementptr inbounds double, double* %5, i64 %36
%39 = load double, double* %38
br label %123
40: ; preds = %35
%41 = mul nsw i64 %36, %24
br i1 %28, label %64, label %42
42: ; preds = %40, %42
%43 = phi i64 [ %61, %42 ], [ 0, %40 ]
%44 = phi double [ %60, %42 ], [ 0.000000e+00, %40 ]
%45 = phi i64 [ %62, %42 ], [ 0, %40 ]
%46 = add nsw i64 %41, %43
%47 = getelementptr inbounds double, double* %4, i64 %46
%48 = load double, double* %47
%49 = add nsw i64 %43, %23
%50 = getelementptr inbounds double, double* %0, i64 %49
%51 = load double, double* %50
%52 = tail call double @llvm.fmuladd.f64(double %48, double %51, double %44)
%53 = or i64 %43, 1
%54 = add nsw i64 %41, %53
%55 = getelementptr inbounds double, double* %4, i64 %54
%56 = load double, double* %55
%57 = add nsw i64 %53, %23
%58 = getelementptr inbounds double, double* %0, i64 %57
%59 = load double, double* %58
%60 = tail call double @llvm.fmuladd.f64(double %56, double %59, double %52)
%61 = add nuw nsw i64 %43, 2
%62 = add i64 %45, 2
%63 = icmp eq i64 %62, %29
br i1 %63, label %64, label %42
64: ; preds = %42, %40
%65 = phi double [ undef, %40 ], [ %60, %42 ]
%66 = phi i64 [ 0, %40 ], [ %61, %42 ]
%67 = phi double [ 0.000000e+00, %40 ], [ %60, %42 ]
br i1 %30, label %76, label %68
68: ; preds = %64
%69 = add nsw i64 %41, %66
%70 = getelementptr inbounds double, double* %4, i64 %69
%71 = load double, double* %70
%72 = add nsw i64 %66, %23
%73 = getelementptr inbounds double, double* %0, i64 %72
%74 = load double, double* %73
%75 = tail call double @llvm.fmuladd.f64(double %71, double %74, double %67)
br label %76
76: ; preds = %64, %68
%77 = phi double [ %65, %64 ], [ %75, %68 ]
%78 = getelementptr inbounds double, double* %5, i64 %36
%79 = load double, double* %78
%80 = fdiv double %77, %79
br i1 %19, label %81, label %123
81: ; preds = %76
%82 = mul nsw i64 %36, %24
br i1 %32, label %109, label %83
83: ; preds = %81, %83
%84 = phi i64 [ %106, %83 ], [ 0, %81 ]
%85 = phi double [ %105, %83 ], [ 0.000000e+00, %81 ]
%86 = phi i64 [ %107, %83 ], [ 0, %81 ]
%87 = add nsw i64 %84, %82
%88 = getelementptr inbounds double, double* %4, i64 %87
%89 = load double, double* %88
%90 = add nsw i64 %84, %23
%91 = getelementptr inbounds double, double* %0, i64 %90
%92 = load double, double* %91
%93 = fsub double %92, %80
%94 = fmul double %89, %93
%95 = tail call double @llvm.fmuladd.f64(double %94, double %93, double %85)
%96 = or i64 %84, 1
%97 = add nsw i64 %96, %82
%98 = getelementptr inbounds double, double* %4, i64 %97
%99 = load double, double* %98
%100 = add nsw i64 %96, %23
%101 = getelementptr inbounds double, double* %0, i64 %100
%102 = load double, double* %101
%103 = fsub double %102, %80
%104 = fmul double %99, %103
%105 = tail call double @llvm.fmuladd.f64(double %104, double %103, double %95)
%106 = add nuw nsw i64 %84, 2
%107 = add i64 %86, 2
%108 = icmp eq i64 %107, %33
br i1 %108, label %109, label %83
109: ; preds = %83, %81
%110 = phi double [ undef, %81 ], [ %105, %83 ]
%111 = phi i64 [ 0, %81 ], [ %106, %83 ]
%112 = phi double [ 0.000000e+00, %81 ], [ %105, %83 ]
br i1 %34, label %123, label %113
113: ; preds = %109
%114 = add nsw i64 %111, %82
%115 = getelementptr inbounds double, double* %4, i64 %114
%116 = load double, double* %115
%117 = add nsw i64 %111, %23
%118 = getelementptr inbounds double, double* %0, i64 %117
%119 = load double, double* %118
%120 = fsub double %119, %80
%121 = fmul double %116, %120
%122 = tail call double @llvm.fmuladd.f64(double %121, double %120, double %112)
br label %123
123: ; preds = %113, %109, %37, %76
%124 = phi double [ %79, %76 ], [ %39, %37 ], [ %79, %109 ], [ %79, %113 ]
%125 = phi double [ 0.000000e+00, %76 ], [ 0.000000e+00, %37 ], [ %110, %109 ], [ %122, %113 ]
%126 = fdiv double %125, %124
%127 = load double, double* %22
%128 = fadd double %126, %127
store double %128, double* %22
%129 = add nuw nsw i64 %36, 1
%130 = icmp eq i64 %129, %14
br i1 %130, label %131, label %35
131: ; preds = %123, %15
%132 = add nuw nsw i64 %16, 1
%133 = icmp eq i64 %132, %13
br i1 %133, label %134, label %15
134: ; preds = %131, %7
ret void
}