void mscale(double alpha, double *A, int ALda, int Ai, int Aj, int m, int n) {
  int i, j;
  int offsetA = Aj * ALda + Ai;
  for (j = 0; j < n; ++j) {
    for (i = 0; i < m; ++i) {
      A[offsetA + i] *= alpha;
    }
    offsetA += ALda;
  }
}


x86 assembly (clang, -O0):
<mscale>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8d,-0x20(%rbp)
mov    %r9d,-0x24(%rbp)
mov    -0x1c(%rbp),%eax
imul   -0x14(%rbp),%eax
add    -0x18(%rbp),%eax
mov    %eax,-0x30(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    1192 <mscale+0x92>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    117b <mscale+0x7b>
movsd  -0x8(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x30(%rbp),%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1145 <mscale+0x45>
mov    -0x14(%rbp),%eax
add    -0x30(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1132 <mscale+0x32>
pop    %rbp
ret

x86 assembly (clang, -O2):
<mscale>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %r9d,%r9d
jle    1256 <mscale+0x156>
imul   %esi,%ecx
add    %edx,%ecx
movslq %ecx,%rax
movslq %esi,%r12
mov    %r8d,%edx
mov    %edx,%r15d
and    $0xfffffffc,%r15d
lea    -0x4(%r15),%r10
mov    %r10,%r11
shr    $0x2,%r11
add    $0x1,%r11
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
mov    %r11,%rcx
and    $0xfffffffffffffffe,%rcx
mov    %rcx,-0x8(%rsp)
lea    (%rdi,%rax,8),%rbx
add    $0x30,%rbx
lea    0x0(,%r12,8),%r13
lea    (%rdi,%rax,8),%rcx
xor    %esi,%esi
jmp    1185 <mscale+0x85>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    %r12,%rax
add    $0x1,%esi
add    %r13,%rbx
add    %r13,%rcx
cmp    %r9d,%esi
je     1256 <mscale+0x156>
test   %r8d,%r8d
jle    1170 <mscale+0x70>
cmp    $0x4,%r8d
jae    11a0 <mscale+0xa0>
xor    %ebp,%ebp
jmp    1230 <mscale+0x130>
nopw   0x0(%rax,%rax,1)
test   %r10,%r10
je     124c <mscale+0x14c>
mov    -0x8(%rsp),%r14
xor    %ebp,%ebp
movupd -0x30(%rbx,%rbp,8),%xmm2
movupd -0x20(%rbx,%rbp,8),%xmm3
movupd -0x10(%rbx,%rbp,8),%xmm4
movupd (%rbx,%rbp,8),%xmm5
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,-0x30(%rbx,%rbp,8)
movupd %xmm3,-0x20(%rbx,%rbp,8)
mulpd  %xmm1,%xmm4
mulpd  %xmm1,%xmm5
movupd %xmm4,-0x10(%rbx,%rbp,8)
movupd %xmm5,(%rbx,%rbp,8)
add    $0x8,%rbp
add    $0xfffffffffffffffe,%r14
jne    11b0 <mscale+0xb0>
test   $0x1,%r11b
je     121f <mscale+0x11f>
add    %rax,%rbp
movupd (%rdi,%rbp,8),%xmm2
movupd 0x10(%rdi,%rbp,8),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,(%rdi,%rbp,8)
movupd %xmm3,0x10(%rdi,%rbp,8)
mov    %r15,%rbp
cmp    %rdx,%r15
je     1170 <mscale+0x70>
nopl   0x0(%rax,%rax,1)
movsd  (%rcx,%rbp,8),%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,(%rcx,%rbp,8)
add    $0x1,%rbp
cmp    %rbp,%rdx
jne    1230 <mscale+0x130>
jmp    1170 <mscale+0x70>
xor    %ebp,%ebp
test   $0x1,%r11b
jne    11fe <mscale+0xfe>
jmp    121f <mscale+0x11f>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @mscale(double %0, double* nocapture %1, i32 %2, i32 %3, i32 %4, i32 %5, i32 %6) {
%8 = icmp sgt i32 %6, 0
br i1 %8, label %9, label %94
9: ; preds = %7
%10 = mul nsw i32 %4, %2
%11 = add i32 %10, %3
%12 = icmp sgt i32 %5, 0
%13 = sext i32 %11 to i64
%14 = sext i32 %2 to i64
%15 = zext i32 %5 to i64
%16 = and i64 %15, 4294967292
%17 = add nsw i64 %16, -4
%18 = lshr exact i64 %17, 2
%19 = add nuw nsw i64 %18, 1
%20 = icmp ult i32 %5, 4
%21 = and i64 %15, 4294967292
%22 = insertelement <2 x double> poison, double %0, i64 0
%23 = shufflevector <2 x double> %22, <2 x double> poison, <2 x i32> zeroinitializer
%24 = insertelement <2 x double> poison, double %0, i64 0
%25 = shufflevector <2 x double> %24, <2 x double> poison, <2 x i32> zeroinitializer
%26 = and i64 %19, 1
%27 = icmp eq i64 %17, 0
%28 = and i64 %19, 9223372036854775806
%29 = icmp eq i64 %26, 0
%30 = icmp eq i64 %21, %15
br label %31
31: ; preds = %9, %90
%32 = phi i64 [ %13, %9 ], [ %91, %90 ]
%33 = phi i32 [ 0, %9 ], [ %92, %90 ]
br i1 %12, label %34, label %90
34: ; preds = %31
br i1 %20, label %80, label %35
35: ; preds = %34
br i1 %27, label %65, label %36
36: ; preds = %35, %36
%37 = phi i64 [ %62, %36 ], [ 0, %35 ]
%38 = phi i64 [ %63, %36 ], [ 0, %35 ]
%39 = add nsw i64 %37, %32
%40 = getelementptr inbounds double, double* %1, i64 %39
%41 = bitcast double* %40 to <2 x double>*
%42 = load <2 x double>, <2 x double>* %41
%43 = getelementptr inbounds double, double* %40, i64 2
%44 = bitcast double* %43 to <2 x double>*
%45 = load <2 x double>, <2 x double>* %44
%46 = fmul <2 x double> %42, %23
%47 = fmul <2 x double> %45, %25
%48 = bitcast double* %40 to <2 x double>*
store <2 x double> %46, <2 x double>* %48
%49 = bitcast double* %43 to <2 x double>*
store <2 x double> %47, <2 x double>* %49
%50 = or i64 %37, 4
%51 = add nsw i64 %50, %32
%52 = getelementptr inbounds double, double* %1, i64 %51
%53 = bitcast double* %52 to <2 x double>*
%54 = load <2 x double>, <2 x double>* %53
%55 = getelementptr inbounds double, double* %52, i64 2
%56 = bitcast double* %55 to <2 x double>*
%57 = load <2 x double>, <2 x double>* %56
%58 = fmul <2 x double> %54, %23
%59 = fmul <2 x double> %57, %25
%60 = bitcast double* %52 to <2 x double>*
store <2 x double> %58, <2 x double>* %60
%61 = bitcast double* %55 to <2 x double>*
store <2 x double> %59, <2 x double>* %61
%62 = add nuw i64 %37, 8
%63 = add i64 %38, 2
%64 = icmp eq i64 %63, %28
br i1 %64, label %65, label %36
65: ; preds = %36, %35
%66 = phi i64 [ 0, %35 ], [ %62, %36 ]
br i1 %29, label %79, label %67
67: ; preds = %65
%68 = add nsw i64 %66, %32
%69 = getelementptr inbounds double, double* %1, i64 %68
%70 = bitcast double* %69 to <2 x double>*
%71 = load <2 x double>, <2 x double>* %70
%72 = getelementptr inbounds double, double* %69, i64 2
%73 = bitcast double* %72 to <2 x double>*
%74 = load <2 x double>, <2 x double>* %73
%75 = fmul <2 x double> %71, %23
%76 = fmul <2 x double> %74, %25
%77 = bitcast double* %69 to <2 x double>*
store <2 x double> %75, <2 x double>* %77
%78 = bitcast double* %72 to <2 x double>*
store <2 x double> %76, <2 x double>* %78
br label %79
79: ; preds = %65, %67
br i1 %30, label %90, label %80
80: ; preds = %34, %79
%81 = phi i64 [ 0, %34 ], [ %21, %79 ]
br label %82
82: ; preds = %80, %82
%83 = phi i64 [ %88, %82 ], [ %81, %80 ]
%84 = add nsw i64 %83, %32
%85 = getelementptr inbounds double, double* %1, i64 %84
%86 = load double, double* %85
%87 = fmul double %86, %0
store double %87, double* %85
%88 = add nuw nsw i64 %83, 1
%89 = icmp eq i64 %88, %15
br i1 %89, label %90, label %82
90: ; preds = %82, %79, %31
%91 = add i64 %32, %14
%92 = add nuw nsw i32 %33, 1
%93 = icmp eq i32 %92, %6
br i1 %93, label %94, label %31
94: ; preds = %90, %7
ret void
}