user: Translate the below assembly code into C programming language:

```asm
<bitrv2>:
  endbr64
  push   %r15
  mov    %rsi,%rax
  push   %r14
  push   %r13
  push   %r12
  mov    %edi,%r12d
  sar    %edi
  push   %rbp
  sar    $0x2,%r12d
  mov    %rdx,%rbp
  push   %rbx
  sub    $0xd8,%rsp
  mov    %edi,0x30(%rsp)
  cmp    $0x8,%r12d
  jle    L97
  mov    $0x1,%edx
  nopw   0x0(%rax,%rax,1)
L77:
  sar    $0x2,%r12d
  add    %edx,%edx
  cmp    $0x8,%r12d
  jg     L77
  mov    %edx,0x50(%rsp)
  lea    0x0(,%rdx,4),%r14d
  je     L57
  test   %edx,%edx
  jle    L109
  movslq %edx,%rdx
  lea    0x0(,%rdx,4),%rcx
L84:
  mov    (%rax,%rcx,1),%r10d
  movslq 0x30(%rsp),%rcx
  lea    (%rax,%rdx,4),%rax
  xor    %r15d,%r15d
  mov    %rax,-0x68(%rsp)
  mov    $0x2,%eax
  movslq %r14d,%rdi
  sub    %rcx,%rax
  movl   $0x0,-0x78(%rsp)
  mov    %rax,-0x58(%rsp)
  lea    0x20(%rbp),%rax
  mov    %rcx,-0x60(%rsp)
  mov    %rax,-0x50(%rsp)
  mov    %r10d,-0x70(%rsp)
  mov    %ecx,%r10d
  nopl   0x0(%rax)
L98:
  mov    -0x70(%rsp),%eax
  addl   $0x1,-0x78(%rsp)
  add    %r15d,%eax
  lea    0x2(%rax),%edx
  add    %r10d,%eax
  movslq %edx,%rcx
  add    %r14d,%edx
  shl    $0x3,%rcx
  movslq %edx,%rdx
  lea    0x0(%rbp,%rcx,1),%r9
  lea    0x8(%rbp,%rcx,1),%r8
  movslq %eax,%rcx
  add    %r14d,%eax
  shl    $0x3,%rcx
  movsd  (%r9),%xmm1
  movsd  (%r8),%xmm0
  cltq
  lea    0x0(%rbp,%rcx,1),%rsi
  lea    0x8(%rbp,%rcx,1),%rcx
  shl    $0x3,%rdx
  shl    $0x3,%rax
  movsd  (%rsi),%xmm3
  movsd  (%rcx),%xmm2
  movsd  %xmm3,(%r9)
  movsd  %xmm2,(%r8)
  movsd  %xmm1,(%rsi)
  lea    0x0(%rbp,%rax,1),%rsi
  lea    0x8(%rbp,%rax,1),%rax
  movsd  %xmm0,(%rcx)
  lea    0x0(%rbp,%rdx,1),%rcx
  movsd  (%rax),%xmm2
  movsd  (%rsi),%xmm3
  lea    0x8(%rbp,%rdx,1),%rdx
  movsd  (%rcx),%xmm1
  movsd  (%rdx),%xmm0
  movsd  %xmm3,(%rcx)
  movsd  %xmm2,(%rdx)
  movsd  %xmm1,(%rsi)
  movsd  %xmm0,(%rax)
  mov    -0x78(%rsp),%eax
  cmp    0x50(%rsp),%eax
  jge    L109
  mov    -0x68(%rsp),%r9
  lea    0x0(,%rax,4),%ebx
  mov    0x4(%r9,%r15,1),%r11d
  movslq %r11d,%rax
  lea    (%r11,%r10,1),%r8d
  mov    %r11d,-0x70(%rsp)
  mov    -0x50(%rsp),%r11
  lea    (%rdi,%rax,1),%rdx
  lea    0x0(%rbp,%rax,8),%rsi
  movslq %r8d,%r8
  add    -0x58(%rsp),%r8
  lea    0x0(%rbp,%rdx,8),%rcx
  mov    -0x60(%rsp),%rdx
  lea    0x0(%rbp,%r8,8),%r8
  add    %rax,%rdx
  add    %r15,%rax
  lea    0x0(%rbp,%rdx,8),%rdx
  lea    (%r11,%rax,8),%r11
  cs nopw 0x0(%rax,%rax,1)
L23:
  mov    (%r9),%eax
  movsd  (%rsi),%xmm1
  add    $0x20,%rsi
  add    $0x4,%r9
  movsd  -0x18(%rsi),%xmm0
  add    $0x20,%rcx
  add    $0x20,%r8
  add    %ebx,%eax
  movslq %eax,%r12
  add    %r14d,%eax
  shl    $0x3,%r12
  lea    0x0(%rbp,%r12,1),%r13
  lea    0x8(%rbp,%r12,1),%r12
  movsd  0x0(%r13),%xmm3
  movsd  (%r12),%xmm2
  movsd  %xmm3,-0x20(%rsi)
  movsd  %xmm2,-0x18(%rsi)
  movsd  %xmm1,0x0(%r13)
  movsd  %xmm0,(%r12)
  movslq %eax,%r12
  movsd  -0x20(%rcx),%xmm1
  movsd  -0x18(%rcx),%xmm0
  shl    $0x3,%r12
  add    $0x2,%eax
  lea    0x0(%rbp,%r12,1),%r13
  lea    0x8(%rbp,%r12,1),%r12
  movsd  0x0(%r13),%xmm3
  movsd  (%r12),%xmm2
  movsd  %xmm3,-0x20(%rcx)
  movsd  %xmm2,-0x18(%rcx)
  movsd  %xmm1,0x0(%r13)
  movsd  %xmm0,(%r12)
  movslq %eax,%r12
  sub    %r14d,%eax
  movsd  (%rdx,%rdi,8),%xmm1
  shl    $0x3,%r12
  movsd  0x8(%rdx,%rdi,8),%xmm0
  lea    0x0(%rbp,%r12,1),%r13
  lea    0x8(%rbp,%r12,1),%r12
  movsd  0x0(%r13),%xmm3
  movsd  (%r12),%xmm2
  movsd  %xmm3,(%rdx,%rdi,8)
  movsd  %xmm2,0x8(%rdx,%rdi,8)
  movsd  %xmm1,0x0(%r13)
  movsd  %xmm0,(%r12)
  movslq %eax,%r12
  movsd  (%rdx),%xmm1
  movsd  0x8(%rdx),%xmm0
  shl    $0x3,%r12
  add    %r10d,%eax
  lea    0x0(%rbp,%r12,1),%r13
  lea    0x8(%rbp,%r12,1),%r12
  movsd  0x0(%r13),%xmm3
  movsd  (%r12),%xmm2
  movsd  %xmm3,(%rdx)
  movsd  %xmm2,0x8(%rdx)
  movsd  %xmm1,0x0(%r13)
  movsd  %xmm0,(%r12)
  movslq %eax,%r12
  movsd  0x10(%rdx),%xmm1
  movsd  0x18(%rdx),%xmm0
  shl    $0x3,%r12
  add    %r14d,%eax
  lea    0x0(%rbp,%r12,1),%r13
  lea    0x8(%rbp,%r12,1),%r12
  movsd  0x0(%r13),%xmm3
  movsd  (%r12),%xmm2
  movsd  %xmm3,0x10(%rdx)
  movsd  %xmm2,0x18(%rdx)
  movsd  %xmm1,0x0(%r13)
  movsd  %xmm0,(%r12)
  movslq %eax,%r12
  sub    $0x2,%eax
  movsd  0x10(%rdx,%rdi,8),%xmm1
  shl    $0x3,%r12
  movsd  0x18(%rdx,%rdi,8),%xmm0
  lea    0x0(%rbp,%r12,1),%r13
  lea    0x8(%rbp,%r12,1),%r12
  movsd  0x0(%r13),%xmm3
  movsd  (%r12),%xmm2
  movsd  %xmm3,0x10(%rdx,%rdi,8)
  movsd  %xmm2,0x18(%rdx,%rdi,8)
  add    $0x20,%rdx
  movsd  %xmm1,0x0(%r13)
  movsd  %xmm0,(%r12)
  movslq %eax,%r12
  sub    %r14d,%eax
  movsd  -0x10(%rcx),%xmm1
  shl    $0x3,%r12
  movsd  -0x8(%rcx),%xmm0
  cltq
  lea    0x0(%rbp,%r12,1),%r13
  lea    0x8(%rbp,%r12,1),%r12
  shl    $0x3,%rax
  movsd  (%r12),%xmm2
  movsd  0x0(%r13),%xmm3
  movsd  %xmm2,-0x8(%rcx)
  movsd  %xmm3,-0x10(%rcx)
  movsd  %xmm1,0x0(%r13)
  movsd  %xmm0,(%r12)
  lea    0x0(%rbp,%rax,1),%r12
  lea    0x8(%rbp,%rax,1),%rax
  movsd  -0x20(%r8),%xmm1
  movsd  (%r12),%xmm3
  movsd  (%rax),%xmm2
  movsd  -0x8(%rsi),%xmm0
  movsd  %xmm3,-0x20(%r8)
  movsd  %xmm2,-0x8(%rsi)
  movsd  %xmm1,(%r12)
  movsd  %xmm0,(%rax)
  cmp    %rsi,%r11
  jne    L23
  add    $0x4,%r15
  jmp    L98
  nopl   0x0(%rax,%rax,1)
L109:
  add    $0xd8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L57:
  mov    0x50(%rsp),%edi
  test   %edi,%edi
  jle    L109
  lea    -0x2(%r14,%r14,1),%ecx
  movslq %edi,%rdx
  lea    0x0(,%rdi,8),%r12d
  mov    %ecx,0x84(%rsp)
  lea    0x0(,%rdx,4),%rcx
L13:
  movslq 0x30(%rsp),%rsi
  lea    (%rax,%rdx,4),%r10
  movq   $0x20,-0x30(%rsp)
  mov    %r12d,%r13d
  mov    %r10,0x98(%rsp)
  mov    %r14d,%r12d
  lea    0x2(%rsi),%edi
  lea    0x0(,%rsi,8),%rbx
  mov    %rsi,0x40(%rsp)
  mov    %edi,0x88(%rsp)
  mov    %esi,%edi
  sub    %r14d,%edi
  mov    %r10,0x58(%rsp)
  mov    %edi,0x8c(%rsp)
  mov    (%rax,%rcx,1),%edi
  mov    %rbx,0xa0(%rsp)
  neg    %rbx
  mov    %edi,0x54(%rsp)
  movslq %r14d,%rdi
  mov    %rdi,%rax
  lea    0x0(,%rdi,4),%rdx
  mov    %rdi,0x38(%rsp)
  neg    %rax
  mov    %rbx,0x90(%rsp)
  lea    0x0(,%rax,8),%rcx
  shl    $0x4,%rax
  movl   $0x0,0x80(%rsp)
  mov    %rax,0x60(%rsp)
  mov    %rdi,%rax
  sub    %rdx,%rax
  mov    %rcx,0xa8(%rsp)
  lea    (%rdi,%rdi,1),%rcx
  mov    %rsi,%rdx
  shl    $0x3,%rax
  sub    %rcx,%rdx
  mov    %rcx,0x48(%rsp)
  mov    %rax,0xb0(%rsp)
  mov    %rcx,%rax
  add    %rdi,%rax
  mov    %rdx,0xb8(%rsp)
  mov    %rax,0x68(%rsp)
  mov    %rcx,%rax
  add    %rsi,%rax
  add    %rdi,%rax
  mov    %rax,0x70(%rsp)
  mov    %rcx,%rax
  sub    %rsi,%rax
  sub    %rdi,%rax
  mov    %rax,0xc0(%rsp)
  sub    %rdi,%rax
  mov    %rax,0xc8(%rsp)
  mov    $0x1,%eax
  sub    %rsi,%rax
  sub    %rdi,%rax
  sub    %rdi,%rax
  mov    %rax,0xd0(%rsp)
  nopl   0x0(%rax)
L43:
  mov    0x80(%rsp),%ebx
  mov    0x54(%rsp),%eax
  mov    0x30(%rsp),%r11d
  lea    (%rbx,%rbx,1),%ecx
  add    $0x1,%ebx
  add    %ecx,%eax
  add    %eax,%eax
  lea    0x2(%rax),%edx
  add    %r11d,%eax
  movslq %edx,%rsi
  add    %r12d,%edx
  lea    0x0(%rbp,%rsi,8),%r9
  lea    0x8(%rbp,%rsi,8),%r8
  movslq %eax,%rsi
  add    %r13d,%eax
  shl    $0x3,%rsi
  movsd  (%r9),%xmm1
  movsd  (%r8),%xmm0
  lea    0x0(%rbp,%rsi,1),%rdi
  lea    0x8(%rbp,%rsi,1),%rsi
  movsd  (%rdi),%xmm3
  movsd  (%rsi),%xmm2
  movsd  %xmm3,(%r9)
  movsd  %xmm2,(%r8)
  movsd  %xmm1,(%rdi)
  movsd  %xmm0,(%rsi)
  movslq %edx,%rsi
  add    %r12d,%edx
  shl    $0x3,%rsi
  lea    0x0(%rbp,%rsi,1),%r9
  lea    0x8(%rbp,%rsi,1),%r8
  movslq %eax,%rsi
  sub    %r12d,%eax
  shl    $0x3,%rsi
  movsd  (%r9),%xmm1
  movsd  (%r8),%xmm0
  lea    0x0(%rbp,%rsi,1),%rdi
  lea    0x8(%rbp,%rsi,1),%rsi
  movsd  (%rdi),%xmm3
  movsd  (%rsi),%xmm2
  movsd  %xmm3,(%r9)
  movsd  %xmm2,(%r8)
  movsd  %xmm1,(%rdi)
  movsd  %xmm0,(%rsi)
  movslq %edx,%rsi
  sub    $0x2,%edx
  shl    $0x3,%rsi
  lea    0x0(%rbp,%rsi,1),%r9
  lea    0x8(%rbp,%rsi,1),%r8
  movslq %eax,%rsi
  shl    $0x3,%rsi
  movsd  (%r9),%xmm1
  movsd  (%r8),%xmm0
  lea    0x0(%rbp,%rsi,1),%rdi
  lea    0x8(%rbp,%rsi,1),%rsi
  movsd  (%rdi),%xmm3
  movsd  (%rsi),%xmm2
  movsd  %xmm3,(%r9)
  movsd  %xmm2,(%r8)
  movsd  %xmm1,(%rdi)
  movsd  %xmm0,(%rsi)
  movslq %edx,%rsi
  shl    $0x3,%rsi
  lea    0x0(%rbp,%rsi,1),%r9
  lea    0x8(%rbp,%rsi,1),%r8
  mov    %eax,%esi
  add    $0x2,%eax
  sub    %r11d,%esi
  movsd  (%r9),%xmm1
  movsd  (%r8),%xmm0
  movslq %esi,%rsi
  shl    $0x3,%rsi
  lea    0x0(%rbp,%rsi,1),%rdi
  lea    0x8(%rbp,%rsi,1),%rsi
  movsd  (%rdi),%xmm3
  movsd  (%rsi),%xmm2
  movsd  %xmm3,(%r9)
  movsd  %xmm2,(%r8)
  add    0x88(%rsp),%edx
  movsd  %xmm1,(%rdi)
  movsd  %xmm0,(%rsi)
  movslq %edx,%rsi
  sub    0x8c(%rsp),%edx
  shl    $0x3,%rsi
  movslq %edx,%rdx
  mov    %ebx,0x80(%rsp)
  lea    0x0(%rbp,%rsi,1),%r9
  lea    0x8(%rbp,%rsi,1),%r8
  movslq %eax,%rsi
  add    0x84(%rsp),%eax
  shl    $0x3,%rsi
  movsd  (%r9),%xmm1
  movsd  (%r8),%xmm0
  cltq
  lea    0x0(%rbp,%rsi,1),%rdi
  lea    0x8(%rbp,%rsi,1),%rsi
  shl    $0x3,%rdx
  shl    $0x3,%rax
  movsd  (%rdi),%xmm3
  movsd  (%rsi),%xmm2
  movsd  %xmm3,(%r9)
  movsd  %xmm2,(%r8)
  movsd  %xmm1,(%rdi)
  lea    0x0(%rbp,%rax,1),%rdi
  lea    0x8(%rbp,%rax,1),%rax
  movsd  %xmm0,(%rsi)
  lea    0x0(%rbp,%rdx,1),%rsi
  movsd  (%rdi),%xmm3
  movsd  (%rax),%xmm2
  lea    0x8(%rbp,%rdx,1),%rdx
  movsd  (%rsi),%xmm1
  movsd  (%rdx),%xmm0
  movsd  %xmm3,(%rsi)
  movsd  %xmm2,(%rdx)
  movsd  %xmm1,(%rdi)
  movsd  %xmm0,(%rax)
  cmp    %ebx,0x50(%rsp)
  jle    L109
  mov    0x58(%rsp),%rax
  mov    0x38(%rsp),%rbx
  lea    0x2(%rcx),%edi
  mov    0x48(%rsp),%r14
  mov    %edi,0x34(%rsp)
  mov    0x4(%rax),%eax
  mov    0x68(%rsp),%rdi
  mov    %eax,0x54(%rsp)
  add    %eax,%eax
  movslq %eax,%rdx
  lea    (%rbx,%rdx,1),%rcx
  lea    0x0(%rbp,%rdx,8),%r10
  lea    0x0(%rbp,%rcx,8),%r9
  lea    (%r14,%rdx,1),%rcx
  lea    0x0(%rbp,%rcx,8),%r8
  lea    (%rdi,%rdx,1),%rcx
  add    0x70(%rsp),%rdx
  lea    0x0(%rbp,%rcx,8),%rdi
  lea    0x0(%rbp,%rdx,8),%rcx
  mov    %rcx,0x78(%rsp)
  lea    (%r12,%rax,1),%ecx
  lea    (%r12,%rcx,1),%r15d
  mov    %ecx,-0x28(%rsp)
  mov    0xb8(%rsp),%rcx
  lea    (%r12,%r15,1),%edx
  sub    %rbx,%rcx
  mov    %rcx,%rax
  movslq %edx,%rcx
  add    %r11d,%edx
  mov    %edx,%r11d
  add    %rcx,%rax
  movslq %edx,%rdx
  sub    %r12d,%r11d
  lea    0x0(%rbp,%rax,8),%rcx
  mov    %rdx,-0x50(%rsp)
  sub    %r14,%rdx
  mov    %r11d,%eax
  movslq %r11d,%r11
  mov    %r11,-0x38(%rsp)
  mov    %eax,%r14d
  sub    %rbx,%r11
  sub    %r12d,%r14d
  lea    0x10(%rbp,%r11,8),%rsi
  mov    %rsi,-0x58(%rsp)
  lea    0x18(%rbp,%rdx,8),%rsi
  mov    %r14d,%edx
  sub    %r12d,%edx
  mov    %rsi,-0x60(%rsp)
  mov    0xc0(%rsp),%rsi
  mov    %edx,-0x78(%rsp)
  lea    0x2(%r14),%edx
  movslq %edx,%r11
  add    %r12d,%edx
  lea    (%rsi,%r11,1),%rax
  add    0xc8(%rsp),%r11
  lea    0x0(%rbp,%rax,8),%rsi
  movslq %edx,%rax
  add    %r12d,%edx
  mov    %rsi,-0x68(%rsp)
  mov    %rax,%rsi
  add    0xd0(%rsp),%rax
  movslq %edx,%rdx
  sub    %rbx,%rsi
  sub    0x70(%rsp),%rdx
  mov    %rsi,%rbx
  sub    0x40(%rsp),%rbx
  lea    0x0(%rbp,%rbx,8),%rsi
  lea    0x0(%rbp,%rax,8),%rbx
  mov    0x40(%rsp),%rax
  mov    %rsi,-0x70(%rsp)
  lea    0x0(%rbp,%r11,8),%rsi
  mov    0x38(%rsp),%r11
  mov    %rsi,-0x40(%rsp)
  lea    0x0(%rbp,%rdx,8),%rsi
  movslq -0x28(%rsp),%rdx
  add    %r11,%rax
  mov    %rsi,-0x48(%rsp)
  add    %rdx,%rax
  lea    0x0(%rbp,%rax,8),%rsi
  movslq 0x54(%rsp),%rax
  mov    %rsi,0x28(%rsp)
  add    %r11,%rax
  mov    0x40(%rsp),%r11
  lea    (%r11,%rax,2),%rax
  lea    0x0(%rbp,%rax,8),%rsi
  movslq %r15d,%rax
  mov    %rsi,0x20(%rsp)
  mov    0xa0(%rsp),%r15
  shl    $0x3,%rax
  mov    0xa8(%rsp),%r11
  add    0x40(%rsp),%rdx
  add    %r15,%r11
  add    %rax,%r11
  lea    0x0(%rbp,%r11,1),%rsi
  mov    0x38(%rsp),%r11
  mov    %rsi,0x18(%rsp)
  lea    0x0(%rbp,%rdx,8),%rsi
  mov    0x60(%rsp),%rdx
  mov    %rsi,0x10(%rsp)
  mov    0xb0(%rsp),%rsi
  add    %r15,%rdx
  add    %rax,%rdx
  lea    0x0(%rbp,%rdx,1),%rax
  mov    -0x50(%rsp),%rdx
  mov    %rax,0x8(%rsp)
  lea    (%rsi,%rdx,8),%rax
  add    %rbp,%rax
  mov    %rax,(%rsp)
  movslq %r14d,%rax
  lea    (%rax,%r11,1),%rdx
  mov    -0x38(%rsp),%r11
  add    0x48(%rsp),%rax
  mov    %rbx,-0x38(%rsp)
  lea    0x0(%rbp,%rdx,8),%r15
  movslq -0x78(%rsp),%rdx
  lea    0x0(%rbp,%rax,8),%rax
  lea    0x0(%rbp,%r11,8),%r11
  mov    %rax,-0x20(%rsp)
  mov    %r11,-0x10(%rsp)
  mov    0x68(%rsp),%r11
  lea    0x0(,%rdx,8),%rax
  mov    %r15,-0x8(%rsp)
  add    %rdx,%r11
  mov    0x90(%rsp),%rdx
  lea    0x0(%rbp,%r11,8),%r11
  mov    %r11,-0x18(%rsp)
  mov    %rdx,%r11
  sub    %rsi,%r11
  mov    0x78(%rsp),%rsi
  add    %rax,%r11
  add    %rbp,%r11
  sub    0x60(%rsp),%rdx
  add    %rax,%rdx
  mov    %r11,-0x78(%rsp)
  lea    0x0(%rbp,%rdx,1),%rax
  xor    %edx,%edx
  mov    %rax,-0x28(%rsp)
  mov    0x98(%rsp),%rax
  mov    %rax,-0x50(%rsp)
L106:
  mov    -0x50(%rsp),%rbx
  mov    0x34(%rsp),%eax
  movsd  (%r10),%xmm1
  movsd  0x8(%r10),%xmm0
  add    (%rbx),%eax
  add    %eax,%eax
  movslq %eax,%r14
  add    %r13d,%eax
  lea    0x0(%rbp,%r14,8),%r15
  lea    0x8(%rbp,%r14,8),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,(%r10)
  movsd  %xmm2,0x8(%r10)
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  movsd  (%r9),%xmm1
  movsd  0x8(%r9),%xmm0
  shl    $0x3,%r14
  sub    %r12d,%eax
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,(%r9)
  movsd  %xmm2,0x8(%r9)
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  movsd  (%r8),%xmm1
  movsd  0x8(%r8),%xmm0
  shl    $0x3,%r14
  add    %r13d,%eax
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,(%r8)
  movsd  %xmm2,0x8(%r8)
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  movsd  (%rdi),%xmm1
  add    $0x2,%eax
  shl    $0x3,%r14
  movsd  0x8(%rdi),%xmm0
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,(%rdi)
  movsd  %xmm2,0x8(%rdi)
  mov    0x28(%rsp),%rbx
  mov    0x20(%rsp),%r11
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  movsd  (%rsi),%xmm1
  sub    %r13d,%eax
  shl    $0x3,%r14
  movsd  0x8(%rsi),%xmm0
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,(%rsi)
  movsd  %xmm2,0x8(%rsi)
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  add    %r12d,%eax
  movsd  (%rbx,%rdx,1),%xmm1
  shl    $0x3,%r14
  movsd  0x8(%r11,%rdx,1),%xmm0
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,(%rbx,%rdx,1)
  mov    0x18(%rsp),%rbx
  movsd  %xmm2,0x8(%r11,%rdx,1)
  mov    0x10(%rsp),%r11
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  sub    %r13d,%eax
  movsd  (%rbx,%rdx,1),%xmm1
  shl    $0x3,%r14
  movsd  0x8(%r11,%rdx,1),%xmm0
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,(%rbx,%rdx,1)
  mov    0x8(%rsp),%rbx
  movsd  %xmm2,0x8(%r11,%rdx,1)
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  movsd  (%rcx),%xmm1
  movsd  0x8(%rbx,%rdx,1),%xmm0
  shl    $0x3,%r14
  add    0x30(%rsp),%eax
  mov    -0x60(%rsp),%r11
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,(%rcx)
  movsd  %xmm2,0x8(%rbx,%rdx,1)
  mov    (%rsp),%rbx
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  movsd  0x10(%rbx,%rdx,1),%xmm1
  add    %r13d,%eax
  shl    $0x3,%r14
  movsd  0x18(%rcx),%xmm0
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,0x10(%rbx,%rdx,1)
  mov    -0x58(%rsp),%rbx
  movsd  %xmm2,0x18(%rcx)
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  movsd  (%rbx),%xmm1
  sub    %r12d,%eax
  shl    $0x3,%r14
  movsd  (%r11),%xmm0
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,(%rbx)
  mov    -0x8(%rsp),%rbx
  movsd  %xmm2,(%r11)
  mov    -0x10(%rsp),%r11
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  add    %r13d,%eax
  movsd  0x10(%rbx,%rdx,1),%xmm1
  shl    $0x3,%r14
  movsd  0x18(%r11,%rdx,1),%xmm0
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,0x10(%rbx,%rdx,1)
  mov    -0x18(%rsp),%rbx
  movsd  %xmm2,0x18(%r11,%rdx,1)
  mov    -0x20(%rsp),%r11
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  sub    $0x2,%eax
  movsd  0x18(%r11,%rdx,1),%xmm0
  shl    $0x3,%r14
  movsd  0x10(%rbx,%rdx,1),%xmm1
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,0x10(%rbx,%rdx,1)
  mov    -0x78(%rsp),%rbx
  movsd  %xmm2,0x18(%r11,%rdx,1)
  mov    -0x28(%rsp),%r11
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  sub    %r13d,%eax
  movsd  0x10(%rbx,%rdx,1),%xmm1
  shl    $0x3,%r14
  movsd  0x18(%rbx,%rdx,1),%xmm0
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,0x10(%rbx,%rdx,1)
  movsd  %xmm2,0x18(%rbx,%rdx,1)
  mov    -0x68(%rsp),%rbx
  movsd  %xmm1,(%r15)
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  movsd  (%rbx),%xmm1
  add    %r12d,%eax
  shl    $0x3,%r14
  movsd  0x18(%r11,%rdx,1),%xmm0
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  movsd  %xmm3,(%rbx)
  movsd  %xmm2,0x18(%r11,%rdx,1)
  movsd  %xmm1,(%r15)
  mov    -0x70(%rsp),%rbx
  mov    -0x40(%rsp),%r11
  movsd  %xmm0,(%r14)
  movslq %eax,%r14
  sub    %r13d,%eax
  shl    $0x3,%r14
  movsd  (%rbx),%xmm1
  movsd  0x8(%r11),%xmm0
  cltq
  lea    0x0(%rbp,%r14,1),%r15
  lea    0x8(%rbp,%r14,1),%r14
  shl    $0x3,%rax
  addq   $0x4,-0x50(%rsp)
  movsd  (%r15),%xmm3
  movsd  (%r14),%xmm2
  add    $0x20,%r10
  add    $0x20,%r9
  addq   $0x20,-0x58(%rsp)
  add    $0x20,%r8
  add    $0x20,%rdi
  add    $0x20,%rsi
  movsd  %xmm3,(%rbx)
  mov    %r11,%rbx
  add    $0x20,%rcx
  add    $0x20,%rdx
  movsd  %xmm2,0x8(%r11)
  mov    -0x38(%rsp),%r11
  add    $0x20,%rbx
  movsd  %xmm1,(%r15)
  mov    -0x48(%rsp),%r15
  movsd  %xmm0,(%r14)
  lea    0x0(%rbp,%rax,1),%r14
  lea    0x8(%rbp,%rax,1),%rax
  movsd  (%r11),%xmm0
  movsd  (%r15),%xmm1
  movsd  (%rax),%xmm2
  add    $0x20,%r15
  mov    %rbx,-0x40(%rsp)
  movsd  (%r14),%xmm3
  addq   $0x20,-0x60(%rsp)
  addq   $0x20,-0x68(%rsp)
  movsd  %xmm3,-0x20(%r15)
  movsd  %xmm2,(%r11)
  movsd  %xmm1,(%r14)
  movsd  %xmm0,(%rax)
  mov    %r11,%rax
  add    $0x20,%rax
  addq   $0x20,-0x70(%rsp)
  mov    %r15,-0x48(%rsp)
  mov    %rax,-0x38(%rsp)
  cmp    %rdx,-0x30(%rsp)
  jne    L106
  addq   $0x4,0x58(%rsp)
  addq   $0x20,-0x30(%rsp)
  jmp    L43
L97:
  mov    $0x4,%ecx
  je     L34
  movl   $0x1,0x50(%rsp)
  mov    $0x4,%r14d
  mov    $0x1,%edx
  jmp    L84
L34:
  movl   $0x6,0x84(%rsp)
  mov    $0x4,%r14d
  mov    $0x1,%edx
  movl   $0x1,0x50(%rsp)
  jmp    L13
```

