void dMassTrans(double sys[], double x[], double xin, double K, int NumCel) {
  int i;
  sys[0] = sys[0] + K * (xin - x[0]);
  for (i = 1; i < NumCel; i++) {
    sys[i] = sys[i] + K * (x[i - 1] - x[i]);
  }
}


x86 assembly (clang, -O0):
<dMassTrans>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
movsd  %xmm1,-0x20(%rbp)
mov    %edx,-0x24(%rbp)
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm1
movsd  -0x20(%rbp),%xmm0
movsd  -0x18(%rbp),%xmm2
mov    -0x10(%rbp),%rax
subsd  (%rax),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
movsd  %xmm0,(%rax)
movl   $0x1,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    11aa <dMassTrans+0xaa>
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x20(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    114a <dMassTrans+0x4a>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dMassTrans>:
subsd  (%rsi),%xmm0
mulsd  %xmm1,%xmm0
addsd  (%rdi),%xmm0
movsd  %xmm0,(%rdi)
cmp    $0x2,%edx
jl     122d <dMassTrans+0x12d>
mov    %edx,%r9d
lea    -0x1(%r9),%r8
mov    $0x1,%ecx
cmp    $0x4,%r8
jb     11b5 <dMassTrans+0xb5>
lea    0x8(%rdi),%rax
lea    (%rsi,%r9,8),%rdx
cmp    %rdx,%rax
jae    1145 <dMassTrans+0x45>
lea    (%rdi,%r9,8),%rax
cmp    %rsi,%rax
ja     11b5 <dMassTrans+0xb5>
mov    %r8,%rdx
and    $0xfffffffffffffffc,%rdx
lea    0x1(%rdx),%rcx
movapd %xmm1,%xmm0
unpcklpd %xmm1,%xmm0
xor    %eax,%eax
nopw   0x0(%rax,%rax,1)
movupd 0x8(%rdi,%rax,8),%xmm2
movupd 0x18(%rdi,%rax,8),%xmm3
movupd (%rsi,%rax,8),%xmm4
movupd 0x8(%rsi,%rax,8),%xmm5
subpd  %xmm5,%xmm4
movupd 0x10(%rsi,%rax,8),%xmm5
movupd 0x18(%rsi,%rax,8),%xmm6
subpd  %xmm6,%xmm5
mulpd  %xmm0,%xmm4
addpd  %xmm2,%xmm4
mulpd  %xmm0,%xmm5
addpd  %xmm3,%xmm5
movupd %xmm4,0x8(%rdi,%rax,8)
movupd %xmm5,0x18(%rdi,%rax,8)
add    $0x4,%rax
cmp    %rax,%rdx
jne    1160 <dMassTrans+0x60>
cmp    %rdx,%r8
je     122d <dMassTrans+0x12d>
mov    %rcx,%rax
not    %rax
test   $0x1,%r9b
jne    11de <dMassTrans+0xde>
movsd  -0x8(%rsi,%rcx,8),%xmm0
subsd  (%rsi,%rcx,8),%xmm0
mulsd  %xmm1,%xmm0
addsd  (%rdi,%rcx,8),%xmm0
movsd  %xmm0,(%rdi,%rcx,8)
add    $0x1,%rcx
add    %r9,%rax
je     122d <dMassTrans+0x12d>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsd  -0x8(%rsi,%rcx,8),%xmm0
subsd  (%rsi,%rcx,8),%xmm0
mulsd  %xmm1,%xmm0
addsd  (%rdi,%rcx,8),%xmm0
movsd  %xmm0,(%rdi,%rcx,8)
movsd  (%rsi,%rcx,8),%xmm0
subsd  0x8(%rsi,%rcx,8),%xmm0
mulsd  %xmm1,%xmm0
addsd  0x8(%rdi,%rcx,8),%xmm0
movsd  %xmm0,0x8(%rdi,%rcx,8)
add    $0x2,%rcx
cmp    %rcx,%r9
jne    11f0 <dMassTrans+0xf0>
ret

LLVM IR (-O0):
define void @dMassTrans(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
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
%12 = load double*, double** %6
%13 = getelementptr inbounds double, double* %12, i64 0
%14 = load double, double* %13
%15 = load double, double* %9
%16 = load double, double* %8
%17 = load double*, double** %7
%18 = getelementptr inbounds double, double* %17, i64 0
%19 = load double, double* %18
%20 = fsub double %16, %19
%21 = call double @llvm.fmuladd.f64(double %15, double %20, double %14)
%22 = load double*, double** %6
%23 = getelementptr inbounds double, double* %22, i64 0
store double %21, double* %23
store i32 1, i32* %11
br label %24
24: ; preds = %52, %5
%25 = load i32, i32* %11
%26 = load i32, i32* %10
%27 = icmp slt i32 %25, %26
br i1 %27, label %28, label %55
28: ; preds = %24
%29 = load double*, double** %6
%30 = load i32, i32* %11
%31 = sext i32 %30 to i64
%32 = getelementptr inbounds double, double* %29, i64 %31
%33 = load double, double* %32
%34 = load double, double* %9
%35 = load double*, double** %7
%36 = load i32, i32* %11
%37 = sub nsw i32 %36, 1
%38 = sext i32 %37 to i64
%39 = getelementptr inbounds double, double* %35, i64 %38
%40 = load double, double* %39
%41 = load double*, double** %7
%42 = load i32, i32* %11
%43 = sext i32 %42 to i64
%44 = getelementptr inbounds double, double* %41, i64 %43
%45 = load double, double* %44
%46 = fsub double %40, %45
%47 = call double @llvm.fmuladd.f64(double %34, double %46, double %33)
%48 = load double*, double** %6
%49 = load i32, i32* %11
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds double, double* %48, i64 %50
store double %47, double* %51
br label %52
52: ; preds = %28
%53 = load i32, i32* %11
%54 = add nsw i32 %53, 1
store i32 %54, i32* %11
br label %24
55: ; preds = %24
ret void
}

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