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


x86 assembly (clang, -O0):
<velobeta>:
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    11b2 <velobeta+0xb2>
mov    -0x48(%rbp),%rax
movsd  (%rax),%xmm0
movsd  0xea7(%rip),%xmm1
divsd  %xmm1,%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 <velobeta+0x3d>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<velobeta>:
test   %edi,%edi
jle    1189 <velobeta+0x89>
cmp    $0x1,%edi
je     116b <velobeta+0x6b>
movslq %esi,%r10
movslq %edx,%r11
mov    %edi,%esi
and    $0xfffffffe,%esi
mov    %r11,%rdx
shl    $0x4,%rdx
mov    %r10,%rax
shl    $0x4,%rax
movsd  0xed2(%rip),%xmm0
xchg   %ax,%ax
movsd  (%rcx),%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,(%r8)
movl   $0x0,(%r9)
movsd  (%rcx,%r10,8),%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,(%r8,%r11,8)
movl   $0x0,0x4(%r9)
add    $0x8,%r9
add    %rdx,%r8
add    %rax,%rcx
add    $0xfffffffe,%esi
jne    1130 <velobeta+0x30>
test   $0x1,%dil
je     1189 <velobeta+0x89>
movsd  (%rcx),%xmm0
divsd  0xe83(%rip),%xmm0
movsd  %xmm0,(%r8)
movl   $0x0,(%r9)
xor    %eax,%eax
ret

LLVM IR (-O0):
define i32 @velobeta(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 = fdiv 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 @velobeta(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 %41
9: ; preds = %7
%10 = sext i32 %2 to i64
%11 = sext i32 %3 to i64
%12 = and i32 %1, 1
%13 = icmp eq i32 %1, 1
br i1 %13, label %33, label %14
14: ; preds = %9
%15 = and i32 %1, -2
br label %16
16: ; preds = %16, %14
%17 = phi double* [ %5, %14 ], [ %30, %16 ]
%18 = phi double* [ %4, %14 ], [ %29, %16 ]
%19 = phi i32* [ %6, %14 ], [ %28, %16 ]
%20 = phi i32 [ 0, %14 ], [ %31, %16 ]
%21 = load double, double* %18
%22 = fdiv double %21, 0x41B1DE784A000000
store double %22, double* %17
%23 = getelementptr inbounds i32, i32* %19, i64 1
store i32 0, i32* %19
%24 = getelementptr inbounds double, double* %18, i64 %10
%25 = getelementptr inbounds double, double* %17, i64 %11
%26 = load double, double* %24
%27 = fdiv double %26, 0x41B1DE784A000000
store double %27, double* %25
%28 = getelementptr inbounds i32, i32* %19, i64 2
store i32 0, i32* %23
%29 = getelementptr inbounds double, double* %24, i64 %10
%30 = getelementptr inbounds double, double* %25, i64 %11
%31 = add i32 %20, 2
%32 = icmp eq i32 %31, %15
br i1 %32, label %33, label %16
33: ; preds = %16, %9
%34 = phi double* [ %5, %9 ], [ %30, %16 ]
%35 = phi double* [ %4, %9 ], [ %29, %16 ]
%36 = phi i32* [ %6, %9 ], [ %28, %16 ]
%37 = icmp eq i32 %12, 0
br i1 %37, label %41, label %38
38: ; preds = %33
%39 = load double, double* %35
%40 = fdiv double %39, 0x41B1DE784A000000
store double %40, double* %34
store i32 0, i32* %36
br label %41
41: ; preds = %38, %33, %7
ret i32 0
}