void bcon_calc(double *pr, double *ucon, double *ucov, double *bcon) {
  int j;
  bcon[(0)] = pr[(5)] * ucov[1] + pr[(6)] * ucov[2] + pr[(7)] * ucov[3];
  for (j = 1; j < 4; j++)
    bcon[j] = (pr[(5) - 1 + j] + bcon[(0)] * ucon[j]) / ucon[(0)];
  return;
}


x86 assembly (clang, -O0):
<bcon_calc>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x8(%rbp),%rax
movsd  0x28(%rax),%xmm1
mov    -0x18(%rbp),%rax
movsd  0x8(%rax),%xmm2
mov    -0x8(%rbp),%rax
movsd  0x30(%rax),%xmm0
mov    -0x18(%rbp),%rax
mulsd  0x10(%rax),%xmm0
mulsd  %xmm2,%xmm1
addsd  %xmm0,%xmm1
mov    -0x8(%rbp),%rax
movsd  0x38(%rax),%xmm0
mov    -0x18(%rbp),%rax
movsd  0x18(%rax),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x20(%rbp),%rax
movsd  %xmm0,(%rax)
movl   $0x1,-0x24(%rbp)
cmpl   $0x4,-0x24(%rbp)
jge    11c5 <bcon_calc+0xc5>
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    $0x4,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x10(%rbp),%rax
divsd  (%rax),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1169 <bcon_calc+0x69>
pop    %rbp
ret

x86 assembly (clang, -O2):
<bcon_calc>:
movsd  0x28(%rdi),%xmm0
movsd  0x30(%rdi),%xmm1
mulsd  0x10(%rdx),%xmm1
mulsd  0x8(%rdx),%xmm0
addsd  %xmm1,%xmm0
movsd  0x38(%rdi),%xmm1
mulsd  0x18(%rdx),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,(%rcx)
movsd  0x8(%rsi),%xmm0
mulsd  %xmm1,%xmm0
addsd  0x28(%rdi),%xmm0
divsd  (%rsi),%xmm0
movsd  %xmm0,0x8(%rcx)
movsd  0x10(%rsi),%xmm0
mulsd  %xmm1,%xmm0
addsd  0x30(%rdi),%xmm0
divsd  (%rsi),%xmm0
movsd  %xmm0,0x10(%rcx)
mulsd  0x18(%rsi),%xmm1
addsd  0x38(%rdi),%xmm1
divsd  (%rsi),%xmm1
movsd  %xmm1,0x18(%rcx)
ret

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

LLVM IR (-O2):
define void @bcon_calc(double* nocapture %0, double* nocapture %1, double* nocapture %2, double* nocapture %3) {
%5 = getelementptr inbounds double, double* %0, i64 5
%6 = load double, double* %5
%7 = getelementptr inbounds double, double* %2, i64 1
%8 = load double, double* %7
%9 = getelementptr inbounds double, double* %0, i64 6
%10 = load double, double* %9
%11 = getelementptr inbounds double, double* %2, i64 2
%12 = load double, double* %11
%13 = fmul double %10, %12
%14 = tail call double @llvm.fmuladd.f64(double %6, double %8, double %13)
%15 = getelementptr inbounds double, double* %0, i64 7
%16 = load double, double* %15
%17 = getelementptr inbounds double, double* %2, i64 3
%18 = load double, double* %17
%19 = tail call double @llvm.fmuladd.f64(double %16, double %18, double %14)
store double %19, double* %3
%20 = load double, double* %5
%21 = getelementptr inbounds double, double* %1, i64 1
%22 = load double, double* %21
%23 = tail call double @llvm.fmuladd.f64(double %19, double %22, double %20)
%24 = load double, double* %1
%25 = fdiv double %23, %24
%26 = getelementptr inbounds double, double* %3, i64 1
store double %25, double* %26
%27 = load double, double* %9
%28 = getelementptr inbounds double, double* %1, i64 2
%29 = load double, double* %28
%30 = tail call double @llvm.fmuladd.f64(double %19, double %29, double %27)
%31 = load double, double* %1
%32 = fdiv double %30, %31
%33 = getelementptr inbounds double, double* %3, i64 2
store double %32, double* %33
%34 = load double, double* %15
%35 = getelementptr inbounds double, double* %1, i64 3
%36 = load double, double* %35
%37 = tail call double @llvm.fmuladd.f64(double %19, double %36, double %34)
%38 = load double, double* %1
%39 = fdiv double %37, %38
%40 = getelementptr inbounds double, double* %3, i64 3
store double %39, double* %40
ret void
}