int vradfreq(restfrq, nvrad, svrad, sfreq, vrad, freq, stat)
double restfrq;
int nvrad, svrad, sfreq;
const double vrad[];
double freq[];
int stat[];
{
  double r;
  register int ivrad, *statp;
  register const double *vradp;
  register double *freqp;
  r = restfrq / 2.99792458e8;
  vradp = vrad;
  freqp = freq;
  statp = stat;
  for (ivrad = 0; ivrad < nvrad; ivrad++) {
    *freqp = r * (2.99792458e8 - *vradp);
    *(statp++) = 0;
    vradp += svrad;
    freqp += sfreq;
  }
  return 0;
}


x86 assembly (clang, -O0):
<vradfreq>:
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)
movsd  -0x8(%rbp),%xmm0
movsd  0xed5(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x58(%rbp)
mov    -0x30(%rbp),%rax
mov    %rax,-0x48(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11cd <vradfreq+0xcd>
movsd  -0x38(%rbp),%xmm0
mov    -0x50(%rbp),%rax
movsd  0xe90(%rip),%xmm1
subsd  (%rax),%xmm1
mulsd  %xmm1,%xmm0
mov    -0x58(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x48(%rbp),%rax
mov    %rax,%rcx
add    $0x4,%rcx
mov    %rcx,-0x48(%rbp)
movl   $0x0,(%rax)
mov    -0x10(%rbp),%ecx
mov    -0x50(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x50(%rbp)
mov    -0x14(%rbp),%ecx
mov    -0x58(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x58(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    1153 <vradfreq+0x53>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<vradfreq>:
push   %rbp
push   %r15
push   %r14
push   %rbx
test   %edi,%edi
jle    1247 <vradfreq+0x147>
divsd  0xeea(%rip),%xmm0
movslq %esi,%r14
movslq %edx,%r15
lea    -0x1(%rdi),%eax
cmp    $0x3,%eax
jb     11ff <vradfreq+0xff>
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  0xead(%rip),%xmm1
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %r8,%rdx
mov    %rcx,%rsi
movapd %xmm1,%xmm2
subsd  (%rcx),%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,(%r8)
movl   $0x0,(%r9)
add    %rbx,%rcx
movapd %xmm1,%xmm2
subsd  (%rsi,%rbx,1),%xmm2
mulsd  %xmm0,%xmm2
add    %rax,%r8
movsd  %xmm2,(%rdx,%rax,1)
movl   $0x0,0x4(%r9)
movapd %xmm1,%xmm2
subsd  (%rbx,%rcx,1),%xmm2
add    %rbx,%rcx
mulsd  %xmm0,%xmm2
movsd  %xmm2,(%rax,%r8,1)
add    %rax,%r8
movl   $0x0,0x8(%r9)
movapd %xmm1,%xmm2
subsd  (%rbx,%rcx,1),%xmm2
add    %rbx,%rcx
mulsd  %xmm0,%xmm2
movsd  %xmm2,(%rax,%r8,1)
add    %rax,%r8
movl   $0x0,0xc(%r9)
add    $0x10,%r9
add    %rbx,%rcx
add    %rax,%r8
add    $0xfffffffc,%ebp
jne    1160 <vradfreq+0x60>
add    %r11,%rdx
add    %r10,%rsi
mov    %rdx,%r8
mov    %rsi,%rcx
test   $0x3,%dil
je     1247 <vradfreq+0x147>
shl    $0x3,%r15
shl    $0x3,%r14
and    $0x3,%edi
xor    %eax,%eax
movsd  0xde6(%rip),%xmm1
nopw   0x0(%rax,%rax,1)
movapd %xmm1,%xmm2
subsd  (%rcx),%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,(%r8)
movl   $0x0,(%r9,%rax,4)
add    %r15,%r8
add    %r14,%rcx
add    $0x1,%rax
cmp    %eax,%edi
jne    1220 <vradfreq+0x120>
xor    %eax,%eax
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

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

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