assistant: ```c
void bitrv2(int n, int *ip, double *a) {
  int j, j1, k, k1, l, m, nh, nm;
  double xr, xi, yr, yi;
  m = 1;
  for (l = n >> 2; l > 8; l >>= 2) {
    m <<= 1;
  }
  nh = n >> 1;
  nm = 4 * m;
  if (l == 8) {
    for (k = 0; k < m; k++) {
      for (j = 0; j < k; j++) {
        j1 = 4 * j + 2 * ip[m + k];
        k1 = 4 * k + 2 * ip[m + j];
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += nm;
        k1 += 2 * nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += nm;
        k1 -= nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += nm;
        k1 += 2 * nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += nh;
        k1 += 2;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 -= nm;
        k1 -= 2 * nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 -= nm;
        k1 += nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 -= nm;
        k1 -= 2 * nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += 2;
        k1 += nh;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += nm;
        k1 += 2 * nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += nm;
        k1 -= nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += nm;
        k1 += 2 * nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 -= nh;
        k1 -= 2;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 -= nm;
        k1 -= 2 * nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 -= nm;
        k1 += nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 -= nm;
        k1 -= 2 * nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
      }
      k1 = 4 * k + 2 * ip[m + k];
      j1 = k1 + 2;
      k1 += nh;
      xr = a[j1];
      xi = a[j1 + 1];
      yr = a[k1];
      yi = a[k1 + 1];
      a[j1] = yr;
      a[j1 + 1] = yi;
      a[k1] = xr;
      a[k1 + 1] = xi;
      j1 += nm;
      k1 += 2 * nm;
      xr = a[j1];
      xi = a[j1 + 1];
      yr = a[k1];
      yi = a[k1 + 1];
      a[j1] = yr;
      a[j1 + 1] = yi;
      a[k1] = xr;
      a[k1 + 1] = xi;
      j1 += nm;
      k1 -= nm;
      xr = a[j1];
      xi = a[j1 + 1];
      yr = a[k1];
      yi = a[k1 + 1];
      a[j1] = yr;
      a[j1 + 1] = yi;
      a[k1] = xr;
      a[k1 + 1] = xi;
      j1 -= 2;
      k1 -= nh;
      xr = a[j1];
      xi = a[j1 + 1];
      yr = a[k1];
      yi = a[k1 + 1];
      a[j1] = yr;
      a[j1 + 1] = yi;
      a[k1] = xr;
      a[k1 + 1] = xi;
      j1 += nh + 2;
      k1 += nh + 2;
      xr = a[j1];
      xi = a[j1 + 1];
      yr = a[k1];
      yi = a[k1 + 1];
      a[j1] = yr;
      a[j1 + 1] = yi;
      a[k1] = xr;
      a[k1 + 1] = xi;
      j1 -= nh - nm;
      k1 += 2 * nm - 2;
      xr = a[j1];
      xi = a[j1 + 1];
      yr = a[k1];
      yi = a[k1 + 1];
      a[j1] = yr;
      a[j1 + 1] = yi;
      a[k1] = xr;
      a[k1 + 1] = xi;
    }
  } else {
    for (k = 0; k < m; k++) {
      for (j = 0; j < k; j++) {
        j1 = 4 * j + ip[m + k];
        k1 = 4 * k + ip[m + j];
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += nm;
        k1 += nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += nh;
        k1 += 2;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 -= nm;
        k1 -= nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += 2;
        k1 += nh;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 += nm;
        k1 += nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 -= nh;
        k1 -= 2;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
        j1 -= nm;
        k1 -= nm;
        xr = a[j1];
        xi = a[j1 + 1];
        yr = a[k1];
        yi = a[k1 + 1];
        a[j1] = yr;
        a[j1 + 1] = yi;
        a[k1] = xr;
        a[k1 + 1] = xi;
      }
      k1 = 4 * k + ip[m + k];
      j1 = k1 + 2;
      k1 += nh;
      xr = a[j1];
      xi = a[j1 + 1];
      yr = a[k1];
      yi = a[k1 + 1];
      a[j1] = yr;
      a[j1 + 1] = yi;
      a[k1] = xr;
      a[k1 + 1] = xi;
      j1 += nm;
      k1 += nm;
      xr = a[j1];
      xi = a[j1 + 1];
      yr = a[k1];
      yi = a[k1 + 1];
      a[j1] = yr;
      a[j1 + 1] = yi;
      a[k1] = xr;
      a[k1 + 1] = xi;
    }
  }
}
```