int wavefreq(dummy, nwave, swave, sfreq, wave, freq, stat)
double dummy;
int nwave, swave, sfreq;
const double wave[];
double freq[];
int stat[];
{
  int status = 0;
  register int iwave, *statp;
  register const double *wavep;
  register double *freqp;
  wavep = wave;
  freqp = freq;
  statp = stat;
  for (iwave = 0; iwave < nwave; iwave++) {
    if (*wavep != 0.0) {
      *freqp = 2.99792458e8 / (*wavep);
      *(statp++) = 0;
    } else {
      *(statp++) = 1;
      status = 4;
    }
    wavep += swave;
    freqp += sfreq;
  }
  return status;
}


x86 assembly (clang, -O0):
<wavefreq>:
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)
movl   $0x0,-0x34(%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,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11f6 <wavefreq+0xf6>
mov    -0x48(%rbp),%rax
movsd  (%rax),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1170 <wavefreq+0x70>
jp     1170 <wavefreq+0x70>
jmp    11a2 <wavefreq+0xa2>
mov    -0x48(%rbp),%rax
movsd  0xe84(%rip),%xmm0
divsd  (%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)
jmp    11be <wavefreq+0xbe>
mov    -0x40(%rbp),%rax
mov    %rax,%rcx
add    $0x4,%rcx
mov    %rcx,-0x40(%rbp)
movl   $0x1,(%rax)
movl   $0x4,-0x34(%rbp)
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    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1144 <wavefreq+0x44>
mov    -0x34(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<wavefreq>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
test   %edi,%edi
jle    1149 <wavefreq+0x49>
cmp    $0x1,%edi
jne    1150 <wavefreq+0x50>
xor    %eax,%eax
test   $0x1,%dil
je     11fe <wavefreq+0xfe>
movsd  (%rcx),%xmm0
xorpd  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1131 <wavefreq+0x31>
jnp    11f1 <wavefreq+0xf1>
movsd  0xec7(%rip),%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,(%r8)
xor    %ecx,%ecx
jmp    11fb <wavefreq+0xfb>
xor    %eax,%eax
jmp    11fe <wavefreq+0xfe>
movslq %esi,%r11
movslq %edx,%r10
mov    %edi,%edx
and    $0xfffffffe,%edx
mov    %r10,%r14
shl    $0x4,%r14
mov    %r11,%r15
shl    $0x4,%r15
xor    %ebp,%ebp
xorpd  %xmm0,%xmm0
movsd  0xe89(%rip),%xmm1
jmp    1199 <wavefreq+0x99>
nopl   0x0(%rax)
mov    %r12d,0x4(%r9)
add    $0x8,%r9
add    %r14,%r8
add    %r15,%rcx
mov    %eax,%ebp
add    $0xfffffffe,%edx
je     1113 <wavefreq+0x13>
movsd  (%rcx),%xmm2
mov    $0x4,%eax
mov    $0x1,%r12d
ucomisd %xmm0,%xmm2
mov    $0x1,%esi
mov    $0x4,%ebx
jne    11ba <wavefreq+0xba>
jnp    11cb <wavefreq+0xcb>
movapd %xmm1,%xmm3
divsd  %xmm2,%xmm3
movsd  %xmm3,(%r8)
xor    %esi,%esi
mov    %ebp,%ebx
mov    %esi,(%r9)
movsd  (%rcx,%r11,8),%xmm2
ucomisd %xmm0,%xmm2
jne    11dc <wavefreq+0xdc>
jnp    1180 <wavefreq+0x80>
movapd %xmm1,%xmm3
divsd  %xmm2,%xmm3
movsd  %xmm3,(%r8,%r10,8)
xor    %r12d,%r12d
mov    %ebx,%eax
jmp    1180 <wavefreq+0x80>
mov    $0x4,%eax
mov    $0x1,%ecx
mov    %ecx,(%r9)
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @wavefreq(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 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
store i32 0, i32* %15
%20 = load double*, double** %12
store double* %20, double** %18
%21 = load double*, double** %13
store double* %21, double** %19
%22 = load i32*, i32** %14
store i32* %22, i32** %17
store i32 0, i32* %16
br label %23
23: ; preds = %50, %7
%24 = load i32, i32* %16
%25 = load i32, i32* %9
%26 = icmp slt i32 %24, %25
br i1 %26, label %27, label %53
27: ; preds = %23
%28 = load double*, double** %18
%29 = load double, double* %28
%30 = fcmp une double %29, 0.000000e+00
br i1 %30, label %31, label %38
31: ; preds = %27
%32 = load double*, double** %18
%33 = load double, double* %32
%34 = fdiv double 0x41B1DE784A000000, %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
br label %41
38: ; preds = %27
%39 = load i32*, i32** %17
%40 = getelementptr inbounds i32, i32* %39, i32 1
store i32* %40, i32** %17
store i32 1, i32* %39
store i32 4, i32* %15
br label %41
41: ; preds = %38, %31
%42 = load i32, i32* %10
%43 = load double*, double** %18
%44 = sext i32 %42 to i64
%45 = getelementptr inbounds double, double* %43, i64 %44
store double* %45, double** %18
%46 = load i32, i32* %11
%47 = load double*, double** %19
%48 = sext i32 %46 to i64
%49 = getelementptr inbounds double, double* %47, i64 %48
store double* %49, double** %19
br label %50
50: ; preds = %41
%51 = load i32, i32* %16
%52 = add nsw i32 %51, 1
store i32 %52, i32* %16
br label %23
53: ; preds = %23
%54 = load i32, i32* %15
ret i32 %54
}

LLVM IR (-O2):
define i32 @wavefreq(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 %59
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 %44, label %14
14: ; preds = %9
%15 = and i32 %1, -2
br label %16
16: ; preds = %36, %14
%17 = phi double* [ %5, %14 ], [ %41, %36 ]
%18 = phi double* [ %4, %14 ], [ %40, %36 ]
%19 = phi i32* [ %6, %14 ], [ %39, %36 ]
%20 = phi i32 [ 0, %14 ], [ %38, %36 ]
%21 = phi i32 [ 0, %14 ], [ %42, %36 ]
%22 = load double, double* %18
%23 = fcmp une double %22, 0.000000e+00
br i1 %23, label %24, label %26
24: ; preds = %16
%25 = fdiv double 0x41B1DE784A000000, %22
store double %25, double* %17
br label %26
26: ; preds = %16, %24
%27 = phi i32 [ 0, %24 ], [ 1, %16 ]
%28 = phi i32 [ %20, %24 ], [ 4, %16 ]
%29 = getelementptr inbounds i32, i32* %19, i64 1
store i32 %27, i32* %19
%30 = getelementptr inbounds double, double* %18, i64 %10
%31 = getelementptr inbounds double, double* %17, i64 %11
%32 = load double, double* %30
%33 = fcmp une double %32, 0.000000e+00
br i1 %33, label %34, label %36
34: ; preds = %26
%35 = fdiv double 0x41B1DE784A000000, %32
store double %35, double* %31
br label %36
36: ; preds = %34, %26
%37 = phi i32 [ 0, %34 ], [ 1, %26 ]
%38 = phi i32 [ %28, %34 ], [ 4, %26 ]
%39 = getelementptr inbounds i32, i32* %19, i64 2
store i32 %37, i32* %29
%40 = getelementptr inbounds double, double* %30, i64 %10
%41 = getelementptr inbounds double, double* %31, i64 %11
%42 = add i32 %21, 2
%43 = icmp eq i32 %42, %15
br i1 %43, label %44, label %16
44: ; preds = %36, %9
%45 = phi i32 [ undef, %9 ], [ %38, %36 ]
%46 = phi double* [ %5, %9 ], [ %41, %36 ]
%47 = phi double* [ %4, %9 ], [ %40, %36 ]
%48 = phi i32* [ %6, %9 ], [ %39, %36 ]
%49 = phi i32 [ 0, %9 ], [ %38, %36 ]
%50 = icmp eq i32 %12, 0
br i1 %50, label %59, label %51
51: ; preds = %44
%52 = load double, double* %47
%53 = fcmp une double %52, 0.000000e+00
br i1 %53, label %54, label %56
54: ; preds = %51
%55 = fdiv double 0x41B1DE784A000000, %52
store double %55, double* %46
br label %56
56: ; preds = %54, %51
%57 = phi i32 [ 0, %54 ], [ 1, %51 ]
%58 = phi i32 [ %49, %54 ], [ 4, %51 ]
store i32 %57, i32* %48
br label %59
59: ; preds = %56, %44, %7
%60 = phi i32 [ 0, %7 ], [ %45, %44 ], [ %58, %56 ]
ret i32 %60
}