int waveawav(dummy, nwave, swave, sawav, wave, awav, stat)
double dummy;
int nwave, swave, sawav;
const double wave[];
double awav[];
int stat[];
{
  int status = 0;
  double n, s;
  register int iwave, k, *statp;
  register const double *wavep;
  register double *awavp;
  wavep = wave;
  awavp = awav;
  statp = stat;
  for (iwave = 0; iwave < nwave; iwave++) {
    if (*wavep != 0.0) {
      n = 1.0;
      for (k = 0; k < 4; k++) {
        s = n / (*wavep);
        s *= s;
        n = 2.554e8 / (0.41e14 - s);
        n += 294.981e8 / (1.46e14 - s);
        n += 1.000064328;
      }
      *awavp = (*wavep) / n;
      *(statp++) = 0;
    } else {
      *(statp++) = 1;
      status = 4;
    }
    wavep += swave;
    awavp += sawav;
  }
  return status;
}


x86 assembly (clang, -O0):
<waveawav>:
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,-0x60(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x68(%rbp)
mov    -0x30(%rbp),%rax
mov    %rax,-0x58(%rbp)
movl   $0x0,-0x4c(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1293 <waveawav+0x193>
mov    -0x60(%rbp),%rax
movsd  (%rax),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1170 <waveawav+0x70>
jp     1170 <waveawav+0x70>
jmp    123f <waveawav+0x13f>
movsd  0xe88(%rip),%xmm0
movsd  %xmm0,-0x40(%rbp)
movl   $0x0,-0x50(%rbp)
cmpl   $0x4,-0x50(%rbp)
jge    1210 <waveawav+0x110>
movsd  -0x40(%rbp),%xmm0
mov    -0x60(%rbp),%rax
divsd  (%rax),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x48(%rbp),%xmm0
mulsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  0xe71(%rip),%xmm1
subsd  -0x48(%rbp),%xmm1
movsd  0xe5c(%rip),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xe43(%rip),%xmm1
subsd  -0x48(%rbp),%xmm1
movsd  0xe2e(%rip),%xmm0
divsd  %xmm1,%xmm0
addsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xe10(%rip),%xmm0
addsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x50(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x50(%rbp)
jmp    1184 <waveawav+0x84>
mov    -0x60(%rbp),%rax
movsd  (%rax),%xmm0
divsd  -0x40(%rbp),%xmm0
mov    -0x68(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x58(%rbp),%rax
mov    %rax,%rcx
add    $0x4,%rcx
mov    %rcx,-0x58(%rbp)
movl   $0x0,(%rax)
jmp    125b <waveawav+0x15b>
mov    -0x58(%rbp),%rax
mov    %rax,%rcx
add    $0x4,%rcx
mov    %rcx,-0x58(%rbp)
movl   $0x1,(%rax)
movl   $0x4,-0x34(%rbp)
mov    -0x10(%rbp),%ecx
mov    -0x60(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x60(%rbp)
mov    -0x14(%rbp),%ecx
mov    -0x68(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x68(%rbp)
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
jmp    1144 <waveawav+0x44>
mov    -0x34(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<waveawav>:
test   %edi,%edi
jle    1269 <waveawav+0x169>
movslq %esi,%r11
movslq %edx,%rdx
shl    $0x3,%rdx
shl    $0x3,%r11
mov    %edi,%r10d
xor    %edi,%edi
xorpd  %xmm9,%xmm9
movsd  0xed7(%rip),%xmm8
movsd  0xed6(%rip),%xmm10
movsd  0xed6(%rip),%xmm0
movsd  0xed6(%rip),%xmm4
movsd  0xed6(%rip),%xmm5
movsd  0xed6(%rip),%xmm6
xor    %eax,%eax
jmp    1247 <waveawav+0x147>
nopl   0x0(%rax)
movapd %xmm8,%xmm1
divsd  %xmm7,%xmm1
mulsd  %xmm1,%xmm1
movapd %xmm10,%xmm2
subsd  %xmm1,%xmm2
movapd %xmm0,%xmm3
divsd  %xmm2,%xmm3
movapd %xmm4,%xmm2
subsd  %xmm1,%xmm2
movapd %xmm5,%xmm1
divsd  %xmm2,%xmm1
addsd  %xmm3,%xmm1
addsd  %xmm6,%xmm1
divsd  %xmm7,%xmm1
mulsd  %xmm1,%xmm1
movapd %xmm10,%xmm2
subsd  %xmm1,%xmm2
movapd %xmm0,%xmm3
divsd  %xmm2,%xmm3
movapd %xmm4,%xmm2
subsd  %xmm1,%xmm2
movapd %xmm5,%xmm1
divsd  %xmm2,%xmm1
addsd  %xmm3,%xmm1
addsd  %xmm6,%xmm1
divsd  %xmm7,%xmm1
mulsd  %xmm1,%xmm1
movapd %xmm10,%xmm2
subsd  %xmm1,%xmm2
movapd %xmm0,%xmm3
divsd  %xmm2,%xmm3
movapd %xmm4,%xmm2
subsd  %xmm1,%xmm2
movapd %xmm5,%xmm1
divsd  %xmm2,%xmm1
addsd  %xmm3,%xmm1
addsd  %xmm6,%xmm1
divsd  %xmm7,%xmm1
mulsd  %xmm1,%xmm1
movapd %xmm10,%xmm2
subsd  %xmm1,%xmm2
movapd %xmm0,%xmm3
divsd  %xmm2,%xmm3
movapd %xmm4,%xmm2
subsd  %xmm1,%xmm2
movapd %xmm5,%xmm1
divsd  %xmm2,%xmm1
addsd  %xmm3,%xmm1
addsd  %xmm6,%xmm1
divsd  %xmm1,%xmm7
movsd  %xmm7,(%r8)
xor    %esi,%esi
mov    %esi,(%r9,%rdi,4)
add    %rdx,%r8
add    %r11,%rcx
add    $0x1,%rdi
cmp    %edi,%r10d
je     1268 <waveawav+0x168>
movsd  (%rcx),%xmm7
ucomisd %xmm9,%xmm7
jne    1160 <waveawav+0x60>
jp     1160 <waveawav+0x60>
mov    $0x4,%eax
mov    $0x1,%esi
jmp    1234 <waveawav+0x134>
ret
xor    %eax,%eax
ret

LLVM IR (-O0):
define i32 @waveawav(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 double
%17 = alloca double
%18 = alloca i32
%19 = alloca i32
%20 = alloca i32*
%21 = alloca double*
%22 = 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
%23 = load double*, double** %12
store double* %23, double** %21
%24 = load double*, double** %13
store double* %24, double** %22
%25 = load i32*, i32** %14
store i32* %25, i32** %20
store i32 0, i32* %18
br label %26
26: ; preds = %79, %7
%27 = load i32, i32* %18
%28 = load i32, i32* %9
%29 = icmp slt i32 %27, %28
br i1 %29, label %30, label %82
30: ; preds = %26
%31 = load double*, double** %21
%32 = load double, double* %31
%33 = fcmp une double %32, 0.000000e+00
br i1 %33, label %34, label %67
34: ; preds = %30
store double 1.000000e+00, double* %16
store i32 0, i32* %19
br label %35
35: ; preds = %56, %34
%36 = load i32, i32* %19
%37 = icmp slt i32 %36, 4
br i1 %37, label %38, label %59
38: ; preds = %35
%39 = load double, double* %16
%40 = load double*, double** %21
%41 = load double, double* %40
%42 = fdiv double %39, %41
store double %42, double* %17
%43 = load double, double* %17
%44 = load double, double* %17
%45 = fmul double %44, %43
store double %45, double* %17
%46 = load double, double* %17
%47 = fsub double 4.100000e+13, %46
%48 = fdiv double 2.554000e+08, %47
store double %48, double* %16
%49 = load double, double* %17
%50 = fsub double 1.460000e+14, %49
%51 = fdiv double 2.949810e+10, %50
%52 = load double, double* %16
%53 = fadd double %52, %51
store double %53, double* %16
%54 = load double, double* %16
%55 = fadd double %54, 0x3FF0004373EA7FDD
store double %55, double* %16
br label %56
56: ; preds = %38
%57 = load i32, i32* %19
%58 = add nsw i32 %57, 1
store i32 %58, i32* %19
br label %35
59: ; preds = %35
%60 = load double*, double** %21
%61 = load double, double* %60
%62 = load double, double* %16
%63 = fdiv double %61, %62
%64 = load double*, double** %22
store double %63, double* %64
%65 = load i32*, i32** %20
%66 = getelementptr inbounds i32, i32* %65, i32 1
store i32* %66, i32** %20
store i32 0, i32* %65
br label %70
67: ; preds = %30
%68 = load i32*, i32** %20
%69 = getelementptr inbounds i32, i32* %68, i32 1
store i32* %69, i32** %20
store i32 1, i32* %68
store i32 4, i32* %15
br label %70
70: ; preds = %67, %59
%71 = load i32, i32* %10
%72 = load double*, double** %21
%73 = sext i32 %71 to i64
%74 = getelementptr inbounds double, double* %72, i64 %73
store double* %74, double** %21
%75 = load i32, i32* %11
%76 = load double*, double** %22
%77 = sext i32 %75 to i64
%78 = getelementptr inbounds double, double* %76, i64 %77
store double* %78, double** %22
br label %79
79: ; preds = %70
%80 = load i32, i32* %18
%81 = add nsw i32 %80, 1
store i32 %81, i32* %18
br label %26
82: ; preds = %26
%83 = load i32, i32* %15
ret i32 %83
}

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