int zoptwave(double restwav, int nzopt, int szopt, int swave,
             const double zopt[], double wave[], int stat[]) {
  register int izopt, *statp;
  register const double *zoptp;
  register double *wavep;
  zoptp = zopt;
  wavep = wave;
  statp = stat;
  for (izopt = 0; izopt < nzopt; izopt++) {
    *wavep = restwav * (1.0 + *zoptp);
    *(statp++) = 0;
    zoptp += szopt;
    wavep += swave;
  }
  return 0;
}


x86 assembly (clang, -O0):
<zoptwave>:
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    11b7 <zoptwave+0xb7>
movsd  -0x8(%rbp),%xmm0
mov    -0x48(%rbp),%rax
movsd  0xea6(%rip),%xmm1
addsd  (%rax),%xmm1
mulsd  %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 <zoptwave+0x3d>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<zoptwave>:
push   %rbp
push   %r15
push   %r14
push   %rbx
test   %edi,%edi
jle    1237 <zoptwave+0x137>
movslq %esi,%r14
movslq %edx,%r15
lea    -0x1(%rdi),%eax
cmp    $0x3,%eax
jb     11ef <zoptwave+0xef>
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),%xmm1
nopl   0x0(%rax,%rax,1)
mov    %r8,%rdx
mov    %rcx,%rsi
movsd  (%rcx),%xmm2
addsd  %xmm1,%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,(%r8)
movl   $0x0,(%r9)
add    %rbx,%rcx
movsd  (%rsi,%rbx,1),%xmm2
addsd  %xmm1,%xmm2
mulsd  %xmm0,%xmm2
add    %rax,%r8
movsd  %xmm2,(%rdx,%rax,1)
movl   $0x0,0x4(%r9)
movsd  (%rbx,%rcx,1),%xmm2
addsd  %xmm1,%xmm2
add    %rbx,%rcx
mulsd  %xmm0,%xmm2
movsd  %xmm2,(%rax,%r8,1)
add    %rax,%r8
movl   $0x0,0x8(%r9)
movsd  (%rbx,%rcx,1),%xmm2
addsd  %xmm1,%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    1150 <zoptwave+0x50>
add    %r11,%rdx
add    %r10,%rsi
mov    %rdx,%r8
mov    %rsi,%rcx
test   $0x3,%dil
je     1237 <zoptwave+0x137>
shl    $0x3,%r15
shl    $0x3,%r14
and    $0x3,%edi
xor    %eax,%eax
movsd  0xdf6(%rip),%xmm1
nopw   0x0(%rax,%rax,1)
movsd  (%rcx),%xmm2
addsd  %xmm1,%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    1210 <zoptwave+0x110>
xor    %eax,%eax
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

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

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