int betavelo(double dummy, int nbeta, int sbeta, int svelo, const double beta[],
             double velo[], int stat[]) {
  register int ibeta, *statp;
  register const double *betap;
  register double *velop;
  (void)dummy;
  betap = beta;
  velop = velo;
  statp = stat;
  for (ibeta = 0; ibeta < nbeta; ibeta++) {
    *velop = (*betap) * 2.99792458e8;
    *(statp++) = 0;
    betap += sbeta;
    velop += svelo;
  }
  return 0;
}


x86 assembly (clang, -O0):
<betavelo>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
mov    %edi,-0xc(%rbp)
mov    %esi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x30(%rbp),%rax
mov    %rax,-0x40(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11ae <betavelo+0xae>
mov    -0x48(%rbp),%rax
movsd  0xeab(%rip),%xmm0
mulsd  (%rax),%xmm0
mov    -0x50(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x40(%rbp),%rax
mov    %rax,%rcx
add    $0x4,%rcx
mov    %rcx,-0x40(%rbp)
movl   $0x0,(%rax)
mov    -0x10(%rbp),%ecx
mov    -0x48(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x48(%rbp)
mov    -0x14(%rbp),%ecx
mov    -0x50(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x50(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    113d <betavelo+0x3d>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<betavelo>:
push   %rbp
push   %r15
push   %r14
push   %rbx
test   %edi,%edi
jle    1223 <betavelo+0x123>
movslq %esi,%r14
movslq %edx,%r15
lea    -0x1(%rdi),%eax
cmp    $0x3,%eax
jb     11db <betavelo+0xdb>
mov    %edi,%ebp
and    $0xfffffffc,%ebp
mov    %r15,%r11
shl    $0x5,%r11
mov    %r14,%r10
shl    $0x5,%r10
lea    0x0(,%r14,8),%rbx
lea    0x0(,%r15,8),%rax
movsd  0xeb5(%rip),%xmm0
nopl   0x0(%rax,%rax,1)
mov    %r8,%rdx
mov    %rcx,%rsi
movsd  (%rcx),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%r8)
movl   $0x0,(%r9)
add    %rbx,%rcx
movsd  (%rsi,%rbx,1),%xmm1
mulsd  %xmm0,%xmm1
add    %rax,%r8
movsd  %xmm1,(%rdx,%rax,1)
movl   $0x0,0x4(%r9)
movsd  (%rbx,%rcx,1),%xmm1
mulsd  %xmm0,%xmm1
add    %rbx,%rcx
movsd  %xmm1,(%rax,%r8,1)
add    %rax,%r8
movl   $0x0,0x8(%r9)
movsd  (%rbx,%rcx,1),%xmm1
mulsd  %xmm0,%xmm1
add    %rbx,%rcx
movsd  %xmm1,(%rax,%r8,1)
add    %rax,%r8
movl   $0x0,0xc(%r9)
add    $0x10,%r9
add    %rbx,%rcx
add    %rax,%r8
add    $0xfffffffc,%ebp
jne    1150 <betavelo+0x50>
add    %r11,%rdx
add    %r10,%rsi
mov    %rdx,%r8
mov    %rsi,%rcx
test   $0x3,%dil
je     1223 <betavelo+0x123>
shl    $0x3,%r15
shl    $0x3,%r14
and    $0x3,%edi
xor    %eax,%eax
movsd  0xe0a(%rip),%xmm0
cs nopw 0x0(%rax,%rax,1)
movsd  (%rcx),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%r8)
movl   $0x0,(%r9,%rax,4)
add    %r15,%r8
add    %r14,%rcx
add    $0x1,%rax
cmp    %eax,%edi
jne    1200 <betavelo+0x100>
xor    %eax,%eax
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define i32 @betavelo(double %0, i32 %1, i32 %2, i32 %3, double* nocapture %4, double* nocapture writeonly %5, i32* nocapture writeonly %6) {
%8 = icmp sgt i32 %1, 0
br i1 %8, label %9, label %61
9: ; preds = %7
%10 = sext i32 %2 to i64
%11 = sext i32 %3 to i64
%12 = add i32 %1, -1
%13 = and i32 %1, 3
%14 = icmp ult i32 %12, 3
br i1 %14, label %44, label %15
15: ; preds = %9
%16 = and i32 %1, -4
br label %17
17: ; preds = %17, %15
%18 = phi double* [ %5, %15 ], [ %41, %17 ]
%19 = phi double* [ %4, %15 ], [ %40, %17 ]
%20 = phi i32* [ %6, %15 ], [ %39, %17 ]
%21 = phi i32 [ 0, %15 ], [ %42, %17 ]
%22 = load double, double* %19
%23 = fmul double %22, 0x41B1DE784A000000
store double %23, double* %18
%24 = getelementptr inbounds i32, i32* %20, i64 1
store i32 0, i32* %20
%25 = getelementptr inbounds double, double* %19, i64 %10
%26 = getelementptr inbounds double, double* %18, i64 %11
%27 = load double, double* %25
%28 = fmul double %27, 0x41B1DE784A000000
store double %28, double* %26
%29 = getelementptr inbounds i32, i32* %20, i64 2
store i32 0, i32* %24
%30 = getelementptr inbounds double, double* %25, i64 %10
%31 = getelementptr inbounds double, double* %26, i64 %11
%32 = load double, double* %30
%33 = fmul double %32, 0x41B1DE784A000000
store double %33, double* %31
%34 = getelementptr inbounds i32, i32* %20, i64 3
store i32 0, i32* %29
%35 = getelementptr inbounds double, double* %30, i64 %10
%36 = getelementptr inbounds double, double* %31, i64 %11
%37 = load double, double* %35
%38 = fmul double %37, 0x41B1DE784A000000
store double %38, double* %36
%39 = getelementptr inbounds i32, i32* %20, i64 4
store i32 0, i32* %34
%40 = getelementptr inbounds double, double* %35, i64 %10
%41 = getelementptr inbounds double, double* %36, i64 %11
%42 = add i32 %21, 4
%43 = icmp eq i32 %42, %16
br i1 %43, label %44, label %17
44: ; preds = %17, %9
%45 = phi double* [ %5, %9 ], [ %41, %17 ]
%46 = phi double* [ %4, %9 ], [ %40, %17 ]
%47 = phi i32* [ %6, %9 ], [ %39, %17 ]
%48 = icmp eq i32 %13, 0
br i1 %48, label %61, label %49
49: ; preds = %44, %49
%50 = phi double* [ %58, %49 ], [ %45, %44 ]
%51 = phi double* [ %57, %49 ], [ %46, %44 ]
%52 = phi i32* [ %56, %49 ], [ %47, %44 ]
%53 = phi i32 [ %59, %49 ], [ 0, %44 ]
%54 = load double, double* %51
%55 = fmul double %54, 0x41B1DE784A000000
store double %55, double* %50
%56 = getelementptr inbounds i32, i32* %52, i64 1
store i32 0, i32* %52
%57 = getelementptr inbounds double, double* %51, i64 %10
%58 = getelementptr inbounds double, double* %50, i64 %11
%59 = add i32 %53, 1
%60 = icmp eq i32 %59, %13
br i1 %60, label %61, label %49
61: ; preds = %44, %49, %7
ret i32 0
}