double mglsadff1t(double x, double *b, const int m, const double a,
                  const double g, double *d) {
  int i;
  x -= d[0] * (1.0 - a * a) * g;
  d[m] = b[m] * x + a * d[m - 1];
  for (i = m - 1; i >= 1; i--)
    d[i] += b[i] * x + a * (d[i - 1] - d[i + 1]);
  for (i = 0; i < m; i++)
    d[i] = d[i + 1];
  return (x);
}


x86 assembly (clang, -O0):
<mglsadff1t>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
movsd  %xmm1,-0x20(%rbp)
movsd  %xmm2,-0x28(%rbp)
mov    %rdx,-0x30(%rbp)
mov    -0x30(%rbp),%rax
movsd  (%rax),%xmm0
movsd  -0x20(%rbp),%xmm1
movsd  -0x20(%rbp),%xmm2
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm1
movsd  0xead(%rip),%xmm2
addsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
movsd  -0x28(%rbp),%xmm2
movsd  -0x8(%rbp),%xmm1
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x8(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  -0x8(%rbp),%xmm2
movsd  -0x20(%rbp),%xmm1
mov    -0x30(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x34(%rbp)
cmpl   $0x1,-0x34(%rbp)
jl     1241 <mglsadff1t+0x141>
mov    -0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  -0x8(%rbp),%xmm2
movsd  -0x20(%rbp),%xmm1
mov    -0x30(%rbp),%rax
mov    -0x34(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm3
mov    -0x30(%rbp),%rax
mov    -0x34(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
subsd  (%rax,%rcx,8),%xmm3
mulsd  %xmm3,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x34(%rbp)
jmp    11d0 <mglsadff1t+0xd0>
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1281 <mglsadff1t+0x181>
mov    -0x30(%rbp),%rax
mov    -0x34(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1248 <mglsadff1t+0x148>
movsd  -0x8(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<mglsadff1t>:
push   %rax
movapd %xmm1,%xmm4
mulsd  %xmm1,%xmm4
movsd  0xedf(%rip),%xmm3
subsd  %xmm4,%xmm3
mulsd  (%rdx),%xmm3
mulsd  %xmm2,%xmm3
subsd  %xmm3,%xmm0
movslq %esi,%rax
movsd  -0x8(%rdx,%rax,8),%xmm3
mulsd  %xmm1,%xmm3
movsd  (%rdi,%rax,8),%xmm2
mulsd  %xmm0,%xmm2
addsd  %xmm3,%xmm2
movsd  %xmm2,(%rdx,%rax,8)
cmp    $0x2,%esi
jl     119c <mglsadff1t+0x8c>
lea    -0x1(%rsi),%eax
mov    %eax,%eax
add    $0xffffffffffffffff,%rax
xchg   %ax,%ax
mov    %eax,%ecx
movsd  (%rdx,%rcx,8),%xmm3
subsd  0x10(%rdx,%rax,8),%xmm3
mulsd  %xmm1,%xmm3
movsd  0x8(%rdi,%rax,8),%xmm2
mulsd  %xmm0,%xmm2
addsd  %xmm3,%xmm2
addsd  0x8(%rdx,%rax,8),%xmm2
movsd  %xmm2,0x8(%rdx,%rax,8)
lea    -0x1(%rax),%rcx
add    $0x1,%rax
cmp    $0x1,%rax
mov    %rcx,%rax
ja     1160 <mglsadff1t+0x50>
test   %esi,%esi
jle    11c2 <mglsadff1t+0xb2>
lea    0x8(%rdx),%rax
mov    %esi,%ecx
shl    $0x3,%rcx
mov    %rdx,%rdi
mov    %rax,%rsi
mov    %rcx,%rdx
movsd  %xmm0,(%rsp)
call   1030 <memmove@plt>
movsd  (%rsp),%xmm0
pop    %rax
ret

LLVM IR (-O0):
define double @mglsadff1t(double %0, double* %1, i32 %2, double %3, double %4, double* %5) {
%7 = alloca double
%8 = alloca double*
%9 = alloca i32
%10 = alloca double
%11 = alloca double
%12 = alloca double*
%13 = alloca i32
store double %0, double* %7
store double* %1, double** %8
store i32 %2, i32* %9
store double %3, double* %10
store double %4, double* %11
store double* %5, double** %12
%14 = load double*, double** %12
%15 = getelementptr inbounds double, double* %14, i64 0
%16 = load double, double* %15
%17 = load double, double* %10
%18 = load double, double* %10
%19 = fneg double %17
%20 = call double @llvm.fmuladd.f64(double %19, double %18, double 1.000000e+00)
%21 = fmul double %16, %20
%22 = load double, double* %11
%23 = load double, double* %7
%24 = fneg double %21
%25 = call double @llvm.fmuladd.f64(double %24, double %22, double %23)
store double %25, double* %7
%26 = load double*, double** %8
%27 = load i32, i32* %9
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds double, double* %26, i64 %28
%30 = load double, double* %29
%31 = load double, double* %7
%32 = load double, double* %10
%33 = load double*, double** %12
%34 = load i32, i32* %9
%35 = sub nsw i32 %34, 1
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds double, double* %33, i64 %36
%38 = load double, double* %37
%39 = fmul double %32, %38
%40 = call double @llvm.fmuladd.f64(double %30, double %31, double %39)
%41 = load double*, double** %12
%42 = load i32, i32* %9
%43 = sext i32 %42 to i64
%44 = getelementptr inbounds double, double* %41, i64 %43
store double %40, double* %44
%45 = load i32, i32* %9
%46 = sub nsw i32 %45, 1
store i32 %46, i32* %13
br label %47
47: ; preds = %79, %6
%48 = load i32, i32* %13
%49 = icmp sge i32 %48, 1
br i1 %49, label %50, label %82
50: ; preds = %47
%51 = load double*, double** %8
%52 = load i32, i32* %13
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds double, double* %51, i64 %53
%55 = load double, double* %54
%56 = load double, double* %7
%57 = load double, double* %10
%58 = load double*, double** %12
%59 = load i32, i32* %13
%60 = sub nsw i32 %59, 1
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds double, double* %58, i64 %61
%63 = load double, double* %62
%64 = load double*, double** %12
%65 = load i32, i32* %13
%66 = add nsw i32 %65, 1
%67 = sext i32 %66 to i64
%68 = getelementptr inbounds double, double* %64, i64 %67
%69 = load double, double* %68
%70 = fsub double %63, %69
%71 = fmul double %57, %70
%72 = call double @llvm.fmuladd.f64(double %55, double %56, double %71)
%73 = load double*, double** %12
%74 = load i32, i32* %13
%75 = sext i32 %74 to i64
%76 = getelementptr inbounds double, double* %73, i64 %75
%77 = load double, double* %76
%78 = fadd double %77, %72
store double %78, double* %76
br label %79
79: ; preds = %50
%80 = load i32, i32* %13
%81 = add nsw i32 %80, -1
store i32 %81, i32* %13
br label %47
82: ; preds = %47
store i32 0, i32* %13
br label %83
83: ; preds = %98, %82
%84 = load i32, i32* %13
%85 = load i32, i32* %9
%86 = icmp slt i32 %84, %85
br i1 %86, label %87, label %101
87: ; preds = %83
%88 = load double*, double** %12
%89 = load i32, i32* %13
%90 = add nsw i32 %89, 1
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds double, double* %88, i64 %91
%93 = load double, double* %92
%94 = load double*, double** %12
%95 = load i32, i32* %13
%96 = sext i32 %95 to i64
%97 = getelementptr inbounds double, double* %94, i64 %96
store double %93, double* %97
br label %98
98: ; preds = %87
%99 = load i32, i32* %13
%100 = add nsw i32 %99, 1
store i32 %100, i32* %13
br label %83
101: ; preds = %83
%102 = load double, double* %7
ret double %102
}

LLVM IR (-O2):
define double @mglsadff1t(double %0, double* nocapture %1, i32 %2, double %3, double %4, double* nocapture %5) {
%7 = bitcast double* %5 to i8*
%8 = load double, double* %5
%9 = fneg double %3
%10 = tail call double @llvm.fmuladd.f64(double %9, double %3, double 1.000000e+00)
%11 = fneg double %8
%12 = fmul double %10, %11
%13 = tail call double @llvm.fmuladd.f64(double %12, double %4, double %0)
%14 = sext i32 %2 to i64
%15 = getelementptr inbounds double, double* %1, i64 %14
%16 = load double, double* %15
%17 = add nsw i32 %2, -1
%18 = sext i32 %17 to i64
%19 = getelementptr inbounds double, double* %5, i64 %18
%20 = load double, double* %19
%21 = fmul double %20, %3
%22 = tail call double @llvm.fmuladd.f64(double %16, double %13, double %21)
%23 = getelementptr inbounds double, double* %5, i64 %14
store double %22, double* %23
%24 = icmp sgt i32 %2, 1
br i1 %24, label %25, label %27
25: ; preds = %6
%26 = zext i32 %17 to i64
br label %34
27: ; preds = %34, %6
%28 = icmp sgt i32 %2, 0
br i1 %28, label %29, label %52
29: ; preds = %27
%30 = getelementptr double, double* %5, i64 1
%31 = bitcast double* %30 to i8*
%32 = zext i32 %2 to i64
%33 = shl nuw nsw i64 %32, 3
br label %52
34: ; preds = %25, %34
%35 = phi i64 [ %26, %25 ], [ %38, %34 ]
%36 = getelementptr inbounds double, double* %1, i64 %35
%37 = load double, double* %36
%38 = add nsw i64 %35, -1
%39 = and i64 %38, 4294967295
%40 = getelementptr inbounds double, double* %5, i64 %39
%41 = load double, double* %40
%42 = add nuw nsw i64 %35, 1
%43 = getelementptr inbounds double, double* %5, i64 %42
%44 = load double, double* %43
%45 = fsub double %41, %44
%46 = fmul double %45, %3
%47 = tail call double @llvm.fmuladd.f64(double %37, double %13, double %46)
%48 = getelementptr inbounds double, double* %5, i64 %35
%49 = load double, double* %48
%50 = fadd double %49, %47
store double %50, double* %48
%51 = icmp ugt i64 %35, 1
br i1 %51, label %34, label %27
52: ; preds = %29, %27
ret double %13
}