#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ dgemm_nn(int, double *, double *);
void metricize(double *d, double *d2, int n, int limit) {
  int i, count = 1;
  double error = 1.0;
  while (error > 10e-12) {
    error = 0;
    dgemm_nn(n, d, d2);
#pragma omp parallel for private(i) shared(d, d2) reduction(max : error)
    for (i = 0; i < n * n; i++) {
      if (error < d[i] - d2[i])
        error = d[i] - d2[i];
      d[i] = d2[i];
    }
    if ((limit > 0) && (++count > limit))
      break;
  }
}


x86 assembly (clang, -O0):
<metricize>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
movl   $0x1,-0x20(%rbp)
movsd  0xecb(%rip),%xmm0
movsd  %xmm0,-0x28(%rbp)
movsd  -0x28(%rbp),%xmm0
movsd  0xec1(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    1218 <metricize+0x108>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x14(%rbp),%edi
mov    -0x8(%rbp),%rsi
mov    -0x10(%rbp),%rdx
call   1030 <dgemm_nn@plt>
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
mov    -0x14(%rbp),%ecx
imul   -0x14(%rbp),%ecx
cmp    %ecx,%eax
jge    11f2 <metricize+0xe2>
movsd  -0x28(%rbp),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    11ca <metricize+0xba>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1170 <metricize+0x60>
cmpl   $0x0,-0x18(%rbp)
jle    1213 <metricize+0x103>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
cmp    -0x18(%rbp),%eax
jle    1213 <metricize+0x103>
jmp    1218 <metricize+0x108>
jmp    113a <metricize+0x2a>
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<metricize>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %ecx,%r15d
mov    %rsi,%rbp
mov    %rdi,%rbx
mov    %edx,0x4(%rsp)
mov    %edx,%r12d
imul   %r12d,%r12d
mov    %r12d,%r13d
and    $0xfffffffe,%r13d
mov    $0x1,%r14d
jmp    114e <metricize+0x3e>
xchg   %ax,%ax
ucomisd 0xeb8(%rip),%xmm0
jbe    11f8 <metricize+0xe8>
mov    0x4(%rsp),%edi
mov    %rbx,%rsi
mov    %rbp,%rdx
call   1030 <dgemm_nn@plt>
xorpd  %xmm0,%xmm0
test   %r12,%r12
je     11e1 <metricize+0xd1>
cmp    $0x1,%r12d
jne    1170 <metricize+0x60>
xor    %eax,%eax
jmp    11bf <metricize+0xaf>
xorpd  %xmm1,%xmm1
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
movsd  0x0(%rbp,%rax,8),%xmm2
movsd  (%rbx,%rax,8),%xmm3
movsd  0x8(%rbx,%rax,8),%xmm0
subsd  %xmm2,%xmm3
maxsd  %xmm1,%xmm3
movsd  %xmm2,(%rbx,%rax,8)
movsd  0x8(%rbp,%rax,8),%xmm1
subsd  %xmm1,%xmm0
maxsd  %xmm3,%xmm0
movsd  %xmm1,0x8(%rbx,%rax,8)
add    $0x2,%rax
movapd %xmm0,%xmm1
cmp    %rax,%r13
jne    1180 <metricize+0x70>
test   $0x1,%r12b
je     11e1 <metricize+0xd1>
movsd  (%rbx,%rax,8),%xmm1
movsd  0x0(%rbp,%rax,8),%xmm2
subsd  %xmm2,%xmm1
maxsd  %xmm0,%xmm1
movsd  %xmm2,(%rbx,%rax,8)
movapd %xmm1,%xmm0
test   %r15d,%r15d
jle    1140 <metricize+0x30>
cmp    %r15d,%r14d
jge    11f8 <metricize+0xe8>
add    $0x1,%r14d
jmp    1140 <metricize+0x30>
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @metricize(double* %0, double* %1, i32 %2, i32 %3) {
%5 = alloca double*
%6 = alloca double*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca double
store double* %0, double** %5
store double* %1, double** %6
store i32 %2, i32* %7
store i32 %3, i32* %8
store i32 1, i32* %10
store double 1.000000e+00, double* %11
br label %12
12: ; preds = %74, %4
%13 = load double, double* %11
%14 = fcmp ogt double %13, 0x3DA5FD7FE1796495
br i1 %14, label %15, label %75
15: ; preds = %12
store double 0.000000e+00, double* %11
%16 = load i32, i32* %7
%17 = load double*, double** %5
%18 = load double*, double** %6
%19 = call i32 @dgemm_nn(i32 %16, double* %17, double* %18)
store i32 0, i32* %9
br label %20
20: ; preds = %62, %15
%21 = load i32, i32* %9
%22 = load i32, i32* %7
%23 = load i32, i32* %7
%24 = mul nsw i32 %22, %23
%25 = icmp slt i32 %21, %24
br i1 %25, label %26, label %65
26: ; preds = %20
%27 = load double, double* %11
%28 = load double*, double** %5
%29 = load i32, i32* %9
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds double, double* %28, i64 %30
%32 = load double, double* %31
%33 = load double*, double** %6
%34 = load i32, i32* %9
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds double, double* %33, i64 %35
%37 = load double, double* %36
%38 = fsub double %32, %37
%39 = fcmp olt double %27, %38
br i1 %39, label %40, label %52
40: ; preds = %26
%41 = load double*, double** %5
%42 = load i32, i32* %9
%43 = sext i32 %42 to i64
%44 = getelementptr inbounds double, double* %41, i64 %43
%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 = fsub double %45, %50
store double %51, double* %11
br label %52
52: ; preds = %40, %26
%53 = load double*, double** %6
%54 = load i32, i32* %9
%55 = sext i32 %54 to i64
%56 = getelementptr inbounds double, double* %53, i64 %55
%57 = load double, double* %56
%58 = load double*, double** %5
%59 = load i32, i32* %9
%60 = sext i32 %59 to i64
%61 = getelementptr inbounds double, double* %58, i64 %60
store double %57, double* %61
br label %62
62: ; preds = %52
%63 = load i32, i32* %9
%64 = add nsw i32 %63, 1
store i32 %64, i32* %9
br label %20
65: ; preds = %20
%66 = load i32, i32* %8
%67 = icmp sgt i32 %66, 0
br i1 %67, label %68, label %74
68: ; preds = %65
%69 = load i32, i32* %10
%70 = add nsw i32 %69, 1
store i32 %70, i32* %10
%71 = load i32, i32* %8
%72 = icmp sgt i32 %70, %71
br i1 %72, label %73, label %74
73: ; preds = %68
br label %75
74: ; preds = %68, %65
br label %12
75: ; preds = %73, %12
ret void
}

LLVM IR (-O2):
define void @metricize(double* %0, double* %1, i32 %2, i32 %3) {
%5 = mul i32 %2, %2
%6 = icmp sgt i32 %3, 0
%7 = zext i32 %5 to i64
%8 = and i64 %7, 1
%9 = icmp eq i32 %5, 1
%10 = and i64 %7, 4294967294
%11 = icmp eq i64 %8, 0
br label %12
12: ; preds = %4, %54
%13 = phi i32 [ 1, %4 ], [ %55, %54 ]
%14 = tail call i32 @dgemm_nn(i32 %2, double* %0, double* %1)
switch i32 %5, label %15 [
i32 0, label %49
i32 1, label %37
]
15: ; preds = %12, %15
%16 = phi i64 [ %34, %15 ], [ 0, %12 ]
%17 = phi double [ %33, %15 ], [ 0.000000e+00, %12 ]
%18 = phi i64 [ %35, %15 ], [ 0, %12 ]
%19 = getelementptr inbounds double, double* %0, i64 %16
%20 = load double, double* %19
%21 = getelementptr inbounds double, double* %1, i64 %16
%22 = load double, double* %21
%23 = fsub double %20, %22
%24 = fcmp olt double %17, %23
%25 = select i1 %24, double %23, double %17
store double %22, double* %19
%26 = or i64 %16, 1
%27 = getelementptr inbounds double, double* %0, i64 %26
%28 = load double, double* %27
%29 = getelementptr inbounds double, double* %1, i64 %26
%30 = load double, double* %29
%31 = fsub double %28, %30
%32 = fcmp olt double %25, %31
%33 = select i1 %32, double %31, double %25
store double %30, double* %27
%34 = add nuw nsw i64 %16, 2
%35 = add i64 %18, 2
%36 = icmp eq i64 %35, %10
br i1 %36, label %37, label %15
37: ; preds = %15, %12
%38 = phi double [ undef, %12 ], [ %33, %15 ]
%39 = phi i64 [ 0, %12 ], [ %34, %15 ]
%40 = phi double [ 0.000000e+00, %12 ], [ %33, %15 ]
br i1 %11, label %49, label %41
41: ; preds = %37
%42 = getelementptr inbounds double, double* %0, i64 %39
%43 = load double, double* %42
%44 = getelementptr inbounds double, double* %1, i64 %39
%45 = load double, double* %44
%46 = fsub double %43, %45
%47 = fcmp olt double %40, %46
%48 = select i1 %47, double %46, double %40
store double %45, double* %42
br label %49
49: ; preds = %41, %37, %12
%50 = phi double [ 0.000000e+00, %12 ], [ %38, %37 ], [ %48, %41 ]
br i1 %6, label %51, label %54
51: ; preds = %49
%52 = add nsw i32 %13, 1
%53 = icmp slt i32 %13, %3
br i1 %53, label %54, label %57
54: ; preds = %51, %49
%55 = phi i32 [ %52, %51 ], [ %13, %49 ]
%56 = fcmp ogt double %50, 0x3DA5FD7FE1796495
br i1 %56, label %12, label %57
57: ; preds = %51, %54
ret void
}