double ran3(long *idum) {
  static int inext, inextp;
  static long ma[56];
  static int iff = 0;
  long mj, mk;
  int i, ii, k;
  if (*idum < 0 || iff == 0) {
    iff = 1;
    mj = 161803398 - (*idum < 0 ? -*idum : *idum);
    mj %= 1000000000;
    ma[55] = mj;
    mk = 1;
    for (i = 1; i <= 54; i++) {
      ii = (21 * i) % 55;
      ma[ii] = mk;
      mk = mj - mk;
      if (mk < 0)
        mk += 1000000000;
      mj = ma[ii];
    }
    for (k = 1; k <= 4; k++)
      for (i = 1; i <= 55; i++) {
        ma[i] -= ma[1 + (i + 30) % 55];
        if (ma[i] < 0)
          ma[i] += 1000000000;
      }
    inext = 0;
    inextp = 31;
    *idum = 1;
  }
  if (++inext == 56)
    inext = 1;
  if (++inextp == 56)
    inextp = 1;
  mj = ma[inext] - ma[inextp];
  if (mj < 0)
    mj += 1000000000;
  ma[inext] = mj;
  return mj * (1.0 / 1000000000);
}


x86 assembly (clang, -O0):
<ran3>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rax
cmpq   $0x0,(%rax)
jl     1123 <ran3+0x23>
cmpl   $0x0,0x30e3(%rip)
jne    12e0 <ran3+0x1e0>
movl   $0x1,0x30d3(%rip)
mov    -0x8(%rbp),%rax
cmpq   $0x0,(%rax)
jge    114d <ran3+0x4d>
mov    -0x8(%rbp),%rcx
xor    %eax,%eax
sub    (%rcx),%rax
mov    %rax,-0x30(%rbp)
jmp    1158 <ran3+0x58>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rcx
mov    $0x9a4ec86,%eax
sub    %rcx,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    $0x3b9aca00,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,0x3073(%rip)
movq   $0x1,-0x18(%rbp)
movl   $0x1,-0x1c(%rbp)
cmpl   $0x36,-0x1c(%rbp)
jg     1206 <ran3+0x106>
imul   $0x15,-0x1c(%rbp),%eax
mov    $0x37,%ecx
cltd
idiv   %ecx
mov    %edx,-0x20(%rbp)
mov    -0x18(%rbp),%rdx
movslq -0x20(%rbp),%rcx
lea    0x2e84(%rip),%rax
mov    %rdx,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
sub    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
jge    11e5 <ran3+0xe5>
mov    -0x18(%rbp),%rax
add    $0x3b9aca00,%rax
mov    %rax,-0x18(%rbp)
movslq -0x20(%rbp),%rcx
lea    0x2e50(%rip),%rax
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x10(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1194 <ran3+0x94>
movl   $0x1,-0x24(%rbp)
cmpl   $0x4,-0x24(%rbp)
jg     12c1 <ran3+0x1c1>
movl   $0x1,-0x1c(%rbp)
cmpl   $0x37,-0x1c(%rbp)
jg     12ae <ran3+0x1ae>
mov    -0x1c(%rbp),%eax
add    $0x1e,%eax
mov    $0x37,%ecx
cltd
idiv   %ecx
add    $0x1,%edx
movslq %edx,%rcx
lea    0x2dfd(%rip),%rax
mov    (%rax,%rcx,8),%rax
movslq -0x1c(%rbp),%rcx
lea    0x2dee(%rip),%rdx
mov    (%rdx,%rcx,8),%rdx
sub    %rax,%rdx
lea    0x2de0(%rip),%rax
mov    %rdx,(%rax,%rcx,8)
movslq -0x1c(%rbp),%rcx
lea    0x2dd1(%rip),%rax
cmpq   $0x0,(%rax,%rcx,8)
jge    129b <ran3+0x19b>
movslq -0x1c(%rbp),%rcx
lea    0x2dbb(%rip),%rax
mov    (%rax,%rcx,8),%rdx
add    $0x3b9aca00,%rdx
lea    0x2da9(%rip),%rax
mov    %rdx,(%rax,%rcx,8)
jmp    12a0 <ran3+0x1a0>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    121e <ran3+0x11e>
jmp    12b3 <ran3+0x1b3>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    120d <ran3+0x10d>
movl   $0x0,0x2d65(%rip)
movl   $0x1f,0x2d5f(%rip)
mov    -0x8(%rbp),%rax
movq   $0x1,(%rax)
mov    0x2d4a(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2d41(%rip)
cmp    $0x38,%eax
jne    1302 <ran3+0x202>
movl   $0x1,0x2d2e(%rip)
mov    0x2d2c(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2d23(%rip)
cmp    $0x38,%eax
jne    1324 <ran3+0x224>
movl   $0x1,0x2d10(%rip)
movslq 0x2d05(%rip),%rcx
lea    0x2d0e(%rip),%rax
mov    (%rax,%rcx,8),%rax
movslq 0x2cf7(%rip),%rdx
lea    0x2cfc(%rip),%rcx
sub    (%rcx,%rdx,8),%rax
mov    %rax,-0x10(%rbp)
cmpq   $0x0,-0x10(%rbp)
jge    1365 <ran3+0x265>
mov    -0x10(%rbp),%rax
add    $0x3b9aca00,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rdx
movslq 0x2cc0(%rip),%rcx
lea    0x2cc9(%rip),%rax
mov    %rdx,(%rax,%rcx,8)
cvtsi2sdq -0x10(%rbp),%xmm0
movsd  0xc77(%rip),%xmm1
mulsd  %xmm1,%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<ran3>:
mov    (%rdi),%rax
test   %rax,%rax
js     1142 <ran3+0x42>
testb  $0x1,0x30f1(%rip)
je     1142 <ran3+0x42>
mov    0x2f19(%rip),%ecx
mov    0x2f17(%rip),%eax
add    $0x1,%ecx
add    $0x1,%eax
cmp    $0x38,%ecx
mov    $0x1,%edx
cmove  %edx,%ecx
mov    %ecx,0x2efc(%rip)
cmp    $0x38,%eax
cmove  %edx,%eax
movslq %ecx,%rcx
jmp    135f <ran3+0x25f>
mov    %rax,%rcx
neg    %rcx
cmovns %rax,%rcx
add    $0x9a4ec86,%rcx
movabs $0x112e0be826d694b3,%rdx
0b 2e 11
mov    %rcx,%rax
imul   %rdx
movb   $0x1,0x3096(%rip)
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x1a,%rdx
add    %rax,%rdx
imul   $0x3b9aca00,%rdx,%rax
sub    %rax,%rcx
mov    %rcx,0x306f(%rip)
mov    $0x1,%r9d
mov    $0x36,%r8d
lea    0x2f4c(%rip),%r10
mov    $0x15,%esi
movabs $0x29e4129e4129e413,%r11
12 e4 29
nopl   0x0(%rax,%rax,1)
mov    %rsi,%rax
mul    %r11
mov    %rsi,%rax
sub    %rdx,%rax
shr    %rax
add    %rdx,%rax
shr    $0x5,%rax
imul   $0xfffffffffffffe48,%rax,%rax
sub    %r9,%rcx
lea    0x3b9aca00(%rcx),%rdx
test   %rcx,%rcx
cmovns %rcx,%rdx
mov    %r9,(%r10,%rax,1)
add    $0xa8,%r10
add    $0x15,%rsi
mov    %r9,%rcx
mov    %rdx,%r9
add    $0xffffffff,%r8d
jne    11b0 <ran3+0xb0>
mov    $0x1,%ecx
mov    $0x20,%r9b
mov    $0x1f,%sil
lea    0x2e35(%rip),%r8
nopl   0x0(%rax,%rax,1)
movzbl %sil,%esi
imul   $0x95,%esi,%eax
shr    $0xd,%eax
imul   $0x37,%eax,%eax
mov    %r9d,%edx
sub    %al,%dl
movzbl %dl,%eax
mov    (%r8,%rcx,8),%rdx
sub    (%r8,%rax,8),%rdx
lea    0x3b9aca00(%rdx),%rax
test   %rdx,%rdx
cmovns %rdx,%rax
mov    %rax,(%r8,%rcx,8)
add    $0x1,%rcx
add    $0x1,%r9b
add    $0x1,%sil
cmp    $0x38,%rcx
jne    1210 <ran3+0x110>
mov    $0x1,%ecx
mov    $0x20,%r9b
mov    $0x1f,%sil
nop
movzbl %sil,%esi
imul   $0x95,%esi,%eax
shr    $0xd,%eax
imul   $0x37,%eax,%eax
mov    %r9d,%edx
sub    %al,%dl
movzbl %dl,%eax
mov    (%r8,%rcx,8),%rdx
sub    (%r8,%rax,8),%rdx
lea    0x3b9aca00(%rdx),%rax
test   %rdx,%rdx
cmovns %rdx,%rax
mov    %rax,(%r8,%rcx,8)
add    $0x1,%rcx
add    $0x1,%r9b
add    $0x1,%sil
cmp    $0x38,%rcx
jne    1260 <ran3+0x160>
mov    $0x1,%ecx
mov    $0x20,%r9b
mov    $0x1f,%sil
nop
movzbl %sil,%esi
imul   $0x95,%esi,%eax
shr    $0xd,%eax
imul   $0x37,%eax,%eax
mov    %r9d,%edx
sub    %al,%dl
movzbl %dl,%eax
mov    (%r8,%rcx,8),%rdx
sub    (%r8,%rax,8),%rdx
lea    0x3b9aca00(%rdx),%rax
test   %rdx,%rdx
cmovns %rdx,%rax
mov    %rax,(%r8,%rcx,8)
add    $0x1,%rcx
add    $0x1,%r9b
add    $0x1,%sil
cmp    $0x38,%rcx
jne    12b0 <ran3+0x1b0>
mov    $0x1,%ecx
mov    $0x20,%r9b
mov    $0x1f,%sil
nop
movzbl %sil,%esi
imul   $0x95,%esi,%eax
shr    $0xd,%eax
imul   $0x37,%eax,%eax
mov    %r9d,%edx
sub    %al,%dl
movzbl %dl,%eax
mov    (%r8,%rcx,8),%rdx
sub    (%r8,%rax,8),%rdx
lea    0x3b9aca00(%rdx),%rax
test   %rdx,%rdx
cmovns %rdx,%rax
mov    %rax,(%r8,%rcx,8)
add    $0x1,%rcx
add    $0x1,%r9b
add    $0x1,%sil
cmp    $0x38,%rcx
jne    1300 <ran3+0x200>
movq   $0x1,(%rdi)
movl   $0x1,0x2cdb(%rip)
mov    $0x20,%eax
mov    $0x1,%ecx
mov    %eax,0x2ccf(%rip)
lea    0x2cd4(%rip),%rdx
mov    (%rdx,%rcx,8),%rsi
cltq
sub    (%rdx,%rax,8),%rsi
lea    0x3b9aca00(%rsi),%rax
test   %rsi,%rsi
cmovns %rsi,%rax
mov    %rax,(%rdx,%rcx,8)
cvtsi2sd %rax,%xmm0
mulsd  0xc6b(%rip),%xmm0
ret

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

LLVM IR (-O2):
@ran3.inext = internal unnamed_addr global i32 0
@ran3.inextp = internal unnamed_addr global i32 0
@ran3.ma = internal unnamed_addr global [56 x i64] zeroinitializer
@ran3.iff = internal unnamed_addr global i1 false
define double @ran3(i64* nocapture %0) {
%2 = load i64, i64* %0
%3 = icmp slt i64 %2, 0
%4 = load i1, i1* @ran3.iff
%5 = xor i1 %4, true
%6 = select i1 %3, i1 true, i1 %5
br i1 %6, label %7, label %96
7: ; preds = %1
store i1 true, i1* @ran3.iff
%8 = sub nsw i64 0, %2
%9 = select i1 %3, i64 %2, i64 %8
%10 = add nsw i64 %9, 161803398
%11 = srem i64 %10, 1000000000
store i64 %11, i64* getelementptr inbounds ([56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 55)
br label %12
12: ; preds = %7, %12
%13 = phi i64 [ %11, %7 ], [ %15, %12 ]
%14 = phi i32 [ 1, %7 ], [ %25, %12 ]
%15 = phi i64 [ 1, %7 ], [ %24, %12 ]
%16 = trunc i32 %14 to i16
%17 = mul i16 %16, 21
%18 = urem i16 %17, 55
%19 = zext i16 %18 to i64
%20 = getelementptr inbounds [56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 %19
store i64 %15, i64* %20
%21 = sub nsw i64 %13, %15
%22 = icmp slt i64 %21, 0
%23 = add nsw i64 %21, 1000000000
%24 = select i1 %22, i64 %23, i64 %21
%25 = add nuw nsw i32 %14, 1
%26 = icmp eq i32 %25, 55
br i1 %26, label %27, label %12
27: ; preds = %12, %27
%28 = phi i64 [ %42, %27 ], [ 1, %12 ]
%29 = trunc i64 %28 to i8
%30 = add i8 %29, 30
%31 = urem i8 %30, 55
%32 = add nuw nsw i8 %31, 1
%33 = zext i8 %32 to i64
%34 = getelementptr inbounds [56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 %33
%35 = load i64, i64* %34
%36 = getelementptr inbounds [56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 %28
%37 = load i64, i64* %36
%38 = sub nsw i64 %37, %35
%39 = icmp slt i64 %38, 0
%40 = add nsw i64 %38, 1000000000
%41 = select i1 %39, i64 %40, i64 %38
store i64 %41, i64* %36
%42 = add nuw nsw i64 %28, 1
%43 = icmp eq i64 %42, 56
br i1 %43, label %44, label %27
44: ; preds = %27, %44
%45 = phi i64 [ %59, %44 ], [ 1, %27 ]
%46 = trunc i64 %45 to i8
%47 = add i8 %46, 30
%48 = urem i8 %47, 55
%49 = add nuw nsw i8 %48, 1
%50 = zext i8 %49 to i64
%51 = getelementptr inbounds [56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 %50
%52 = load i64, i64* %51
%53 = getelementptr inbounds [56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 %45
%54 = load i64, i64* %53
%55 = sub nsw i64 %54, %52
%56 = icmp slt i64 %55, 0
%57 = add nsw i64 %55, 1000000000
%58 = select i1 %56, i64 %57, i64 %55
store i64 %58, i64* %53
%59 = add nuw nsw i64 %45, 1
%60 = icmp eq i64 %59, 56
br i1 %60, label %61, label %44
61: ; preds = %44, %61
%62 = phi i64 [ %76, %61 ], [ 1, %44 ]
%63 = trunc i64 %62 to i8
%64 = add i8 %63, 30
%65 = urem i8 %64, 55
%66 = add nuw nsw i8 %65, 1
%67 = zext i8 %66 to i64
%68 = getelementptr inbounds [56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 %67
%69 = load i64, i64* %68
%70 = getelementptr inbounds [56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 %62
%71 = load i64, i64* %70
%72 = sub nsw i64 %71, %69
%73 = icmp slt i64 %72, 0
%74 = add nsw i64 %72, 1000000000
%75 = select i1 %73, i64 %74, i64 %72
store i64 %75, i64* %70
%76 = add nuw nsw i64 %62, 1
%77 = icmp eq i64 %76, 56
br i1 %77, label %78, label %61
78: ; preds = %61, %78
%79 = phi i64 [ %93, %78 ], [ 1, %61 ]
%80 = trunc i64 %79 to i8
%81 = add i8 %80, 30
%82 = urem i8 %81, 55
%83 = add nuw nsw i8 %82, 1
%84 = zext i8 %83 to i64
%85 = getelementptr inbounds [56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 %84
%86 = load i64, i64* %85
%87 = getelementptr inbounds [56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 %79
%88 = load i64, i64* %87
%89 = sub nsw i64 %88, %86
%90 = icmp slt i64 %89, 0
%91 = add nsw i64 %89, 1000000000
%92 = select i1 %90, i64 %91, i64 %89
store i64 %92, i64* %87
%93 = add nuw nsw i64 %79, 1
%94 = icmp eq i64 %93, 56
br i1 %94, label %95, label %78
95: ; preds = %78
store i64 1, i64* %0
store i32 1, i32* @ran3.inext
br label %106
96: ; preds = %1
%97 = load i32, i32* @ran3.inext
%98 = load i32, i32* @ran3.inextp
%99 = add i32 %97, 1
%100 = add i32 %98, 1
%101 = icmp eq i32 %99, 56
%102 = select i1 %101, i32 1, i32 %99
store i32 %102, i32* @ran3.inext
%103 = icmp eq i32 %100, 56
%104 = select i1 %103, i32 1, i32 %100
%105 = sext i32 %102 to i64
br label %106
106: ; preds = %96, %95
%107 = phi i64 [ 1, %95 ], [ %105, %96 ]
%108 = phi i32 [ 32, %95 ], [ %104, %96 ]
store i32 %108, i32* @ran3.inextp
%109 = getelementptr inbounds [56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 %107
%110 = load i64, i64* %109
%111 = sext i32 %108 to i64
%112 = getelementptr inbounds [56 x i64], [56 x i64]* @ran3.ma, i64 0, i64 %111
%113 = load i64, i64* %112
%114 = sub nsw i64 %110, %113
%115 = icmp slt i64 %114, 0
%116 = add nsw i64 %114, 1000000000
%117 = select i1 %115, i64 %116, i64 %114
store i64 %117, i64* %109
%118 = sitofp i64 %117 to double
%119 = fmul double %118, 1.000000e-09
ret double %119
}