void QuadSD_ak1(int NN, double u, double v, double p[100 + 1],
                double q[100 + 1], double *a, double *b) {
  int i;
  q[0] = *b = p[0];
  q[1] = *a = -((*b) * u) + p[1];
  for (i = 2; i < NN; i++) {
    q[i] = -((*a) * u + (*b) * v) + p[i];
    *b = (*a);
    *a = q[i];
  }
  return;
}


x86 assembly (clang, -O0):
<QuadSD_ak1>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
movsd  %xmm0,-0x10(%rbp)
movsd  %xmm1,-0x18(%rbp)
mov    %rsi,-0x20(%rbp)
mov    %rdx,-0x28(%rbp)
mov    %rcx,-0x30(%rbp)
mov    %r8,-0x38(%rbp)
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x38(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x28(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x38(%rbp),%rax
movsd  (%rax),%xmm0
mulsd  -0x10(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mov    -0x20(%rbp),%rax
addsd  0x8(%rax),%xmm0
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x28(%rbp),%rax
movsd  %xmm0,0x8(%rax)
movl   $0x2,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1210 <QuadSD_ak1+0x110>
mov    -0x30(%rbp),%rax
movsd  (%rax),%xmm0
movsd  -0x10(%rbp),%xmm2
mov    -0x38(%rbp),%rax
movsd  (%rax),%xmm1
mulsd  -0x18(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mov    -0x20(%rbp),%rax
movslq -0x3c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x38(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x28(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    117e <QuadSD_ak1+0x7e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<QuadSD_ak1>:
movsd  (%rsi),%xmm2
movsd  %xmm2,(%r8)
movsd  %xmm2,(%rdx)
movsd  0x8(%rsi),%xmm2
movsd  (%r8),%xmm3
mulsd  %xmm0,%xmm3
subsd  %xmm3,%xmm2
movsd  %xmm2,(%rcx)
movsd  %xmm2,0x8(%rdx)
cmp    $0x3,%edi
jl     120a <QuadSD_ak1+0x10a>
mov    %edi,%r9d
movsd  (%rcx),%xmm2
mov    $0x2,%eax
je     11d7 <QuadSD_ak1+0xd7>
lea    -0x2(%r9),%r10
and    $0xfffffffffffffffe,%r10
neg    %r10
mov    $0x2,%eax
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsd  (%r8),%xmm3
mulsd  %xmm1,%xmm3
mulsd  %xmm0,%xmm2
addsd  %xmm3,%xmm2
movsd  (%rsi,%rax,8),%xmm3
subsd  %xmm2,%xmm3
movsd  %xmm3,(%rdx,%rax,8)
movsd  (%rcx),%xmm2
movsd  %xmm2,(%r8)
movsd  (%rdx,%rax,8),%xmm2
movsd  %xmm2,(%rcx)
movsd  (%r8),%xmm3
mulsd  %xmm1,%xmm3
mulsd  %xmm0,%xmm2
addsd  %xmm3,%xmm2
movsd  0x8(%rsi,%rax,8),%xmm3
subsd  %xmm2,%xmm3
movsd  %xmm3,0x8(%rdx,%rax,8)
movsd  (%rcx),%xmm2
movsd  %xmm2,(%r8)
movsd  0x8(%rdx,%rax,8),%xmm2
movsd  %xmm2,(%rcx)
lea    (%r10,%rax,1),%rdi
add    $0x2,%rdi
add    $0x2,%rax
cmp    $0x2,%rdi
jne    1160 <QuadSD_ak1+0x60>
test   $0x1,%r9b
je     120a <QuadSD_ak1+0x10a>
mulsd  (%r8),%xmm1
mulsd  %xmm0,%xmm2
addsd  %xmm1,%xmm2
movsd  (%rsi,%rax,8),%xmm0
subsd  %xmm2,%xmm0
movsd  %xmm0,(%rdx,%rax,8)
movsd  (%rcx),%xmm0
movsd  %xmm0,(%r8)
movsd  (%rdx,%rax,8),%xmm0
movsd  %xmm0,(%rcx)
ret

LLVM IR (-O0):
define void @QuadSD_ak1(i32 %0, double %1, double %2, double* %3, double* %4, double* %5, double* %6) {
%8 = alloca i32
%9 = alloca double
%10 = alloca double
%11 = alloca double*
%12 = alloca double*
%13 = alloca double*
%14 = alloca double*
%15 = alloca i32
store i32 %0, i32* %8
store double %1, double* %9
store double %2, double* %10
store double* %3, double** %11
store double* %4, double** %12
store double* %5, double** %13
store double* %6, double** %14
%16 = load double*, double** %11
%17 = getelementptr inbounds double, double* %16, i64 0
%18 = load double, double* %17
%19 = load double*, double** %14
store double %18, double* %19
%20 = load double*, double** %12
%21 = getelementptr inbounds double, double* %20, i64 0
store double %18, double* %21
%22 = load double*, double** %14
%23 = load double, double* %22
%24 = load double, double* %9
%25 = fmul double %23, %24
%26 = fneg double %25
%27 = load double*, double** %11
%28 = getelementptr inbounds double, double* %27, i64 1
%29 = load double, double* %28
%30 = fadd double %26, %29
%31 = load double*, double** %13
store double %30, double* %31
%32 = load double*, double** %12
%33 = getelementptr inbounds double, double* %32, i64 1
store double %30, double* %33
store i32 2, i32* %15
br label %34
34: ; preds = %67, %7
%35 = load i32, i32* %15
%36 = load i32, i32* %8
%37 = icmp slt i32 %35, %36
br i1 %37, label %38, label %70
38: ; preds = %34
%39 = load double*, double** %13
%40 = load double, double* %39
%41 = load double, double* %9
%42 = load double*, double** %14
%43 = load double, double* %42
%44 = load double, double* %10
%45 = fmul double %43, %44
%46 = call double @llvm.fmuladd.f64(double %40, double %41, double %45)
%47 = fneg double %46
%48 = load double*, double** %11
%49 = load i32, i32* %15
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds double, double* %48, i64 %50
%52 = load double, double* %51
%53 = fadd double %47, %52
%54 = load double*, double** %12
%55 = load i32, i32* %15
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds double, double* %54, i64 %56
store double %53, double* %57
%58 = load double*, double** %13
%59 = load double, double* %58
%60 = load double*, double** %14
store double %59, double* %60
%61 = load double*, double** %12
%62 = load i32, i32* %15
%63 = sext i32 %62 to i64
%64 = getelementptr inbounds double, double* %61, i64 %63
%65 = load double, double* %64
%66 = load double*, double** %13
store double %65, double* %66
br label %67
67: ; preds = %38
%68 = load i32, i32* %15
%69 = add nsw i32 %68, 1
store i32 %69, i32* %15
br label %34
70: ; preds = %34
ret void
}

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