#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 */
double exp(double);
double ran3(long *);
void mcmove(int spin[][30], int nbr1[], int nbr2[]) {
  int i, ix, iy;
  int ixpick, iypick;
  int ss0, ss1, ss2, ss3, ss4, de;
  int flag;
  long int idum;
  double prob1, prob2;
  prob1 = exp(-8.0 / 0.9);
  prob2 = exp(-4.0 / 0.9);
  for (i = 1; i <= 30 * 30; i++) {
    ixpick = 30 * ran3(&idum);
    iypick = 30 * ran3(&idum);
    ss0 = spin[ixpick][iypick];
    ss1 = spin[nbr1[ixpick]][iypick];
    ss2 = spin[ixpick][nbr1[iypick]];
    ss3 = spin[nbr2[ixpick]][iypick];
    ss4 = spin[ixpick][nbr2[iypick]];
    de = 2 * ss0 * (ss1 + ss2 + ss3 + ss4);
    flag = 1;
    if ((de == 8) && (ran3(&idum) > prob1) ||
        (de == 4) && (ran3(&idum) > prob2))
      flag = 0;
    spin[ixpick][iypick] = (1 - 2 * flag) * spin[ixpick][iypick];
  }
}


x86 assembly (clang, -O0):
<mcmove>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movsd  0xecc(%rip),%xmm0
call   1030 <exp@plt>
movsd  %xmm0,-0x58(%rbp)
movsd  0xeb2(%rip),%xmm0
call   1030 <exp@plt>
movsd  %xmm0,-0x60(%rbp)
movl   $0x1,-0x1c(%rbp)
cmpl   $0x384,-0x1c(%rbp)
jg     12f1 <mcmove+0x1d1>
lea    -0x50(%rbp),%rdi
call   1040 <ran3@plt>
movaps %xmm0,%xmm1
movsd  0xe90(%rip),%xmm0
mulsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
mov    %eax,-0x28(%rbp)
lea    -0x50(%rbp),%rdi
call   1040 <ran3@plt>
movaps %xmm0,%xmm1
movsd  0xe71(%rip),%xmm0
mulsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
imul   $0x78,%rcx,%rcx
add    %rcx,%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x30(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
movslq -0x28(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
imul   $0x78,%rcx,%rcx
add    %rcx,%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x34(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
imul   $0x78,%rcx,%rcx
add    %rcx,%rax
mov    -0x10(%rbp),%rcx
movslq -0x2c(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x38(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
movslq -0x28(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
imul   $0x78,%rcx,%rcx
add    %rcx,%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
imul   $0x78,%rcx,%rcx
add    %rcx,%rax
mov    -0x18(%rbp),%rcx
movslq -0x2c(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x40(%rbp)
mov    -0x30(%rbp),%eax
shl    $0x1,%eax
mov    -0x34(%rbp),%ecx
add    -0x38(%rbp),%ecx
add    -0x3c(%rbp),%ecx
add    -0x40(%rbp),%ecx
imul   %ecx,%eax
mov    %eax,-0x44(%rbp)
movl   $0x1,-0x48(%rbp)
cmpl   $0x8,-0x44(%rbp)
jne    1284 <mcmove+0x164>
lea    -0x50(%rbp),%rdi
call   1040 <ran3@plt>
ucomisd -0x58(%rbp),%xmm0
ja     12a2 <mcmove+0x182>
cmpl   $0x4,-0x44(%rbp)
jne    12a9 <mcmove+0x189>
lea    -0x50(%rbp),%rdi
call   1040 <ran3@plt>
ucomisd -0x60(%rbp),%xmm0
jbe    12a9 <mcmove+0x189>
movl   $0x0,-0x48(%rbp)
mov    -0x48(%rbp),%eax
shl    $0x1,%eax
mov    $0x1,%edx
sub    %eax,%edx
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
imul   $0x78,%rcx,%rcx
add    %rcx,%rax
movslq -0x2c(%rbp),%rcx
imul   (%rax,%rcx,4),%edx
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
imul   $0x78,%rcx,%rcx
add    %rcx,%rax
movslq -0x2c(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    115f <mcmove+0x3f>
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<mcmove>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
mov    %rdx,0x8(%rsp)
mov    %rsi,%r15
mov    %rdi,%r13
mov    $0x384,%ebp
jmp    114a <mcmove+0x3a>
mov    $0x1,%r14d
lea    (%r12,%rbx,4),%rax
imul   (%rax),%r14d
mov    %r14d,(%rax)
add    $0xffffffff,%ebp
je     122b <mcmove+0x11b>
mov    %rsp,%rbx
mov    %rbx,%rdi
call   1030 <ran3@plt>
movapd %xmm0,0x10(%rsp)
mov    %rbx,%rdi
call   1030 <ran3@plt>
movapd 0x10(%rsp),%xmm1
unpcklpd %xmm0,%xmm1
mulpd  0xe8b(%rip),%xmm1
cvttpd2dq %xmm1,%xmm0
xorpd  %xmm1,%xmm1
pcmpgtd %xmm0,%xmm1
punpckldq %xmm1,%xmm0
movq   %xmm0,%rcx
pshufd $0xee,%xmm0,%xmm0
movq   %xmm0,%rbx
imul   $0x78,%rcx,%r12
add    %r13,%r12
movslq (%r15,%rcx,4),%rax
imul   $0x78,%rax,%rdx
add    %r13,%rdx
movslq (%r15,%rbx,4),%rax
mov    (%r12,%rax,4),%eax
mov    0x8(%rsp),%rsi
movslq (%rsi,%rcx,4),%rcx
imul   $0x78,%rcx,%rcx
add    %r13,%rcx
movslq (%rsi,%rbx,4),%rsi
add    (%rdx,%rbx,4),%eax
add    (%rcx,%rbx,4),%eax
add    (%r12,%rsi,4),%eax
imul   (%r12,%rbx,4),%eax
add    %eax,%eax
mov    $0xffffffff,%r14d
cmp    $0x4,%eax
je     1210 <mcmove+0x100>
cmp    $0x8,%eax
jne    1136 <mcmove+0x26>
mov    %rsp,%rdi
call   1030 <ran3@plt>
ucomisd 0xe21(%rip),%xmm0
ja     1130 <mcmove+0x20>
jmp    1136 <mcmove+0x26>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    %rsp,%rdi
call   1030 <ran3@plt>
ucomisd 0xdf0(%rip),%xmm0
ja     1130 <mcmove+0x20>
jmp    1136 <mcmove+0x26>
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @mcmove([30 x i32]* nocapture %0, i32* nocapture %1, i32* nocapture %2) {
%4 = alloca i64
%5 = bitcast i64* %4 to i8*
br label %6
6: ; preds = %3, %51
%7 = phi i32 [ 1, %3 ], [ %55, %51 ]
%8 = call double @ran3(i64* %4)
%9 = call double @ran3(i64* %4)
%10 = insertelement <2 x double> poison, double %8, i64 0
%11 = insertelement <2 x double> %10, double %9, i64 1
%12 = fmul <2 x double> %11, <double 3.000000e+01, double 3.000000e+01>
%13 = fptosi <2 x double> %12 to <2 x i32>
%14 = sext <2 x i32> %13 to <2 x i64>
%15 = extractelement <2 x i64> %14, i64 0
%16 = extractelement <2 x i64> %14, i64 1
%17 = getelementptr inbounds [30 x i32], [30 x i32]* %0, i64 %15, i64 %16
%18 = load i32, i32* %17
%19 = getelementptr inbounds i32, i32* %1, i64 %15
%20 = load i32, i32* %19
%21 = sext i32 %20 to i64
%22 = getelementptr inbounds [30 x i32], [30 x i32]* %0, i64 %21, i64 %16
%23 = load i32, i32* %22
%24 = getelementptr inbounds i32, i32* %1, i64 %16
%25 = load i32, i32* %24
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds [30 x i32], [30 x i32]* %0, i64 %15, i64 %26
%28 = load i32, i32* %27
%29 = getelementptr inbounds i32, i32* %2, i64 %15
%30 = load i32, i32* %29
%31 = sext i32 %30 to i64
%32 = getelementptr inbounds [30 x i32], [30 x i32]* %0, i64 %31, i64 %16
%33 = load i32, i32* %32
%34 = getelementptr inbounds i32, i32* %2, i64 %16
%35 = load i32, i32* %34
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds [30 x i32], [30 x i32]* %0, i64 %15, i64 %36
%38 = load i32, i32* %37
%39 = shl nsw i32 %18, 1
%40 = add nsw i32 %28, %23
%41 = add nsw i32 %40, %33
%42 = add nsw i32 %41, %38
%43 = mul nsw i32 %39, %42
switch i32 %43, label %51 [
i32 8, label %44
i32 4, label %47
]
44: ; preds = %6
%45 = call double @ran3(i64* %4)
%46 = fcmp ogt double %45, 0x3F22139602F83846
br i1 %46, label %50, label %51
47: ; preds = %6
%48 = call double @ran3(i64* %4)
%49 = fcmp ogt double %48, 0x3F880D0B2146357A
br i1 %49, label %50, label %51
50: ; preds = %47, %44
br label %51
51: ; preds = %44, %6, %50, %47
%52 = phi i32 [ 1, %50 ], [ -1, %47 ], [ -1, %6 ], [ -1, %44 ]
%53 = load i32, i32* %17
%54 = mul nsw i32 %53, %52
store i32 %54, i32* %17
%55 = add nuw nsw i32 %7, 1
%56 = icmp eq i32 %55, 901
br i1 %56, label %57, label %6
57: ; preds = %51
ret void
}