void putdata3d(int n1, int n2, int n3, double ***a) {
  int j1, j2, j3, seed = 0;
  for (j1 = 0; j1 <= n1 - 1; j1++) {
    for (j2 = 0; j2 <= n2 - 1; j2++) {
      for (j3 = 0; j3 <= n3 - 1; j3++) {
        a[j1][j2][j3] =
            ((*(&seed) = (*(&seed) * 7141 + 54773) % 259200) * (1.0 / 259200));
      }
    }
  }
}


x86 assembly (clang, -O0):
<putdata3d>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %edx,-0xc(%rbp)
mov    %rcx,-0x18(%rbp)
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
mov    -0x4(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     11d8 <putdata3d+0xd8>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
mov    -0x8(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     11c5 <putdata3d+0xc5>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     11b2 <putdata3d+0xb2>
imul   $0x1be5,-0x28(%rbp),%eax
add    $0xd5f5,%eax
mov    $0x3f480,%ecx
cltd
idiv   %ecx
mov    %edx,-0x28(%rbp)
cvtsi2sd %edx,%xmm0
movsd  0xe7d(%rip),%xmm1
mulsd  %xmm1,%xmm0
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    114f <putdata3d+0x4f>
jmp    11b7 <putdata3d+0xb7>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1137 <putdata3d+0x37>
jmp    11ca <putdata3d+0xca>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    111f <putdata3d+0x1f>
pop    %rbp
ret

x86 assembly (clang, -O2):
<putdata3d>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
test   %edi,%edi
jle    1262 <putdata3d+0x162>
mov    %edi,%r8d
mov    %esi,%r10d
mov    %edx,%r9d
mov    %r9d,%r15d
and    $0xfffffffe,%r15d
xor    %r11d,%r11d
movsd  0xed5(%rip),%xmm0
xor    %ebx,%ebx
jmp    113d <putdata3d+0x3d>
nop
add    $0x1,%r11
cmp    %r8,%r11
je     1262 <putdata3d+0x162>
test   %esi,%esi
jle    1130 <putdata3d+0x30>
xor    %r14d,%r14d
jmp    1159 <putdata3d+0x59>
cs nopw 0x0(%rax,%rax,1)
add    $0x1,%r14
cmp    %r10,%r14
je     1130 <putdata3d+0x30>
test   %edx,%edx
jle    1150 <putdata3d+0x50>
mov    (%rcx,%r11,8),%rax
mov    (%rax,%r14,8),%r12
xor    %eax,%eax
cmp    $0x1,%edx
je     120c <putdata3d+0x10c>
imul   $0x1be5,%ebx,%ebx
mov    %ebx,%ebp
add    $0xd5f5,%ebp
movslq %ebp,%rbp
imul   $0xffffffff81742e05,%rbp,%rdi
shr    $0x20,%rdi
add    %ebx,%edi
add    $0xd5f5,%edi
mov    %edi,%ebx
shr    $0x1f,%ebx
sar    $0x11,%edi
add    %ebx,%edi
imul   $0x3f480,%edi,%edi
sub    %edi,%ebp
xorps  %xmm1,%xmm1
cvtsi2sd %ebp,%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%r12,%rax,8)
imul   $0x1be5,%ebp,%edi
mov    %edi,%ebx
add    $0xd5f5,%ebx
movslq %ebx,%rbx
imul   $0xffffffff81742e05,%rbx,%rbp
shr    $0x20,%rbp
add    %ebp,%edi
add    $0xd5f5,%edi
mov    %edi,%ebp
shr    $0x1f,%ebp
sar    $0x11,%edi
add    %ebp,%edi
imul   $0x3f480,%edi,%edi
sub    %edi,%ebx
xorps  %xmm1,%xmm1
cvtsi2sd %ebx,%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,0x8(%r12,%rax,8)
add    $0x2,%rax
cmp    %rax,%r15
jne    1170 <putdata3d+0x70>
test   $0x1,%r9b
je     1150 <putdata3d+0x50>
imul   $0x1be5,%ebx,%edi
mov    %edi,%ebx
add    $0xd5f5,%ebx
movslq %ebx,%rbx
imul   $0xffffffff81742e05,%rbx,%rbp
shr    $0x20,%rbp
add    %ebp,%edi
add    $0xd5f5,%edi
mov    %edi,%ebp
shr    $0x1f,%ebp
sar    $0x11,%edi
add    %ebp,%edi
imul   $0x3f480,%edi,%edi
sub    %edi,%ebx
xorps  %xmm1,%xmm1
cvtsi2sd %ebx,%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%r12,%rax,8)
jmp    1150 <putdata3d+0x50>
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @putdata3d(i32 %0, i32 %1, i32 %2, double*** nocapture %3) {
%5 = icmp sgt i32 %0, 0
br i1 %5, label %6, label %67
6: ; preds = %4
%7 = icmp sgt i32 %1, 0
%8 = icmp sgt i32 %2, 0
%9 = zext i32 %0 to i64
%10 = zext i32 %1 to i64
%11 = zext i32 %2 to i64
%12 = and i64 %11, 1
%13 = icmp eq i32 %2, 1
%14 = and i64 %11, 4294967294
%15 = icmp eq i64 %12, 0
br label %16
16: ; preds = %6, %63
%17 = phi i64 [ 0, %6 ], [ %65, %63 ]
%18 = phi i32 [ 0, %6 ], [ %64, %63 ]
br i1 %7, label %19, label %63
19: ; preds = %16
%20 = getelementptr inbounds double**, double*** %3, i64 %17
br label %21
21: ; preds = %19, %59
%22 = phi i64 [ 0, %19 ], [ %61, %59 ]
%23 = phi i32 [ %18, %19 ], [ %60, %59 ]
br i1 %8, label %24, label %59
24: ; preds = %21
%25 = load double**, double*** %20
%26 = getelementptr inbounds double*, double** %25, i64 %22
%27 = load double*, double** %26
br i1 %13, label %48, label %28
28: ; preds = %24, %28
%29 = phi i64 [ %45, %28 ], [ 0, %24 ]
%30 = phi i32 [ %41, %28 ], [ %23, %24 ]
%31 = phi i64 [ %46, %28 ], [ 0, %24 ]
%32 = mul nsw i32 %30, 7141
%33 = add nsw i32 %32, 54773
%34 = srem i32 %33, 259200
%35 = sitofp i32 %34 to double
%36 = fmul double %35, 0x3ED02E85C0898B71
%37 = getelementptr inbounds double, double* %27, i64 %29
store double %36, double* %37
%38 = or i64 %29, 1
%39 = mul nsw i32 %34, 7141
%40 = add nsw i32 %39, 54773
%41 = srem i32 %40, 259200
%42 = sitofp i32 %41 to double
%43 = fmul double %42, 0x3ED02E85C0898B71
%44 = getelementptr inbounds double, double* %27, i64 %38
store double %43, double* %44
%45 = add nuw nsw i64 %29, 2
%46 = add i64 %31, 2
%47 = icmp eq i64 %46, %14
br i1 %47, label %48, label %28
48: ; preds = %28, %24
%49 = phi i32 [ undef, %24 ], [ %41, %28 ]
%50 = phi i64 [ 0, %24 ], [ %45, %28 ]
%51 = phi i32 [ %23, %24 ], [ %41, %28 ]
br i1 %15, label %59, label %52
52: ; preds = %48
%53 = mul nsw i32 %51, 7141
%54 = add nsw i32 %53, 54773
%55 = srem i32 %54, 259200
%56 = sitofp i32 %55 to double
%57 = fmul double %56, 0x3ED02E85C0898B71
%58 = getelementptr inbounds double, double* %27, i64 %50
store double %57, double* %58
br label %59
59: ; preds = %52, %48, %21
%60 = phi i32 [ %23, %21 ], [ %49, %48 ], [ %55, %52 ]
%61 = add nuw nsw i64 %22, 1
%62 = icmp eq i64 %61, %10
br i1 %62, label %63, label %21
63: ; preds = %59, %16
%64 = phi i32 [ %18, %16 ], [ %60, %59 ]
%65 = add nuw nsw i64 %17, 1
%66 = icmp eq i64 %65, %9
br i1 %66, label %67, label %16
67: ; preds = %63, %4
ret void
}