void mortar_postfrd(int *ne, int *nslavs, int *mi, int *nk, int *nkon,
                    double *fn, double *cfs, double *cfm) {
  int i, k, l, mt = mi[1] + 1;
  *ne -= *nslavs;
  *nkon -= *nslavs;
  for (i = 0; i < mt * *nk; i++) {
    fn[i] = fn[i] - cfs[i];
  }
  return;
}


x86 assembly (clang, -O0):
<mortar_postfrd>:
push   %rbp
mov    %rsp,%rbp
mov    0x18(%rbp),%rax
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)
mov    -0x18(%rbp),%rax
mov    0x4(%rax),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%edx
mov    -0x8(%rbp),%rax
mov    (%rax),%ecx
sub    %edx,%ecx
mov    %ecx,(%rax)
mov    -0x10(%rbp),%rax
mov    (%rax),%edx
mov    -0x28(%rbp),%rax
mov    (%rax),%ecx
sub    %edx,%ecx
mov    %ecx,(%rax)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    -0x40(%rbp),%ecx
mov    -0x20(%rbp),%rdx
imul   (%rdx),%ecx
cmp    %ecx,%eax
jge    11a2 <mortar_postfrd+0xa2>
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1158 <mortar_postfrd+0x58>
pop    %rbp
ret

x86 assembly (clang, -O2):
<mortar_postfrd>:
mov    0x4(%rdx),%edx
mov    (%rsi),%eax
sub    %eax,(%rdi)
mov    (%rsi),%eax
sub    %eax,(%r8)
add    $0x1,%edx
imul   (%rcx),%edx
test   %edx,%edx
jle    12c3 <mortar_postfrd+0x1c3>
mov    0x8(%rsp),%rax
mov    %edx,%ecx
cmp    $0x4,%edx
jb     1140 <mortar_postfrd+0x40>
lea    (%rax,%rcx,8),%rdx
cmp    %r9,%rdx
jbe    11eb <mortar_postfrd+0xeb>
lea    (%r9,%rcx,8),%rdx
cmp    %rax,%rdx
jbe    11eb <mortar_postfrd+0xeb>
xor    %edx,%edx
mov    %rdx,%rsi
not    %rsi
add    %rcx,%rsi
mov    %rcx,%rdi
and    $0x3,%rdi
je     117b <mortar_postfrd+0x7b>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movsd  (%r9,%rdx,8),%xmm0
subsd  (%rax,%rdx,8),%xmm0
movsd  %xmm0,(%r9,%rdx,8)
add    $0x1,%rdx
add    $0xffffffffffffffff,%rdi
jne    1160 <mortar_postfrd+0x60>
cmp    $0x3,%rsi
jb     12c3 <mortar_postfrd+0x1c3>
cs nopw 0x0(%rax,%rax,1)
nop
movsd  (%r9,%rdx,8),%xmm0
subsd  (%rax,%rdx,8),%xmm0
movsd  0x8(%r9,%rdx,8),%xmm1
movsd  %xmm0,(%r9,%rdx,8)
subsd  0x8(%rax,%rdx,8),%xmm1
movsd  %xmm1,0x8(%r9,%rdx,8)
movsd  0x10(%r9,%rdx,8),%xmm0
subsd  0x10(%rax,%rdx,8),%xmm0
movsd  %xmm0,0x10(%r9,%rdx,8)
movsd  0x18(%r9,%rdx,8),%xmm0
subsd  0x18(%rax,%rdx,8),%xmm0
movsd  %xmm0,0x18(%r9,%rdx,8)
add    $0x4,%rdx
cmp    %rdx,%rcx
jne    1190 <mortar_postfrd+0x90>
jmp    12c3 <mortar_postfrd+0x1c3>
mov    %ecx,%edx
and    $0xfffffffc,%edx
lea    -0x4(%rdx),%rsi
mov    %rsi,%r8
shr    $0x2,%r8
add    $0x1,%r8
test   %rsi,%rsi
je     12c4 <mortar_postfrd+0x1c4>
mov    %r8,%rdi
and    $0xfffffffffffffffe,%rdi
xor    %esi,%esi
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movupd (%rax,%rsi,8),%xmm0
movupd 0x10(%rax,%rsi,8),%xmm1
movupd (%r9,%rsi,8),%xmm2
subpd  %xmm0,%xmm2
movupd 0x10(%r9,%rsi,8),%xmm0
subpd  %xmm1,%xmm0
movupd 0x20(%r9,%rsi,8),%xmm1
movupd 0x30(%r9,%rsi,8),%xmm3
movupd %xmm2,(%r9,%rsi,8)
movupd %xmm0,0x10(%r9,%rsi,8)
movupd 0x20(%rax,%rsi,8),%xmm0
subpd  %xmm0,%xmm1
movupd 0x30(%rax,%rsi,8),%xmm0
subpd  %xmm0,%xmm3
movupd %xmm1,0x20(%r9,%rsi,8)
movupd %xmm3,0x30(%r9,%rsi,8)
add    $0x8,%rsi
add    $0xfffffffffffffffe,%rdi
jne    1220 <mortar_postfrd+0x120>
test   $0x1,%r8b
je     12ba <mortar_postfrd+0x1ba>
movupd (%r9,%rsi,8),%xmm0
movupd 0x10(%r9,%rsi,8),%xmm1
movupd (%rax,%rsi,8),%xmm2
subpd  %xmm2,%xmm0
movupd 0x10(%rax,%rsi,8),%xmm2
subpd  %xmm2,%xmm1
movupd %xmm0,(%r9,%rsi,8)
movupd %xmm1,0x10(%r9,%rsi,8)
cmp    %rcx,%rdx
jne    1142 <mortar_postfrd+0x42>
ret
xor    %esi,%esi
test   $0x1,%r8b
jne    128d <mortar_postfrd+0x18d>
jmp    12ba <mortar_postfrd+0x1ba>

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

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