void create_map(map, dim, units_p_dim, ivars, total_units, coords) int dim,
    units_p_dim, ivars, total_units;
int **coords;
float **map;
{
  int i, j;
  for (i = 1; i <= total_units; i++) {
    for (j = 1; j <= dim; j++)
      map[i][j] =
          2 * (coords[i][j] - (.5 * units_p_dim) - .5) / (units_p_dim - 1);
    for (j = dim + 1; j <= ivars; j++)
      map[i][j] = 0;
  }
}


x86 assembly (clang, -O0):
<create_map>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    %r8d,-0x18(%rbp)
mov    %r9,-0x20(%rbp)
movl   $0x1,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x18(%rbp),%eax
jg     1204 <create_map+0x104>
movl   $0x1,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     11b6 <create_map+0xb6>
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x28(%rbp),%rcx
cvtsi2sdl (%rax,%rcx,4),%xmm0
cvtsi2sdl -0x10(%rbp),%xmm1
movsd  0xeaf(%rip),%xmm2
mulsd  %xmm2,%xmm1
addsd  %xmm0,%xmm1
movsd  0xe97(%rip),%xmm0
subsd  %xmm0,%xmm1
movsd  0xe83(%rip),%xmm0
mulsd  %xmm1,%xmm0
mov    -0x10(%rbp),%eax
sub    $0x1,%eax
cvtsi2sd %eax,%xmm1
divsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x28(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1133 <create_map+0x33>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     11f1 <create_map+0xf1>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x28(%rbp),%rcx
xorps  %xmm0,%xmm0
movss  %xmm0,(%rax,%rcx,4)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    11bf <create_map+0xbf>
jmp    11f6 <create_map+0xf6>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1120 <create_map+0x20>
pop    %rbp
ret

x86 assembly (clang, -O2):
<create_map>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x78,%rsp
mov    %r9,0x28(%rsp)
test   %r8d,%r8d
jle    12eb <create_map+0x1db>
mov    %r8d,%r15d
mov    %ecx,%ebx
mov    %esi,%r9d
mov    %rdi,%rbp
cvtsi2sd %edx,%xmm2
add    $0xffffffff,%edx
cvtsi2sd %edx,%xmm3
lea    0x1(%r9),%r13d
movslq %esi,%rax
lea    0x1(%rax),%rdx
not    %eax
add    %ecx,%eax
lea    0x4(,%rax,4),%rax
mov    %rax,0x10(%rsp)
add    $0x1,%r15d
lea    -0x1(%r13),%r14
mov    %r14,(%rsp)
and    $0xfffffffffffffffc,%r14
lea    0x1(%r14),%rax
mov    %rax,0x8(%rsp)
movapd %xmm2,%xmm4
unpcklpd %xmm2,%xmm4
movapd %xmm3,%xmm5
unpcklpd %xmm3,%xmm5
mov    $0x1,%r12d
shl    $0x2,%rdx
mov    %rdx,0x18(%rsp)
movsd  0xe72(%rip),%xmm6
mulsd  %xmm6,%xmm2
movapd 0xe56(%rip),%xmm7
mulpd  %xmm7,%xmm4
mov    %r9,0x20(%rsp)
movapd %xmm2,0x60(%rsp)
movapd %xmm3,0x50(%rsp)
movapd %xmm4,0x40(%rsp)
movapd %xmm5,0x30(%rsp)
jmp    11dd <create_map+0xcd>
nopl   (%rax)
add    $0x1,%r12
cmp    %r15,%r12
je     12eb <create_map+0x1db>
test   %r9d,%r9d
jle    129a <create_map+0x18a>
mov    0x28(%rsp),%rax
mov    (%rax,%r12,8),%rax
mov    0x0(%rbp,%r12,8),%rsi
mov    $0x1,%edx
cmpq   $0x4,(%rsp)
jb     1270 <create_map+0x160>
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movdqu 0x4(%rax,%rdx,4),%xmm0
pshufd $0xee,%xmm0,%xmm1
cvtdq2pd %xmm1,%xmm1
cvtdq2pd %xmm0,%xmm0
addpd  %xmm4,%xmm0
addpd  %xmm4,%xmm1
addpd  %xmm7,%xmm1
addpd  %xmm7,%xmm0
addpd  %xmm0,%xmm0
addpd  %xmm1,%xmm1
divpd  %xmm5,%xmm1
divpd  %xmm5,%xmm0
cvtpd2ps %xmm0,%xmm0
cvtpd2ps %xmm1,%xmm1
unpcklpd %xmm1,%xmm0
movupd %xmm0,0x4(%rsi,%rdx,4)
add    $0x4,%rdx
cmp    %rdx,%r14
jne    1210 <create_map+0x100>
mov    0x8(%rsp),%rdx
cmp    %r14,(%rsp)
je     129a <create_map+0x18a>
nopl   0x0(%rax)
xorps  %xmm0,%xmm0
cvtsi2sdl (%rax,%rdx,4),%xmm0
addsd  %xmm2,%xmm0
addsd  %xmm6,%xmm0
addsd  %xmm0,%xmm0
divsd  %xmm3,%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,(%rsi,%rdx,4)
add    $0x1,%rdx
cmp    %rdx,%r13
jne    1270 <create_map+0x160>
cmp    %ebx,%r9d
jge    11d0 <create_map+0xc0>
mov    0x0(%rbp,%r12,8),%rdi
add    0x18(%rsp),%rdi
xor    %esi,%esi
mov    0x10(%rsp),%rdx
call   1030 <memset@plt>
movapd 0xd3f(%rip),%xmm7
movsd  0xd47(%rip),%xmm6
movapd 0x30(%rsp),%xmm5
movapd 0x40(%rsp),%xmm4
movapd 0x50(%rsp),%xmm3
movapd 0x60(%rsp),%xmm2
mov    0x20(%rsp),%r9
jmp    11d0 <create_map+0xc0>
add    $0x78,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @create_map(float** %0, i32 %1, i32 %2, i32 %3, i32 %4, i32** %5) {
%7 = alloca float**
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32**
%13 = alloca i32
%14 = alloca i32
store float** %0, float*** %7
store i32 %1, i32* %8
store i32 %2, i32* %9
store i32 %3, i32* %10
store i32 %4, i32* %11
store i32** %5, i32*** %12
store i32 1, i32* %13
br label %15
15: ; preds = %76, %6
%16 = load i32, i32* %13
%17 = load i32, i32* %11
%18 = icmp sle i32 %16, %17
br i1 %18, label %19, label %79
19: ; preds = %15
store i32 1, i32* %14
br label %20
20: ; preds = %53, %19
%21 = load i32, i32* %14
%22 = load i32, i32* %8
%23 = icmp sle i32 %21, %22
br i1 %23, label %24, label %56
24: ; preds = %20
%25 = load i32**, i32*** %12
%26 = load i32, i32* %13
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds i32*, i32** %25, i64 %27
%29 = load i32*, i32** %28
%30 = load i32, i32* %14
%31 = sext i32 %30 to i64
%32 = getelementptr inbounds i32, i32* %29, i64 %31
%33 = load i32, i32* %32
%34 = sitofp i32 %33 to double
%35 = load i32, i32* %9
%36 = sitofp i32 %35 to double
%37 = call double @llvm.fmuladd.f64(double -5.000000e-01, double %36, double %34)
%38 = fsub double %37, 5.000000e-01
%39 = fmul double 2.000000e+00, %38
%40 = load i32, i32* %9
%41 = sub nsw i32 %40, 1
%42 = sitofp i32 %41 to double
%43 = fdiv double %39, %42
%44 = fptrunc double %43 to float
%45 = load float**, float*** %7
%46 = load i32, i32* %13
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds float*, float** %45, i64 %47
%49 = load float*, float** %48
%50 = load i32, i32* %14
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds float, float* %49, i64 %51
store float %44, float* %52
br label %53
53: ; preds = %24
%54 = load i32, i32* %14
%55 = add nsw i32 %54, 1
store i32 %55, i32* %14
br label %20
56: ; preds = %20
%57 = load i32, i32* %8
%58 = add nsw i32 %57, 1
store i32 %58, i32* %14
br label %59
59: ; preds = %72, %56
%60 = load i32, i32* %14
%61 = load i32, i32* %10
%62 = icmp sle i32 %60, %61
br i1 %62, label %63, label %75
63: ; preds = %59
%64 = load float**, float*** %7
%65 = load i32, i32* %13
%66 = sext i32 %65 to i64
%67 = getelementptr inbounds float*, float** %64, i64 %66
%68 = load float*, float** %67
%69 = load i32, i32* %14
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds float, float* %68, i64 %70
store float 0.000000e+00, float* %71
br label %72
72: ; preds = %63
%73 = load i32, i32* %14
%74 = add nsw i32 %73, 1
store i32 %74, i32* %14
br label %59
75: ; preds = %59
br label %76
76: ; preds = %75
%77 = load i32, i32* %13
%78 = add nsw i32 %77, 1
store i32 %78, i32* %13
br label %15
79: ; preds = %15
ret void
}

LLVM IR (-O2):
define void @create_map(float** nocapture %0, i32 %1, i32 %2, i32 %3, i32 %4, i32** nocapture %5) {
%7 = icmp slt i32 %4, 1
br i1 %7, label %82, label %8
8: ; preds = %6
%9 = icmp slt i32 %1, 1
%10 = sitofp i32 %2 to double
%11 = add nsw i32 %2, -1
%12 = sitofp i32 %11 to double
%13 = icmp slt i32 %1, %3
%14 = add i32 %1, 1
%15 = sext i32 %1 to i64
%16 = add nsw i64 %15, 1
%17 = xor i32 %1, -1
%18 = add i32 %17, %3
%19 = zext i32 %18 to i64
%20 = shl nuw nsw i64 %19, 2
%21 = add nuw nsw i64 %20, 4
%22 = add nuw i32 %4, 1
%23 = zext i32 %22 to i64
%24 = zext i32 %14 to i64
%25 = add nsw i64 %24, -1
%26 = icmp ult i64 %25, 4
%27 = and i64 %25, -4
%28 = or i64 %27, 1
%29 = insertelement <4 x double> poison, double %10, i64 0
%30 = shufflevector <4 x double> %29, <4 x double> poison, <4 x i32> zeroinitializer
%31 = insertelement <4 x double> poison, double %12, i64 0
%32 = shufflevector <4 x double> %31, <4 x double> poison, <4 x i32> zeroinitializer
%33 = icmp eq i64 %25, %27
br label %34
34: ; preds = %8, %79
%35 = phi i64 [ 1, %8 ], [ %80, %79 ]
br i1 %9, label %60, label %36
36: ; preds = %34
%37 = getelementptr inbounds i32*, i32** %5, i64 %35
%38 = load i32*, i32** %37
%39 = getelementptr inbounds float*, float** %0, i64 %35
%40 = load float*, float** %39
br i1 %26, label %58, label %41
41: ; preds = %36, %41
%42 = phi i64 [ %55, %41 ], [ 0, %36 ]
%43 = or i64 %42, 1
%44 = getelementptr inbounds i32, i32* %38, i64 %43
%45 = bitcast i32* %44 to <4 x i32>*
%46 = load <4 x i32>, <4 x i32>* %45
%47 = sitofp <4 x i32> %46 to <4 x double>
%48 = call <4 x double> @llvm.fmuladd.v4f64(<4 x double> %30, <4 x double> <double -5.000000e-01, double -5.000000e-01, double -5.000000e-01, double -5.000000e-01>, <4 x double> %47)
%49 = fadd <4 x double> %48, <double -5.000000e-01, double -5.000000e-01, double -5.000000e-01, double -5.000000e-01>
%50 = fmul <4 x double> %49, <double 2.000000e+00, double 2.000000e+00, double 2.000000e+00, double 2.000000e+00>
%51 = fdiv <4 x double> %50, %32
%52 = fptrunc <4 x double> %51 to <4 x float>
%53 = getelementptr inbounds float, float* %40, i64 %43
%54 = bitcast float* %53 to <4 x float>*
store <4 x float> %52, <4 x float>* %54
%55 = add nuw i64 %42, 4
%56 = icmp eq i64 %55, %27
br i1 %56, label %57, label %41
57: ; preds = %41
br i1 %33, label %60, label %58
58: ; preds = %36, %57
%59 = phi i64 [ 1, %36 ], [ %28, %57 ]
br label %66
60: ; preds = %66, %57, %34
br i1 %13, label %61, label %79
61: ; preds = %60
%62 = getelementptr inbounds float*, float** %0, i64 %35
%63 = load float*, float** %62
%64 = getelementptr float, float* %63, i64 %16
%65 = bitcast float* %64 to i8*
br label %79
66: ; preds = %58, %66
%67 = phi i64 [ %77, %66 ], [ %59, %58 ]
%68 = getelementptr inbounds i32, i32* %38, i64 %67
%69 = load i32, i32* %68
%70 = sitofp i32 %69 to double
%71 = tail call double @llvm.fmuladd.f64(double %10, double -5.000000e-01, double %70)
%72 = fadd double %71, -5.000000e-01
%73 = fmul double %72, 2.000000e+00
%74 = fdiv double %73, %12
%75 = fptrunc double %74 to float
%76 = getelementptr inbounds float, float* %40, i64 %67
store float %75, float* %76
%77 = add nuw nsw i64 %67, 1
%78 = icmp eq i64 %77, %24
br i1 %78, label %60, label %66
79: ; preds = %61, %60
%80 = add nuw nsw i64 %35, 1
%81 = icmp eq i64 %80, %23
br i1 %81, label %82, label %34
82: ; preds = %79, %6
ret void
}