void scl_data(float *data, int nsam, int nrec, float scl, float *datout,
              int nsamout) {
  int it, ix;
  for (ix = 0; ix < nrec; ix++) {
    for (it = 0; it < nsamout; it++)
      datout[ix * nsamout + it] = scl * data[ix * nsam + it];
  }
}


x86 assembly (clang, -O0):
<scl_data>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
movss  %xmm0,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8d,-0x24(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    1193 <scl_data+0x93>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    1180 <scl_data+0x80>
movss  -0x14(%rbp),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0xc(%rbp),%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
mulss  (%rax,%rcx,4),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0x24(%rbp),%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1135 <scl_data+0x35>
jmp    1185 <scl_data+0x85>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1122 <scl_data+0x22>
pop    %rbp
ret

x86 assembly (clang, -O2):
<scl_data>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %edx,%edx
jle    133d <scl_data+0x23d>
mov    %rcx,%r13
movslq %esi,%rcx
movslq %r8d,%rsi
mov    %edx,%eax
mov    %rax,-0x8(%rsp)
mov    %esi,%eax
mov    %eax,%edx
and    $0xfffffff8,%edx
mov    %rdx,-0x28(%rsp)
add    $0xfffffffffffffff8,%rdx
mov    %rdx,-0x30(%rsp)
mov    %rdx,%rbp
shr    $0x3,%rbp
add    $0x1,%rbp
movaps %xmm0,%xmm1
shufps $0x0,%xmm0,%xmm1
mov    %rbp,%rdx
mov    %rbp,-0x38(%rsp)
and    $0xfffffffffffffffe,%rbp
mov    %rbp,-0x40(%rsp)
mov    %rax,%rdx
neg    %rdx
mov    %rdx,-0x20(%rsp)
lea    0x30(%rdi),%rbx
mov    %rcx,-0x10(%rsp)
lea    0x0(,%rcx,4),%rcx
lea    0x30(%r13),%rbp
mov    %rsi,-0x18(%rsp)
lea    0x0(,%rsi,4),%r14
lea    0x4(%r13),%r11
xor    %r15d,%r15d
mov    %rdi,%r10
mov    %r8d,-0x44(%rsp)
jmp    11bb <scl_data+0xbb>
nopl   0x0(%rax,%rax,1)
add    $0x1,%r15
add    %rcx,%rbx
add    %r14,%rbp
add    %r14,%r11
add    %rcx,%r10
cmp    -0x8(%rsp),%r15
je     133d <scl_data+0x23d>
test   %r8d,%r8d
jle    11a0 <scl_data+0xa0>
mov    %r15,%r9
imul   -0x18(%rsp),%r9
mov    %r15,%r12
imul   -0x10(%rsp),%r12
cmp    $0x8,%r8d
jb     120c <scl_data+0x10c>
lea    (%r12,%rax,1),%rdx
lea    0x0(,%r9,4),%rsi
add    %r13,%rsi
lea    (%rdi,%rdx,4),%rdx
cmp    %rdx,%rsi
jae    1280 <scl_data+0x180>
lea    (%r9,%rax,1),%rdx
lea    0x0(,%rdx,4),%rdx
add    %r13,%rdx
lea    (%rdi,%r12,4),%rsi
cmp    %rdx,%rsi
jae    1280 <scl_data+0x180>
xor    %esi,%esi
mov    %rsi,%rdx
test   $0x1,%al
je     1233 <scl_data+0x133>
add    %rsi,%r12
movss  (%rdi,%r12,4),%xmm2
mulss  %xmm0,%xmm2
add    %rsi,%r9
movss  %xmm2,0x0(%r13,%r9,4)
mov    %rsi,%rdx
or     $0x1,%rdx
not    %rsi
cmp    -0x20(%rsp),%rsi
je     11a0 <scl_data+0xa0>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movss  (%r10,%rdx,4),%xmm2
mulss  %xmm0,%xmm2
movss  %xmm2,-0x4(%r11,%rdx,4)
movss  0x4(%r10,%rdx,4),%xmm2
mulss  %xmm0,%xmm2
movss  %xmm2,(%r11,%rdx,4)
add    $0x2,%rdx
cmp    %rdx,%rax
jne    1250 <scl_data+0x150>
jmp    11a0 <scl_data+0xa0>
mov    %r13,%r8
cmpq   $0x0,-0x30(%rsp)
je     1331 <scl_data+0x231>
mov    -0x40(%rsp),%rdx
xor    %r13d,%r13d
nopw   0x0(%rax,%rax,1)
movups -0x30(%rbx,%r13,4),%xmm2
movups -0x20(%rbx,%r13,4),%xmm3
mulps  %xmm1,%xmm2
mulps  %xmm1,%xmm3
movups %xmm2,-0x30(%rbp,%r13,4)
movups %xmm3,-0x20(%rbp,%r13,4)
movups -0x10(%rbx,%r13,4),%xmm2
movups (%rbx,%r13,4),%xmm3
mulps  %xmm1,%xmm2
mulps  %xmm1,%xmm3
movups %xmm2,-0x10(%rbp,%r13,4)
movups %xmm3,0x0(%rbp,%r13,4)
add    $0x10,%r13
add    $0xfffffffffffffffe,%rdx
jne    12a0 <scl_data+0x1a0>
testb  $0x1,-0x38(%rsp)
je     1313 <scl_data+0x213>
lea    (%r12,%r13,1),%rdx
mov    %rdi,%rsi
movups (%rdi,%rdx,4),%xmm2
movups 0x10(%rdi,%rdx,4),%xmm3
mulps  %xmm1,%xmm2
mulps  %xmm1,%xmm3
add    %r9,%r13
mov    %r8,%rdx
movups %xmm2,(%r8,%r13,4)
movups %xmm3,0x10(%r8,%r13,4)
mov    -0x28(%rsp),%rdx
mov    %rdx,%rsi
cmp    %rax,%rdx
mov    %r8,%r13
mov    -0x44(%rsp),%r8d
je     11a0 <scl_data+0xa0>
jmp    120e <scl_data+0x10e>
xor    %r13d,%r13d
testb  $0x1,-0x38(%rsp)
jne    12ec <scl_data+0x1ec>
jmp    1313 <scl_data+0x213>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @scl_data(float* %0, i32 %1, i32 %2, float %3, float* %4, i32 %5) {
%7 = alloca float*
%8 = alloca i32
%9 = alloca i32
%10 = alloca float
%11 = alloca float*
%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 float %3, float* %10
store float* %4, float** %11
store i32 %5, i32* %12
store i32 0, i32* %14
br label %15
15: ; preds = %48, %6
%16 = load i32, i32* %14
%17 = load i32, i32* %9
%18 = icmp slt i32 %16, %17
br i1 %18, label %19, label %51
19: ; preds = %15
store i32 0, i32* %13
br label %20
20: ; preds = %44, %19
%21 = load i32, i32* %13
%22 = load i32, i32* %12
%23 = icmp slt i32 %21, %22
br i1 %23, label %24, label %47
24: ; preds = %20
%25 = load float, float* %10
%26 = load float*, float** %7
%27 = load i32, i32* %14
%28 = load i32, i32* %8
%29 = mul nsw i32 %27, %28
%30 = load i32, i32* %13
%31 = add nsw i32 %29, %30
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds float, float* %26, i64 %32
%34 = load float, float* %33
%35 = fmul float %25, %34
%36 = load float*, float** %11
%37 = load i32, i32* %14
%38 = load i32, i32* %12
%39 = mul nsw i32 %37, %38
%40 = load i32, i32* %13
%41 = add nsw i32 %39, %40
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds float, float* %36, i64 %42
store float %35, float* %43
br label %44
44: ; preds = %24
%45 = load i32, i32* %13
%46 = add nsw i32 %45, 1
store i32 %46, i32* %13
br label %20
47: ; preds = %20
br label %48
48: ; preds = %47
%49 = load i32, i32* %14
%50 = add nsw i32 %49, 1
store i32 %50, i32* %14
br label %15
51: ; preds = %15
ret void
}

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