user: 请将这段汇编代码片段转换成等效的C代码:

```asm
<dradfg>:
  endbr64
  push   %r15
  pxor   %xmm1,%xmm1
  push   %r14
  mov    %edx,%r14d
  push   %r13
  mov    %r9,%r13
  push   %r12
  push   %rbp
  mov    %edi,%ebp
  push   %rbx
  mov    %esi,%ebx
  cvtsi2sd %ebx,%xmm1
  sub    $0x148,%rsp
  movsd  D18(%rip),%xmm0
  mov    %edi,0x28(%rsp)
  lea    0x138(%rsp),%rdi
  mov    0x180(%rsp),%r12
  divsd  %xmm1,%xmm0
  mov    %esi,0xa0(%rsp)
  lea    0x130(%rsp),%rsi
  mov    0x188(%rsp),%r15
  mov    %ecx,0xac(%rsp)
  mov    %r8,0xb0(%rsp)
  call   <sincos@plt>
  lea    0x1(%rbx),%eax
  mov    %ebp,%esi
  movsd  0x130(%rsp),%xmm1
  movsd  0x138(%rsp),%xmm2
  sar    %eax
  mov    %eax,0x98(%rsp)
  lea    -0x1(%rbp),%eax
  imul   %r14d,%ebp
  mov    %eax,0x120(%rsp)
  sar    %eax
  mov    %eax,0x114(%rsp)
  mov    %ebx,%eax
  imul   %esi,%ebx
  imul   %ebp,%eax
  mov    %ebp,0x9c(%rsp)
  mov    %ebx,0xa8(%rsp)
  mov    %eax,0x110(%rsp)
  cmp    $0x1,%esi
  je     L509
  mov    0xac(%rsp),%ecx
  test   %ecx,%ecx
  jle    L49
  mov    0xac(%rsp),%ebx
  lea    -0x1(%rbx),%eax
  cmp    $0x2,%eax
  jbe    L747
  lea    0x8(%r12),%rax
  cmp    %rax,0x190(%rsp)
  je     L747
  shr    %ebx
  mov    0x190(%rsp),%rcx
  xor    %eax,%eax
  mov    %ebx,%edx
  shl    $0x4,%rdx
L1025:
  movupd (%r12,%rax,1),%xmm5
  movups %xmm5,(%rcx,%rax,1)
  add    $0x10,%rax
  cmp    %rdx,%rax
  jne    L1025
  mov    0xac(%rsp),%ebx
  mov    %ebx,%eax
  and    $0xfffffffe,%eax
  and    $0x1,%ebx
  je     L49
  movsd  (%r12,%rax,8),%xmm0
  mov    0x190(%rsp),%rbx
  movsd  %xmm0,(%rbx,%rax,8)
L49:
  mov    0x28(%rsp),%r9d
  neg    %r9d
  cmpl   $0x1,0xa0(%rsp)
  jle    L1478
  test   %r14d,%r14d
  jle    L1478
  movslq 0x9c(%rsp),%rax
  mov    0xa0(%rsp),%r10d
  mov    $0x1,%esi
  lea    0x0(,%rax,8),%r8
  mov    %rax,0x88(%rsp)
  movslq 0x28(%rsp),%rax
  mov    %r8,%rdi
  mov    %rax,0x10(%rsp)
  lea    0x0(,%rax,8),%rcx
L230:
  mov    %rdi,%rax
  xor    %edx,%edx
  nopw   0x0(%rax,%rax,1)
L1144:
  movsd  0x0(%r13,%rax,1),%xmm0
  add    $0x1,%edx
  movsd  %xmm0,(%r15,%rax,1)
  add    %rcx,%rax
  cmp    %edx,%r14d
  jne    L1144
  add    $0x1,%esi
  add    %r8,%rdi
  cmp    %esi,%r10d
  jne    L230
  cmp    %r14d,0x114(%rsp)
  jle    L1459
  mov    0x28(%rsp),%ebx
  cmp    $0x2,%ebx
  jle    L1351
  mov    0x9c(%rsp),%eax
  mov    0x10(%rsp),%rsi
  movl   $0xffffffff,0x58(%rsp)
  mov    0x198(%rsp),%rcx
  movl   $0x1,0x48(%rsp)
  sub    %ebx,%eax
  lea    0x0(,%rsi,8),%rdi
  mov    %r14d,0x18(%rsp)
  mov    %eax,0x60(%rsp)
  movslq %r9d,%rax
  mov    %rdi,%r14
  lea    0x4(%rax,%rsi,1),%rdx
  add    %rsi,%rax
  mov    0x88(%rsp),%rsi
  mov    %r12,0x180(%rsp)
  lea    (%rcx,%rax,8),%r9
  lea    (%rcx,%rdx,8),%rdx
  lea    0x0(,%rsi,8),%rax
  mov    %rdx,0x8(%rsp)
  mov    %rax,0x90(%rsp)
  lea    0x8(,%rsi,8),%rax
  mov    %rax,0x70(%rsp)
  lea    -0x3(%rbx),%eax
  mov    %eax,0x20(%rsp)
  shr    %eax
  lea    0x1(%rax),%ebx
  mov    %eax,%edx
  mov    %rsi,0x68(%rsp)
  mov    %ebx,%eax
  mov    %ebx,0x38(%rsp)
  and    $0xfffffffe,%ebx
  shr    %eax
  mov    %ebx,0x40(%rsp)
  sub    $0x1,%eax
  add    $0x1,%rax
  shl    $0x5,%rax
  mov    %rax,%rbp
  lea    (%rbx,%rbx,1),%eax
  mov    %eax,0x30(%rsp)
  mov    %edx,%eax
  add    %rax,%rax
  mov    %rax,0x78(%rsp)
  lea    0x10(%r13),%rax
  mov    %rax,0x80(%rsp)
L694:
  mov    0x70(%rsp),%rax
  mov    0x30(%rsp),%ebx
  mov    0x60(%rsp),%r12d
  lea    (%r15,%rax,1),%rcx
  lea    (%rax,%r13,1),%r8
  movslq 0x58(%rsp),%rax
  lea    0x2(%rbx,%rax,1),%r10d
  mov    0x198(%rsp),%rbx
  movslq %r10d,%r10
  lea    0x8(%rbx,%rax,8),%rax
  shl    $0x3,%r10
  mov    %rax,0x50(%rsp)
  mov    0x68(%rsp),%rax
  lea    -0x8(%rbx,%r10,1),%r11
  add    %rbx,%r10
  xor    %ebx,%ebx
  mov    %rax,(%rsp)
  cs nopw 0x0(%rax,%rax,1)
L1128:
  lea    0x20(%r8),%rax
  lea    0x20(%rcx),%rsi
  add    0x28(%rsp),%r12d
  cmp    %rax,%rcx
  setae  %dl
  cmp    %rsi,%r8
  setae  %al
  or     %eax,%edx
  cmp    0x8(%rsp),%rcx
  setae  %al
  cmp    %rsi,%r9
  setae  %sil
  or     %esi,%eax
  test   %al,%dl
  je     L574
  xor    %eax,%eax
  cmpl   $0x1,0x20(%rsp)
  jbe    L574
  nopl   0x0(%rax)
L467:
  movupd (%r9,%rax,1),%xmm0
  movupd 0x10(%r9,%rax,1),%xmm3
  movupd (%r8,%rax,1),%xmm6
  movlpd 0x8(%r9,%rax,1),%xmm3
  movhpd 0x10(%r9,%rax,1),%xmm0
  movupd 0x10(%r8,%rax,1),%xmm5
  movlpd 0x8(%r8,%rax,1),%xmm5
  movhpd 0x10(%r8,%rax,1),%xmm6
  movapd %xmm0,%xmm4
  movapd %xmm3,%xmm7
  mulpd  %xmm6,%xmm4
  mulpd  %xmm5,%xmm7
  mulpd  %xmm6,%xmm3
  mulpd  %xmm5,%xmm0
  addpd  %xmm7,%xmm4
  subpd  %xmm3,%xmm0
  movapd %xmm4,%xmm3
  unpcklpd %xmm0,%xmm3
  unpckhpd %xmm0,%xmm4
  movups %xmm3,(%rcx,%rax,1)
  movups %xmm4,0x10(%rcx,%rax,1)
  add    $0x20,%rax
  cmp    %rbp,%rax
  jne    L467
  mov    0x30(%rsp),%eax
  mov    0x40(%rsp),%esi
  add    %r12d,%eax
  cmp    %esi,0x38(%rsp)
  je     L1164
  add    $0x2,%eax
  movsd  (%r11),%xmm0
  movsd  (%r10),%xmm3
  cltq
  lea    0x0(,%rax,8),%rdx
  lea    -0x8(%r13,%rdx,1),%rsi
  lea    0x0(%r13,%rdx,1),%rdi
  mulsd  (%rdi),%xmm3
  mulsd  (%rsi),%xmm0
  addsd  %xmm3,%xmm0
  movsd  %xmm0,-0x8(%r15,%rdx,1)
  movsd  (%r11),%xmm0
  mulsd  (%rdi),%xmm0
  movsd  (%r10),%xmm3
  mulsd  (%rsi),%xmm3
  subsd  %xmm3,%xmm0
  movsd  %xmm0,(%r15,%rax,8)
L1164:
  mov    0x10(%rsp),%rsi
  add    $0x1,%ebx
  add    %rsi,(%rsp)
  add    %r14,%rcx
  add    %r14,%r8
  cmp    %ebx,0x18(%rsp)
  jne    L1128
  mov    0x28(%rsp),%esi
  addl   $0x1,0x48(%rsp)
  add    %r14,%r9
  add    %esi,0x58(%rsp)
  mov    0x48(%rsp),%eax
  mov    0x9c(%rsp),%esi
  add    %r14,0x8(%rsp)
  add    %esi,0x60(%rsp)
  mov    0x88(%rsp),%rsi
  add    %rsi,0x68(%rsp)
  mov    0x90(%rsp),%rsi
  add    %rsi,0x70(%rsp)
  cmp    %eax,0xa0(%rsp)
  jne    L694
  mov    0x18(%rsp),%r14d
  mov    0x180(%rsp),%r12
L1351:
  cmpl   $0x1,0x98(%rsp)
  jle    L315
  test   %r14d,%r14d
  jle    L226
  mov    0x28(%rsp),%ebx
  cmp    $0x2,%ebx
  jle    L226
  movslq 0x9c(%rsp),%rsi
  movl   $0x0,0x48(%rsp)
  movl   $0x1,0x108(%rsp)
  mov    %esi,%eax
  mov    %rsi,0xf8(%rsp)
  neg    %eax
  mov    %rsi,0xc0(%rsp)
  cltq
  mov    %r12,0x180(%rsp)
  mov    %rax,0xf0(%rsp)
  sub    %rsi,%rax
  mov    %rax,0x100(%rsp)
  movslq 0x110(%rsp),%rax
  mov    %r14d,0x58(%rsp)
  mov    %rax,%rdi
  sub    %rsi,%rax
  mov    %rax,0xb8(%rsp)
  sub    %rsi,%rax
  mov    %rax,%r10
  movslq %ebx,%rax
  mov    %edi,0x50(%rsp)
  mov    %rax,0x60(%rsp)
  shl    $0x3,%rax
  mov    %rax,0x68(%rsp)
  lea    -0x3(%rbx),%eax
  mov    %eax,0x20(%rsp)
  shr    %eax
  lea    0x1(%rax),%ebx
  mov    %eax,%edx
  mov    %r10,0xc8(%rsp)
  mov    %ebx,%eax
  mov    %ebx,0x80(%rsp)
  shr    %eax
  sub    $0x1,%eax
  add    $0x1,%rax
  shl    $0x5,%rax
  mov    %rax,%r11
  mov    %ebx,%eax
  and    $0xfffffffe,%ebx
  or     $0x1,%eax
  mov    %ebx,0x88(%rsp)
  mov    %r11,%r14
  lea    -0x2(%rax,%rax,1),%eax
  mov    %eax,0x90(%rsp)
  mov    %edx,%eax
  add    %rax,%rax
  mov    %rax,0xd0(%rsp)
  lea    0x20(%r13),%rax
  mov    %rax,0x70(%rsp)
  lea    0x20(%r15),%rax
  mov    %rax,0x78(%rsp)
  lea    -0x8(%r15),%rax
  mov    %rax,0xd8(%rsp)
  lea    -0x8(%r13),%rax
  mov    %rax,0xe0(%rsp)
  lea    0x10(%r13),%rax
  mov    %rax,0xe8(%rsp)
L1051:
  mov    0xb8(%rsp),%rax
  movl   $0x0,(%rsp)
  xor    %r11d,%r11d
  mov    0x9c(%rsp),%ebx
  add    %ebx,0x48(%rsp)
  lea    0x8(,%rax,8),%rbp
  mov    0xc0(%rsp),%rax
  sub    %ebx,0x50(%rsp)
  mov    0xc8(%rsp),%rbx
  mov    %rax,0x40(%rsp)
  lea    0x8(,%rax,8),%r12
  nopl   0x0(%rax)
L1391:
  mov    0x50(%rsp),%eax
  mov    0x70(%rsp),%rdi
  lea    0x20(%rbp),%r8
  lea    (%r12,%r13,1),%rdx
  mov    0x78(%rsp),%rcx
  lea    0x0(%rbp,%r15,1),%rsi
  add    %r11d,%eax
  lea    (%rdi,%r12,1),%r10
  add    %rbp,%rdi
  mov    %eax,0x38(%rsp)
  mov    0x48(%rsp),%eax
  lea    (%rcx,%r12,1),%r9
  add    %rbp,%rcx
  mov    %rdi,0x10(%rsp)
  lea    0x20(%r12),%rdi
  add    %r11d,%eax
  cmp    %rbp,%rdi
  mov    %rcx,0x8(%rsp)
  lea    0x0(%rbp,%r13,1),%rcx
  setle  %dil
  cmp    %r12,%r8
  mov    %eax,0x30(%rsp)
  lea    (%r12,%r15,1),%rax
  setle  %r8b
  or     %edi,%r8d
  cmpl   $0x1,0x20(%rsp)
  seta   %dil
  and    %edi,%r8d
  cmp    %rax,%r10
  setbe  %dil
  cmp    %rdx,%r9
  setbe  0x18(%rsp)
  or     0x18(%rsp),%dil
  and    %r8d,%edi
  cmp    %rsi,%r10
  setbe  %r8b
  cmp    %rdx,0x8(%rsp)
  setbe  %r10b
  or     %r10d,%r8d
  mov    0x10(%rsp),%r10
  and    %edi,%r8d
  cmp    %rcx,%r9
  setbe  %dil
  cmp    %rax,%r10
  setbe  %r9b
  or     %r9d,%edi
  test   %dil,%r8b
  je     L740
  cmp    %rsi,%r10
  setbe  %r8b
  cmp    %rcx,0x8(%rsp)
  setbe  %r9b
  xor    %edi,%edi
  or     %r8b,%r9b
  je     L740
  nopw   0x0(%rax,%rax,1)
L726:
  movupd (%rax,%rdi,1),%xmm7
  movupd (%rsi,%rdi,1),%xmm3
  movupd 0x10(%rax,%rdi,1),%xmm0
  movlpd 0x8(%rax,%rdi,1),%xmm0
  movhpd 0x10(%rax,%rdi,1),%xmm7
  movhpd 0x10(%rsi,%rdi,1),%xmm3
  movupd 0x10(%rsi,%rdi,1),%xmm4
  movlpd 0x8(%rsi,%rdi,1),%xmm4
  movapd %xmm7,%xmm6
  movapd %xmm0,%xmm5
  addpd  %xmm3,%xmm6
  addpd  %xmm4,%xmm0
  subpd  %xmm4,%xmm5
  subpd  %xmm7,%xmm3
  movapd %xmm6,%xmm4
  unpckhpd %xmm0,%xmm6
  unpcklpd %xmm0,%xmm4
  movapd %xmm3,%xmm0
  movapd %xmm5,%xmm3
  movups %xmm6,0x10(%rdx,%rdi,1)
  unpcklpd %xmm0,%xmm3
  unpckhpd %xmm0,%xmm5
  movups %xmm4,(%rdx,%rdi,1)
  movups %xmm3,(%rcx,%rdi,1)
  movups %xmm5,0x10(%rcx,%rdi,1)
  add    $0x20,%rdi
  cmp    %r14,%rdi
  jne    L726
  mov    0x90(%rsp),%eax
  mov    0x30(%rsp),%ecx
  mov    0x38(%rsp),%edx
  mov    0x88(%rsp),%esi
  add    %eax,%ecx
  add    %eax,%edx
  cmp    %esi,0x80(%rsp)
  je     L1313
  add    $0x2,%ecx
  add    $0x2,%edx
  movslq %ecx,%rcx
  movslq %edx,%rdx
  lea    0x0(,%rcx,8),%rax
  lea    0x0(,%rdx,8),%rsi
  lea    -0x8(%r15,%rax,1),%rdi
  lea    -0x8(%r15,%rsi,1),%r8
  movsd  (%rdi),%xmm0
  addsd  (%r8),%xmm0
  lea    (%r15,%rsi,1),%r9
  movsd  %xmm0,-0x8(%r13,%rax,1)
  add    %r15,%rax
  movsd  (%rax),%xmm0
  subsd  (%r9),%xmm0
  movsd  %xmm0,-0x8(%r13,%rsi,1)
  movsd  (%rax),%xmm0
  addsd  (%r9),%xmm0
  movsd  %xmm0,0x0(%r13,%rcx,8)
  movsd  (%r8),%xmm0
  subsd  (%rdi),%xmm0
  movsd  %xmm0,0x0(%r13,%rdx,8)
L1313:
  mov    0x68(%rsp),%rdi
  addl   $0x1,(%rsp)
  mov    0x60(%rsp),%rsi
  mov    (%rsp),%eax
  add    %rsi,0x40(%rsp)
  add    0x28(%rsp),%r11d
  add    %rdi,%rbp
  add    %rdi,%r12
  cmp    %eax,0x58(%rsp)
  jne    L1391
  mov    0x100(%rsp),%rsi
  addl   $0x1,0x108(%rsp)
  add    %rsi,0xc8(%rsp)
  mov    0x108(%rsp),%eax
  mov    0xf0(%rsp),%rsi
  add    %rsi,0xb8(%rsp)
  mov    0xf8(%rsp),%rsi
  add    %rsi,0xc0(%rsp)
  cmp    %eax,0x98(%rsp)
  jne    L1051
  mov    0x58(%rsp),%r14d
  mov    0x180(%rsp),%r12
  jmp    L226
L1459:
  cmpl   $0x2,0x28(%rsp)
  jle    L1238
  mov    0x10(%rsp),%rbx
  movslq %r9d,%rax
  mov    0x198(%rsp),%rsi
  movl   $0x0,0x50(%rsp)
  movl   $0x1,0x58(%rsp)
  mov    %r14d,%ebp
  lea    0x1(%rax,%rbx,1),%rcx
  add    %rbx,%rax
  lea    0x0(,%rbx,8),%rdx
  mov    %r12,0x180(%rsp)
  lea    (%rsi,%rcx,8),%rsi
  shl    $0x3,%rax
  mov    %rsi,0x60(%rsp)
  mov    0x88(%rsp),%rsi
  mov    %rsi,%rcx
  sub    %rbx,%rcx
  lea    0x0(,%rcx,8),%rdi
  mov    %rdi,0x70(%rsp)
  lea    0x0(,%rsi,8),%rdi
  mov    %rdi,0x78(%rsp)
  sub    0x198(%rsp),%rdi
  mov    %rdi,%rcx
  mov    0x28(%rsp),%edi
  sub    %rax,%rcx
  lea    0x8(,%rsi,8),%rax
  mov    %rax,0x68(%rsp)
  lea    -0x1(%r14),%eax
  cmp    $0xa,%eax
  movslq %r14d,%rax
  mov    %rcx,(%rsp)
  seta   0x38(%rsp)
  sub    $0x1,%rax
  xor    %esi,%esi
  imul   %rbx,%rax
  mov    %rsi,%rcx
  shl    $0x3,%rax
  test   %edi,%edi
  cmovs  %rax,%rcx
  add    $0x8,%rax
  test   %edi,%edi
  cmovs  %rdx,%rsi
  mov    %rcx,0x10(%rsp)
  mov    $0x8,%ecx
  cmovs  %rcx,%rax
  mov    %rsi,0x30(%rsp)
  mov    %rax,0x18(%rsp)
  lea    0x8(%rdx),%rax
  cmovns %rax,%rcx
  mov    %r14d,%eax
  shl    $0x4,%rbx
  and    $0xfffffffe,%eax
  shr    %ebp
  mov    %eax,0x40(%rsp)
  imul   %edi,%eax
  mov    %rcx,0x20(%rsp)
  mov    %rbx,%rcx
  mov    %eax,0x48(%rsp)
  lea    -0x3(%rdi),%eax
  and    $0xfffffffe,%eax
  add    $0x2,%eax
  mov    %eax,0x80(%rsp)
L971:
  mov    0x68(%rsp),%rsi
  mov    0x9c(%rsp),%ebx
  add    %ebx,0x50(%rsp)
  mov    0x50(%rsp),%r9d
  lea    0x0(%r13,%rsi,1),%rbx
  lea    (%r15,%rsi,1),%r11
  mov    0x80(%rsp),%esi
  mov    0x60(%rsp),%rax
  add    %r9d,%esi
  mov    %esi,0x8(%rsp)
  nopl   0x0(%rax)
L216:
  mov    (%rsp),%rsi
  mov    0x20(%rsp),%rdi
  lea    -0x8(%rax),%r12
  add    $0x2,%r9d
  mov    0x18(%rsp),%r10
  add    %rax,%rsi
  lea    (%rdi,%rsi,1),%r8
  add    %rsi,%r10
  mov    0x30(%rsp),%rdi
  add    %r15,%r10
  add    %rsi,%rdi
  cmp    %r12,%r10
  lea    0x0(%r13,%r8,1),%r12
  setb   %r10b
  add    0x10(%rsp),%rsi
  add    %r15,%rsi
  cmp    %rsi,%rax
  setb   %sil
  or     %r10d,%esi
  lea    (%r15,%rdi,1),%r10
  cmp    %r10,%r12
  setb   %r10b
  add    %r13,%rdi
  add    %r15,%r8
  cmp    %rdi,%r8
  setb   %dil
  or     %edi,%r10d
  test   %r10b,%sil
  je     L924
  cmpb   $0x0,0x38(%rsp)
  je     L924
  movsd  -0x8(%rax),%xmm6
  movsd  (%rax),%xmm5
  mov    %r11,%rdi
  mov    %rbx,%rsi
  xor    %r8d,%r8d
  unpcklpd %xmm6,%xmm6
  unpcklpd %xmm5,%xmm5
  nopw   0x0(%rax,%rax,1)
L919:
  movsd  (%rsi),%xmm3
  movapd %xmm6,%xmm4
  movapd %xmm5,%xmm7
  add    $0x1,%r8d
  movsd  0x8(%rsi),%xmm0
  movhpd (%rsi,%rdx,1),%xmm3
  mulpd  %xmm3,%xmm4
  movhpd 0x8(%rsi,%rdx,1),%xmm0
  add    %rcx,%rsi
  mulpd  %xmm0,%xmm7
  mulpd  %xmm5,%xmm3
  mulpd  %xmm6,%xmm0
  addpd  %xmm7,%xmm4
  subpd  %xmm3,%xmm0
  movlpd %xmm4,(%rdi)
  movhpd %xmm4,(%rdi,%rdx,1)
  movlpd %xmm0,0x8(%rdi)
  movhpd %xmm0,0x8(%rdi,%rdx,1)
  add    %rcx,%rdi
  cmp    %r8d,%ebp
  jne    L919
  mov    0x48(%rsp),%edi
  lea    (%r9,%rdi,1),%esi
  cmp    0x40(%rsp),%r14d
  je     L1006
  movslq %esi,%rsi
  movsd  -0x8(%rax),%xmm0
  movsd  (%rax),%xmm3
  lea    0x0(,%rsi,8),%rdi
  lea    -0x8(%r13,%rdi,1),%r8
  lea    0x0(%r13,%rdi,1),%r10
  mulsd  (%r10),%xmm3
  mulsd  (%r8),%xmm0
  addsd  %xmm3,%xmm0
  movsd  %xmm0,-0x8(%r15,%rdi,1)
  movsd  -0x8(%rax),%xmm0
  movsd  (%rax),%xmm3
  mulsd  (%r10),%xmm0
  mulsd  (%r8),%xmm3
  subsd  %xmm3,%xmm0
  movsd  %xmm0,(%r15,%rsi,8)
L1006:
  add    $0x10,%rax
  add    $0x10,%rbx
  add    $0x10,%r11
  cmp    0x8(%rsp),%r9d
  jne    L216
  mov    0x70(%rsp),%rsi
  addl   $0x1,0x58(%rsp)
  add    %rsi,(%rsp)
  mov    0x58(%rsp),%eax
  mov    0x78(%rsp),%rsi
  add    %rdx,0x60(%rsp)
  add    %rsi,0x68(%rsp)
  cmp    %eax,0xa0(%rsp)
  jne    L971
  mov    0x180(%rsp),%r12
L1238:
  cmp    %r14d,0x114(%rsp)
  jge    L1351
  cmpl   $0x1,0x98(%rsp)
  jle    L315
  mov    0x28(%rsp),%ecx
  cmp    $0x2,%ecx
  jle    L226
  test   %r14d,%r14d
  jle    L226
  mov    0x9c(%rsp),%eax
  movslq %ecx,%rdi
  movslq 0x110(%rsp),%rdx
  movl   $0x1,(%rsp)
  mov    %r13,0x50(%rsp)
  mov    %eax,%ebx
  mov    %rdx,%r8
  mov    %r12,0x180(%rsp)
  sub    %ecx,%ebx
  mov    %r15,0x188(%rsp)
  mov    %ebx,%esi
  movslq %eax,%rbx
  neg    %eax
  movslq %eax,%r11
  sub    %rbx,%r8
  mov    %rbx,0x18(%rsp)
  mov    %esi,%r12d
  mov    %r11,%rax
  sub    %rbx,%r8
  mov    %r11,0x10(%rsp)
  sub    %rbx,%rax
  mov    %rax,0x20(%rsp)
  mov    %rdx,%rax
  sub    %rdi,%rax
  add    $0x2,%rax
  sub    %rbx,%rax
  mov    %rax,0x8(%rsp)
  mov    %rbx,%rax
  sub    %rdi,%rax
  shl    $0x3,%rdi
  lea    0x2(%rax),%r10
  mov    %rbx,%rax
  sub    %r11,%rax
  shl    $0x3,%rax
  mov    %rax,0x30(%rsp)
  lea    (%rbx,%rbx,1),%rax
  sub    %rdx,%rax
  lea    0x0(,%rax,8),%rbx
  lea    (%r15,%rdi,1),%rax
  mov    %rax,0x38(%rsp)
  lea    0x0(%r13,%rdi,1),%rax
  mov    %rbx,%r15
  mov    %r10,%r13
  mov    %rax,0x40(%rsp)
  lea    -0x3(%rcx),%eax
  and    $0xfffffffe,%eax
  add    $0x4,%eax
  mov    %eax,0x48(%rsp)
L946:
  mov    0x38(%rsp),%rax
  mov    0x8(%rsp),%rbx
  lea    0x2(%r12),%r11d
  lea    (%rax,%rbx,8),%r9
  mov    0x40(%rsp),%rax
  lea    -0x8(%r15),%rbx
  lea    (%rax,%r13,8),%r10
  mov    0x48(%rsp),%eax
  lea    (%rax,%r12,1),%ebp
  xchg   %ax,%ax
L1138:
  lea    (%rbx,%r9,1),%rcx
  mov    %r10,%rdx
  mov    %r9,%rax
  xor    %esi,%esi
  nopl   0x0(%rax)
L113:
  movsd  (%rcx),%xmm0
  addsd  -0x8(%rax),%xmm0
  add    $0x1,%esi
  movsd  %xmm0,-0x8(%rdx)
  movsd  0x8(%rcx),%xmm0
  subsd  (%rax),%xmm0
  movsd  %xmm0,-0x8(%rdx,%r8,8)
  movsd  0x8(%rcx),%xmm0
  addsd  (%rax),%xmm0
  movsd  %xmm0,(%rdx)
  movsd  -0x8(%rax),%xmm0
  subsd  (%rcx),%xmm0
  add    %rdi,%rax
  add    %rdi,%rcx
  movsd  %xmm0,(%rdx,%r8,8)
  add    %rdi,%rdx
  cmp    %esi,%r14d
  jne    L113
  add    $0x2,%r11d
  add    $0x10,%r9
  add    $0x10,%r10
  cmp    %ebp,%r11d
  jne    L1138
  addl   $0x1,(%rsp)
  mov    0x10(%rsp),%rsi
  mov    (%rsp),%eax
  add    %rsi,0x8(%rsp)
  add    0x9c(%rsp),%r12d
  add    0x20(%rsp),%r8
  add    0x18(%rsp),%r13
  add    0x30(%rsp),%r15
  cmp    %eax,0x98(%rsp)
  jne    L946
  mov    0x50(%rsp),%r13
  mov    0x180(%rsp),%r12
  mov    0x188(%rsp),%r15
L226:
  mov    0xac(%rsp),%edx
  test   %edx,%edx
  jle    L1064
L136:
  mov    0x190(%rsp),%rax
  add    $0x8,%rax
  cmp    %rax,%r12
  je     L733
  mov    0xac(%rsp),%ebx
  cmp    $0x3,%ebx
  jle    L733
  test   %ebx,%ebx
  mov    $0x1,%eax
  mov    0x190(%rsp),%rsi
  cmovg  %ebx,%eax
  mov    %eax,%edx
  mov    %eax,%ecx
  xor    %eax,%eax
  shr    %edx
  shl    $0x4,%rdx
L925:
  movupd (%rsi,%rax,1),%xmm5
  movups %xmm5,(%r12,%rax,1)
  add    $0x10,%rax
  cmp    %rdx,%rax
  jne    L925
  mov    %ecx,%eax
  and    $0xfffffffe,%eax
  and    $0x1,%ecx
  je     L593
  mov    0x190(%rsp),%rbx
  movsd  (%rbx,%rax,8),%xmm0
  movsd  %xmm0,(%r12,%rax,8)
L593:
  mov    0xa0(%rsp),%eax
  imul   0xac(%rsp),%eax
  cmpl   $0x1,0x98(%rsp)
  mov    %eax,0x78(%rsp)
  jle    L207
  test   %r14d,%r14d
  jle    L324
  cmpl   $0x1,0x28(%rsp)
  jne    L767
  mov    0x9c(%rsp),%edi
  movslq %eax,%rsi
  mov    %r14d,0x30(%rsp)
  mov    $0x1,%ebp
  mov    %rsi,%rdx
  mov    %rsi,0x18(%rsp)
  movslq %edi,%rax
  lea    -0x1(%rdi),%r8d
  mov    %r12,0x180(%rsp)
  lea    0x0(,%rax,8),%rbx
  sub    %rax,%rsi
  mov    %edx,%eax
  mov    %r8d,%r14d
  sub    %edi,%eax
  lea    0x0(%r13,%rbx,1),%r9
  lea    (%r15,%rbx,1),%rcx
  mov    %rsi,%r10
  sub    $0x1,%eax
  shl    $0x3,%r10
  mov    %eax,(%rsp)
  mov    %edi,%eax
  lea    (%r15,%r10,1),%rsi
  add    %r13,%r10
  shr    %eax
  lea    -0x1(%rax),%r11d
  mov    %edi,%eax
  mov    %edi,%edi
  and    $0xfffffffe,%eax
  mov    %rdi,0x20(%rsp)
  add    $0x1,%r11
  mov    %edi,%r12d
  mov    %eax,0x10(%rsp)
  mov    $0x8,%eax
  shl    $0x4,%r11
  sub    %r15,%rax
  mov    %rax,0x8(%rsp)
L879:
  mov    0x8(%rsp),%rax
  lea    0x10(%r9),%rdi
  lea    (%rax,%rcx,1),%rdx
  mov    %rsi,%rax
  sub    %r15,%rax
  cmp    %rax,%rdx
  lea    0x8(%rcx),%rax
  setne  %dl
  cmp    %rax,%r10
  setne  %al
  and    %edx,%eax
  cmp    $0x1,%r12d
  setne  %dl
  and    %edx,%eax
  lea    0x8(%rsi),%rdx
  cmp    %rdx,%r10
  setne  %dl
  and    %edx,%eax
  lea    0x10(%rcx),%rdx
  cmp    %rdx,%r9
  setae  %dl
  cmp    %rcx,%rdi
  setbe  %r8b
  or     %r8d,%edx
  test   %dl,%al
  je     L377
  lea    0x10(%rsi),%rax
  cmp    %rax,%r9
  setae  %al
  cmp    %rsi,%rdi
  setbe  %dl
  or     %al,%dl
  je     L377
  xor    %eax,%eax
  nopw   0x0(%rax,%rax,1)
L1060:
  movupd (%rcx,%rax,1),%xmm0
  movupd (%rsi,%rax,1),%xmm6
  addpd  %xmm6,%xmm0
  movups %xmm0,(%r9,%rax,1)
  movupd (%rsi,%rax,1),%xmm0
  movupd (%rcx,%rax,1),%xmm5
  subpd  %xmm5,%xmm0
  movups %xmm0,(%r10,%rax,1)
  add    $0x10,%rax
  cmp    %r11,%rax
  jne    L1060
  mov    0x10(%rsp),%edi
  mov    (%rsp),%eax
  lea    (%r14,%rdi,1),%edx
  add    %edi,%eax
  cmp    %edi,%r12d
  je     L548
  add    $0x1,%edx
  add    $0x1,%eax
  movslq %edx,%rdx
  cltq
  lea    (%r15,%rdx,8),%rdi
  lea    (%r15,%rax,8),%r8
  movsd  (%rdi),%xmm0
  addsd  (%r8),%xmm0
  movsd  %xmm0,0x0(%r13,%rdx,8)
  movsd  (%r8),%xmm0
  subsd  (%rdi),%xmm0
  movsd  %xmm0,0x0(%r13,%rax,8)
L548:
  sub    %r12d,(%rsp)
  add    $0x1,%ebp
  add    %rbx,%r9
  add    %rbx,%rcx
  sub    %rbx,%rsi
  sub    %rbx,%r10
  add    %r12d,%r14d
  cmp    %ebp,0x98(%rsp)
  jg     L879
  mov    0x30(%rsp),%r14d
  mov    0x180(%rsp),%r12
L1140:
  mov    0xa0(%rsp),%eax
  mov    0x18(%rsp),%r10
  movl   $0x0,0x90(%rsp)
  pxor   %xmm5,%xmm5
  movslq 0xac(%rsp),%rsi
  movsd  D9(%rip),%xmm6
  sub    $0x1,%eax
  imul   %esi,%eax
  mov    %rsi,%rdx
  lea    0x0(,%rsi,8),%r11
  mov    %esi,%r13d
  mov    %r11,%rcx
  mov    %r11,0x30(%rsp)
  add    0x190(%rsp),%r11
  and    $0xfffffffe,%r13d
  lea    0x10(%rcx),%r9
  movslq %eax,%r8
  mov    %esi,%eax
  mov    %r9,0x20(%rsp)
  add    0x190(%rsp),%r9
  neg    %eax
  mov    %r8d,0x10c(%rsp)
  movslq %eax,%rdi
  mov    %r9,0x38(%rsp)
  sub    %rdi,%rdx
  lea    0x0(,%rdi,8),%rax
  sub    %rsi,%rdi
  mov    %rdx,0xd0(%rsp)
  lea    (%rsi,%rsi,1),%rdx
  sub    %r10,%rdx
  mov    %rax,0x50(%rsp)
  mov    %r10,%rax
  mov    %rdx,%rbp
  mov    %r11,%rdx
  mov    %rcx,%r11
  mov    %r10,%rcx
  sub    %rsi,%rcx
  sub    %rsi,%rax
  mov    %r11,0x40(%rsp)
  lea    0x10(,%rcx,8),%rcx
  shl    $0x3,%rax
  mov    %rcx,0x48(%rsp)
  lea    0x8(%r12,%r11,1),%rcx
  mov    %rcx,0xc8(%rsp)
  lea    0x0(,%r8,8),%rcx
  lea    (%r12,%rcx,1),%r10
  mov    %rax,0x18(%rsp)
  add    0x190(%rsp),%rax
  mov    %r10,0xc0(%rsp)
  lea    0x10(%r12,%rcx,1),%r10
  lea    0x8(%r12,%rcx,1),%rcx
  mov    %rcx,0xb8(%rsp)
  lea    (%r12,%r11,1),%rcx
  mov    %rcx,0xd8(%rsp)
  mov    %esi,%ecx
  shr    %ecx
  mov    %r10,0xf8(%rsp)
  lea    -0x1(%rcx),%r10d
  movslq %r13d,%rcx
  shl    $0x3,%rcx
  add    $0x1,%r10
  mov    %rcx,0x128(%rsp)
  add    %r12,%rcx
  shl    $0x4,%r10
  mov    %rcx,0x70(%rsp)
  lea    (%rsi,%r13,1),%ecx
  movslq %ecx,%rcx
  lea    (%r12,%rcx,8),%rcx
  mov    %rcx,0x68(%rsp)
  lea    (%r8,%r13,1),%ecx
  movslq %ecx,%rcx
  lea    (%r12,%rcx,8),%rcx
  mov    %rcx,0x60(%rsp)
  mov    %rsi,%rcx
  shl    $0x4,%rcx
  lea    0x8(%r12,%rcx,1),%rcx
  mov    %rcx,0xf0(%rsp)
  mov    %r8,%rcx
  sub    %rsi,%rcx
  lea    (%r12,%rcx,8),%rcx
  mov    %rcx,0x100(%rsp)
  lea    (%rsi,%rsi,1),%ecx
  movslq %ecx,%rcx
  add    %rsi,%rcx
  sub    %rcx,%r8
  lea    -0x1(%rsi),%ecx
  mov    %ecx,0x108(%rsp)
  mov    %rcx,0x118(%rsp)
  shl    $0x3,%rcx
  mov    %rcx,0xa0(%rsp)
  lea    0x8(%r12),%rcx
  mov    %r8,0xe8(%rsp)
  movl   $0x1,0x88(%rsp)
  mov    %rcx,0xe0(%rsp)
  mov    %rdi,0x58(%rsp)
  mov    %r14d,0x124(%rsp)
  mov    %esi,%r14d
  mov    %r15,0x188(%rsp)
  mov    %r13d,%r15d
  nopw   0x0(%rax,%rax,1)
L302:
  movapd %xmm6,%xmm0
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm6
  add    %r14d,0x90(%rsp)
  mulsd  %xmm0,%xmm6
  sub    %r14d,0x78(%rsp)
  mulsd  %xmm5,%xmm3
  mulsd  %xmm2,%xmm0
  mulsd  %xmm1,%xmm5
  subsd  %xmm3,%xmm6
  addsd  %xmm0,%xmm5
  test   %r14d,%r14d
  jle    L835
  mov    0x20(%rsp),%rbx
  mov    0xe0(%rsp),%rdi
  lea    -0x8(%rbx),%rcx
  mov    0xc8(%rsp),%rbx
  cmp    0x18(%rsp),%rcx
  setne  %sil
  cmp    %rdx,%rbx
  setne  %cl
  and    %esi,%ecx
  cmpl   $0x1,0x108(%rsp)
  seta   %sil
  and    %ecx,%esi
  cmp    %rdx,%rdi
  setne  %cl
  and    %esi,%ecx
  cmp    %rbx,%rax
  setne  %sil
  and    %ecx,%esi
  cmp    %rax,0xb8(%rsp)
  setne  %cl
  and    %esi,%ecx
  cmp    %rdi,%rax
  setne  %sil
  test   %sil,%cl
  je     L234
  mov    0xc0(%rsp),%rbx
  mov    0x38(%rsp),%rdi
  cmp    %rdx,0xf8(%rsp)
  setbe  %sil
  cmp    %rdi,%rbx
  setae  %cl
  or     %sil,%cl
  je     L234
  movapd %xmm6,%xmm4
  movapd %xmm5,%xmm3
  xor    %ecx,%ecx
  mov    %rbx,%rsi
  mov    0xd8(%rsp),%rdi
  unpcklpd %xmm4,%xmm4
  unpcklpd %xmm3,%xmm3
  nopl   (%rax)
L215:
  movupd (%rdi,%rcx,1),%xmm0
  movupd (%r12,%rcx,1),%xmm7
  mulpd  %xmm4,%xmm0
  addpd  %xmm7,%xmm0
  movups %xmm0,(%rdx,%rcx,1)
  movupd (%rsi,%rcx,1),%xmm0
  mulpd  %xmm3,%xmm0
  movups %xmm0,(%rax,%rcx,1)
  add    $0x10,%rcx
  cmp    %r10,%rcx
  jne    L215
  mov    0x90(%rsp),%ebx
  lea    (%rbx,%r15,1),%esi
  mov    0x78(%rsp),%ebx
  lea    (%rbx,%r15,1),%ecx
  cmp    %r15d,%r14d
  je     L858
  mov    0x68(%rsp),%rbx
  movslq %esi,%rsi
  movslq %ecx,%rcx
  movsd  (%rbx),%xmm0
  mov    0x70(%rsp),%rbx
  mulsd  %xmm6,%xmm0
  addsd  (%rbx),%xmm0
  mov    0x190(%rsp),%rbx
  movsd  %xmm0,(%rbx,%rsi,8)
  mov    0x60(%rsp),%rbx
  movsd  (%rbx),%xmm0
  mov    0x190(%rsp),%rbx
  mulsd  %xmm5,%xmm0
  movsd  %xmm0,(%rbx,%rcx,8)
L858:
  cmpl   $0x2,0x98(%rsp)
  jle    L358
  mov    0x90(%rsp),%ebx
  mov    %rbp,(%rsp)
  movapd %xmm6,%xmm4
  movapd %xmm5,%xmm3
  mov    %r14d,0x8(%rsp)
  mov    0x100(%rsp),%r8
  mov    $0x2,%r13d
  lea    (%rbx,%r15,1),%ecx
  mov    0x190(%rsp),%rbx
  mov    0xf0(%rsp),%r11
  movslq %ecx,%rcx
  lea    (%rbx,%rcx,8),%rdi
  mov    0x78(%rsp),%ebx
  lea    (%rbx,%r15,1),%ecx
  mov    0x190(%rsp),%rbx
  movslq %ecx,%rcx
  lea    (%rbx,%rcx,8),%rsi
  mov    0x10c(%rsp),%ecx
  mov    0xe8(%rsp),%rbx
  mov    %ecx,0x10(%rsp)
  nopl   0x0(%rax)
L1230:
  mov    0x48(%rsp),%r9
  add    %r14d,0x8(%rsp)
  movapd %xmm4,%xmm0
  movapd %xmm5,%xmm7
  sub    %r14d,0x10(%rsp)
  cmp    %r9,0x40(%rsp)
  movapd %xmm6,%xmm4
  mov    0x20(%rsp),%rbp
  mulsd  %xmm0,%xmm4
  setge  %r9b
  cmp    %rbp,0x18(%rsp)
  mulsd  %xmm3,%xmm7
  setge  %cl
  mulsd  %xmm6,%xmm3
  or     %r9d,%ecx
  cmp    $0x1,%r14d
  mulsd  %xmm5,%xmm0
  setne  %r9b
  and    %ecx,%r9d
  cmp    %rdx,%r11
  setne  %cl
  and    %r9d,%ecx
  cmp    %rax,%r11
  subsd  %xmm7,%xmm4
  setne  %r9b
  and    %r9d,%ecx
  lea    0x8(%r8),%r9
  addsd  %xmm0,%xmm3
  cmp    %r9,%rax
  setne  %r9b
  test   %r9b,%cl
  je     L1002
  lea    0x10(%r8),%rcx
  cmp    %rcx,%rdx
  setae  %r9b
  cmp    0x38(%rsp),%r8
  setae  %cl
  or     %r9b,%cl
  je     L1002
  movapd %xmm4,%xmm8
  movapd %xmm3,%xmm7
  mov    (%rsp),%rbp
  xor    %ecx,%ecx
  lea    -0x8(%r11),%r9
  unpcklpd %xmm8,%xmm8
  unpcklpd %xmm7,%xmm7
  xchg   %ax,%ax
L1110:
  movupd (%r9,%rcx,1),%xmm0
  movupd (%rdx,%rcx,1),%xmm9
  mulpd  %xmm8,%xmm0
  addpd  %xmm9,%xmm0
  movups %xmm0,(%rdx,%rcx,1)
  movupd (%r8,%rcx,1),%xmm0
  movupd (%rax,%rcx,1),%xmm10
  mulpd  %xmm7,%xmm0
  addpd  %xmm10,%xmm0
  movups %xmm0,(%rax,%rcx,1)
  add    $0x10,%rcx
  cmp    %rcx,%r10
  jne    L1110
  mov    0x8(%rsp),%ecx
  mov    %rbp,(%rsp)
  lea    (%rcx,%r15,1),%r9d
  mov    0x10(%rsp),%ecx
  add    %r15d,%ecx
  cmp    %r15d,%r14d
  je     L703
  movslq %r9d,%r9
  movslq %ecx,%rcx
  movsd  (%r12,%r9,8),%xmm0
  mulsd  %xmm4,%xmm0
  addsd  (%rdi),%xmm0
  movsd  %xmm0,(%rdi)
  movsd  (%r12,%rcx,8),%xmm0
  mulsd  %xmm3,%xmm0
  addsd  (%rsi),%xmm0
  movsd  %xmm0,(%rsi)
L703:
  add    $0x1,%r13d
  add    0x30(%rsp),%r11
  add    0x50(%rsp),%r8
  add    0x58(%rsp),%rbx
  cmp    %r13d,0x98(%rsp)
  jne    L1230
  mov    (%rsp),%rbp
L1424:
  mov    0x30(%rsp),%rbx
  mov    0x50(%rsp),%rdi
  addl   $0x1,0x88(%rsp)
  add    0xd0(%rsp),%rbp
  add    %rdi,0x18(%rsp)
  mov    0x88(%rsp),%esi
  add    %rdi,%rax
  add    %rbx,%rdx
  add    %rbx,0x20(%rsp)
  add    %rbx,0x40(%rsp)
  add    %rdi,0x48(%rsp)
  add    %rbx,0x38(%rsp)
  cmp    %esi,0x98(%rsp)
  jg     L302
L358:
  mov    0xac(%rsp),%ebx
  mov    %r15d,%r13d
  mov    0x124(%rsp),%r14d
  mov    0x188(%rsp),%r15
  test   %ebx,%ebx
  jle    L207
  mov    %r14d,(%rsp)
  mov    0xd8(%rsp),%rcx
  xor    %r8d,%r8d
  mov    $0x1,%edi
  mov    %r15,0x188(%rsp)
  mov    0x30(%rsp),%rbp
  mov    0x118(%rsp),%r11
  mov    0x98(%rsp),%r14d
  mov    0x108(%rsp),%r15d
  mov    0x190(%rsp),%rax
  mov    0x128(%rsp),%rdx
  add    0x190(%rsp),%rdx
  nopl   0x0(%rax,%rax,1)
L749:
  lea    0x8(%rcx),%rsi
  add    %ebx,%r8d
  cmp    %rsi,%rax
  je     L966
  xor    %esi,%esi
  cmp    $0x1,%r15d
  jbe    L966
  nopl   0x0(%rax)
L1192:
  movupd (%rax,%rsi,1),%xmm0
  movupd (%rcx,%rsi,1),%xmm2
  addpd  %xmm2,%xmm0
  movups %xmm0,(%rax,%rsi,1)
  add    $0x10,%rsi
  cmp    %rsi,%r10
  jne    L1192
  lea    (%r8,%r13,1),%esi
  cmp    %r13d,%ebx
  je     L1171
  movslq %esi,%rsi
  movsd  (%rdx),%xmm0
  addsd  (%r12,%rsi,8),%xmm0
  movsd  %xmm0,(%rdx)
L1171:
  add    $0x1,%edi
  add    %rbp,%rcx
  cmp    %edi,%r14d
  jg     L749
  mov    (%rsp),%r14d
  mov    0x188(%rsp),%r15
L207:
  cmp    %r14d,0x28(%rsp)
  jge    L545
  mov    0x28(%rsp),%eax
  test   %eax,%eax
  jle    L1108
  test   %r14d,%r14d
  jle    L1108
  cmp    $0x1,%eax
  jne    L1355
  mov    0x9c(%rsp),%ebx
  movslq 0xa8(%rsp),%rcx
  mov    %r15,%rax
  mov    0xb0(%rsp),%rdx
  lea    -0x1(%rbx),%esi
  shl    $0x3,%rcx
  lea    0x8(%r15,%rsi,8),%rsi
  nopl   0x0(%rax,%rax,1)
L159:
  movsd  (%rax),%xmm0
  add    $0x8,%rax
  movsd  %xmm0,(%rdx)
  add    %rcx,%rdx
  cmp    %rsi,%rax
  jne    L159
L1108:
  mov    0x28(%rsp),%eax
  add    %eax,%eax
  cmpl   $0x1,0x98(%rsp)
  mov    %eax,(%rsp)
  jle    L1436
  test   %r14d,%r14d
  jle    L1436
L1277:
  cmpl   $0x1,0x28(%rsp)
  jne    L927
  mov    0x9c(%rsp),%r10d
  movslq 0x110(%rsp),%rsi
  mov    $0x1,%r8d
  mov    0xb0(%rsp),%r9
  movslq 0xa8(%rsp),%rdi
  mov    %r10d,%r11d
  movslq %r10d,%rax
  mov    0x98(%rsp),%ebp
  neg    %r10
  neg    %r11d
  sub    %rax,%rsi
  lea    -0x1(%rax),%edx
  add    $0x10,%r9
  shl    $0x3,%rdi
  movslq %r11d,%r11
  sub    %rax,%rsi
  shl    $0x3,%r10
  sub    %rax,%r11
  lea    0x0(,%rax,8),%rbx
  add    %rdx,%rax
  lea    0x8(%r15,%rax,8),%rcx
L32:
  lea    (%r10,%rcx,1),%rax
  mov    %r9,%rdx
  nopw   0x0(%rax,%rax,1)
L1082:
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x8(%rdx)
  movsd  (%rax,%rsi,8),%xmm0
  add    $0x8,%rax
  movsd  %xmm0,(%rdx)
  add    %rdi,%rdx
  cmp    %rax,%rcx
  jne    L1082
  add    $0x1,%r8d
  add    $0x10,%r9
  add    %r11,%rsi
  add    %rbx,%rcx
  cmp    %r8d,%ebp
  jne    L32
L1394:
  add    $0x148,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L1002:
  mov    0xa0(%rsp),%rcx
  mov    %rdx,0x80(%rsp)
  lea    -0x8(%r11),%r9
  lea    (%rcx,%r11,1),%rbp
  mov    %rax,%rcx
  mov    %rbp,%rdx
  mov    (%rsp),%rbp
  nopw   0x0(%rax,%rax,1)
L684:
  movsd  (%r9),%xmm0
  mulsd  %xmm4,%xmm0
  addsd  (%rcx,%rbp,8),%xmm0
  movsd  %xmm0,(%rcx,%rbp,8)
  movsd  (%r9,%rbx,8),%xmm0
  add    $0x8,%r9
  add    $0x8,%rcx
  mulsd  %xmm3,%xmm0
  addsd  -0x8(%rcx),%xmm0
  movsd  %xmm0,-0x8(%rcx)
  cmp    %r9,%rdx
  jne    L684
  mov    %rbp,(%rsp)
  mov    0x80(%rsp),%rdx
  jmp    L703
L740:
  mov    0xd8(%rsp),%rax
  mov    0xe8(%rsp),%rdi
  mov    0xd0(%rsp),%rsi
  add    0x40(%rsp),%rsi
  lea    (%rax,%r12,1),%rcx
  lea    (%rax,%rbp,1),%rdx
  mov    0xe0(%rsp),%rax
  lea    (%rdi,%rsi,8),%rsi
  add    %r12,%rax
  nopl   0x0(%rax)
L825:
  movsd  0x8(%rcx),%xmm0
  addsd  0x8(%rdx),%xmm0
  add    $0x10,%rcx
  add    $0x10,%rdx
  movsd  %xmm0,0x8(%rax)
  movsd  (%rcx),%xmm0
  subsd  (%rdx),%xmm0
  movsd  %xmm0,0x8(%rax,%rbx,8)
  movsd  (%rcx),%xmm0
  addsd  (%rdx),%xmm0
  movsd  %xmm0,0x10(%rax)
  movsd  -0x8(%rdx),%xmm0
  subsd  -0x8(%rcx),%xmm0
  movsd  %xmm0,0x10(%rax,%rbx,8)
  add    $0x10,%rax
  cmp    %rsi,%rax
  jne    L825
  jmp    L1313
L574:
  mov    0x80(%rsp),%rdi
  mov    0x78(%rsp),%rdx
  lea    -0x8(%r8),%rax
  lea    -0x8(%rcx),%rsi
  add    (%rsp),%rdx
  lea    (%rdi,%rdx,8),%rdi
  mov    0x50(%rsp),%rdx
  nopw   0x0(%rax,%rax,1)
L963:
  movsd  (%rdx),%xmm0
  add    $0x10,%rax
  add    $0x10,%rdx
  add    $0x10,%rsi
  mulsd  -0x8(%rax),%xmm0
  movsd  -0x8(%rdx),%xmm3
  mulsd  (%rax),%xmm3
  addsd  %xmm3,%xmm0
  movsd  %xmm0,-0x8(%rsi)
  movsd  -0x10(%rdx),%xmm0
  movsd  -0x8(%rdx),%xmm3
  mulsd  (%rax),%xmm0
  mulsd  -0x8(%rax),%xmm3
  subsd  %xmm3,%xmm0
  movsd  %xmm0,(%rsi)
  cmp    %rdi,%rax
  jne    L963
  jmp    L1164
L924:
  movslq %r9d,%rsi
  xor    %edi,%edi
  shl    $0x3,%rsi
  nopl   (%rax)
L152:
  movsd  -0x8(%rax),%xmm0
  movsd  (%rax),%xmm3
  add    $0x1,%edi
  mulsd  0x0(%r13,%rsi,1),%xmm3
  mulsd  -0x8(%r13,%rsi,1),%xmm0
  addsd  %xmm3,%xmm0
  movsd  %xmm0,-0x8(%r15,%rsi,1)
  movsd  -0x8(%rax),%xmm0
  movsd  (%rax),%xmm3
  mulsd  0x0(%r13,%rsi,1),%xmm0
  mulsd  -0x8(%r13,%rsi,1),%xmm3
  subsd  %xmm3,%xmm0
  movsd  %xmm0,(%r15,%rsi,1)
  add    %rdx,%rsi
  cmp    %edi,%r14d
  jne    L152
  jmp    L1006
L234:
  mov    0x118(%rsp),%rdi
  mov    0xc0(%rsp),%r8
  xor    %ecx,%ecx
  mov    0xd8(%rsp),%r9
  nopl   (%rax)
L1443:
  movsd  (%r9,%rcx,8),%xmm0
  mov    %rcx,%rsi
  mulsd  %xmm6,%xmm0
  addsd  (%r12,%rcx,8),%xmm0
  movsd  %xmm0,(%rdx,%rcx,8)
  movsd  (%r8,%rcx,8),%xmm0
  mulsd  %xmm5,%xmm0
  movsd  %xmm0,(%rax,%rcx,8)
  add    $0x1,%rcx
  cmp    %rsi,%rdi
  jne    L1443
  jmp    L858
L377:
  mov    0x20(%rsp),%rdx
  xor    %eax,%eax
  nopl   0x0(%rax)
L188:
  movsd  (%rcx,%rax,8),%xmm0
  addsd  (%rsi,%rax,8),%xmm0
  movsd  %xmm0,(%r9,%rax,8)
  movsd  (%rsi,%rax,8),%xmm0
  subsd  (%rcx,%rax,8),%xmm0
  movsd  %xmm0,(%r10,%rax,8)
  add    $0x1,%rax
  cmp    %rdx,%rax
  jne    L188
  jmp    L548
L927:
  movslq (%rsp),%rdx
  movslq 0x28(%rsp),%r8
  mov    $0x1,%r11d
  movslq 0x9c(%rsp),%rax
  mov    0xb0(%rsp),%rdi
  lea    0x0(,%rdx,8),%rbp
  shl    $0x3,%r8
  mov    %rax,%rsi
  lea    (%rdi,%rbp,1),%r10
  movslq 0xa8(%rsp),%rdi
  lea    0x0(,%rax,8),%rbx
  neg    %esi
  lea    (%r15,%rbx,1),%r9
  movslq %esi,%rdx
  movslq 0x110(%rsp),%rsi
  shl    $0x3,%rdi
  sub    %rax,%rdx
  sub    %rax,%rsi
  mov    %rdx,%r12
  sub    %rax,%rsi
L686:
  mov    %r10,%rdx
  mov    %r9,%rax
  xor    %ecx,%ecx
  nopl   0x0(%rax)
L597:
  movsd  (%rax),%xmm0
  add    $0x1,%ecx
  movsd  %xmm0,-0x8(%rdx)
  movsd  (%rax,%rsi,8),%xmm0
  add    %r8,%rax
  movsd  %xmm0,(%rdx)
  add    %rdi,%rdx
  cmp    %ecx,%r14d
  jne    L597
  add    $0x1,%r11d
  add    %rbx,%r9
  add    %rbp,%r10
  add    %r12,%rsi
  cmp    %r11d,0x98(%rsp)
  jne    L686
L1436:
  cmpl   $0x1,0x28(%rsp)
  je     L1394
  mov    0x28(%rsp),%eax
  neg    %eax
  cmp    %r14d,0x114(%rsp)
  jl     L395
  cmpl   $0x1,0x98(%rsp)
  jle    L1394
  test   %r14d,%r14d
  jle    L1394
  mov    0x28(%rsp),%ebx
  cmp    $0x2,%ebx
  jle    L1394
  movslq 0x9c(%rsp),%rsi
  mov    %r15,%rcx
  cltq
  movslq %ebx,%r13
  movslq 0xa8(%rsp),%r12
  sub    $0x3,%ebx
  movl   $0x1,0x8(%rsp)
  mov    %rsi,%rdi
  mov    %rsi,0x28(%rsp)
  shr    %ebx
  neg    %edi
  mov    %rsi,0x10(%rsp)
  shl    $0x3,%r12
  add    %rbx,%rbx
  movslq %edi,%rdx
  sub    %rsi,%rdx
  lea    0x0(,%rdx,8),%rdi
  lea    0x0(,%rsi,8),%rdx
  mov    %rdi,0x38(%rsp)
  movslq (%rsp),%rdi
  sub    %rdx,%rcx
  movslq 0x110(%rsp),%rdx
  mov    %r14d,(%rsp)
  add    %rdi,%rax
  mov    %rdi,0x30(%rsp)
  add    %r13,%rax
  mov    %rdi,0x18(%rsp)
  sub    %rsi,%rdx
  mov    %rax,0x20(%rsp)
  lea    0x10(%r15),%rax
  lea    (%rcx,%rdx,8),%r11
  mov    %rax,%r14
L1433:
  mov    0xb0(%rsp),%rax
  mov    0x18(%rsp),%rsi
  xor    %r10d,%r10d
  mov    0x10(%rsp),%r8
  lea    (%rax,%rsi,8),%r9
  mov    0x20(%rsp),%rax
  sub    %rsi,%rax
  lea    -0x18(,%rax,8),%rbp
  nop
L1083:
  lea    0x0(,%r8,8),%rdx
  lea    (%r8,%rbx,1),%rcx
  lea    (%r15,%rdx,1),%rax
  lea    (%r14,%rcx,8),%rdi
  add    %r11,%rdx
  mov    %r9,%rcx
  lea    0x0(%rbp,%r9,1),%rsi
  nop
L141:
  add    $0x10,%rax
  add    $0x10,%rdx
  add    $0x10,%rcx
  sub    $0x10,%rsi
  movsd  -0x8(%rax),%xmm0
  addsd  -0x8(%rdx),%xmm0
  movsd  %xmm0,-0x8(%rcx)
  movsd  -0x8(%rax),%xmm0
  subsd  -0x8(%rdx),%xmm0
  movsd  %xmm0,0x10(%rsi)
  movsd  (%rax),%xmm0
  addsd  (%rdx),%xmm0
  movsd  %xmm0,(%rcx)
  movsd  (%rdx),%xmm0
  subsd  (%rax),%xmm0
  movsd  %xmm0,0x18(%rsi)
  cmp    %rdi,%rax
  jne    L141
  add    $0x1,%r10d
  add    %r13,%r8
  add    %r12,%r9
  cmp    %r10d,(%rsp)
  jne    L1083
  mov    0x28(%rsp),%rdi
  addl   $0x1,0x8(%rsp)
  add    %rdi,0x10(%rsp)
  mov    0x8(%rsp),%eax
  mov    0x30(%rsp),%rdi
  add    0x38(%rsp),%r11
  add    %rdi,0x20(%rsp)
  add    %rdi,0x18(%rsp)
  cmp    %eax,0x98(%rsp)
  jne    L1433
  jmp    L1394
L835:
  cmpl   $0x2,0x98(%rsp)
  jg     L1424
  jmp    L358
  nopl   0x0(%rax,%rax,1)
L966:
  xor    %esi,%esi
  nopw   0x0(%rax,%rax,1)
L510:
  movsd  (%rax,%rsi,8),%xmm0
  addsd  (%rcx,%rsi,8),%xmm0
  mov    %rsi,%r9
  movsd  %xmm0,(%rax,%rsi,8)
  add    $0x1,%rsi
  cmp    %r9,%r11
  jne    L510
  jmp    L1171
L545:
  test   %r14d,%r14d
  jle    L264
  mov    0x28(%rsp),%ebx
  test   %ebx,%ebx
  jle    L301
  movslq %ebx,%rax
  mov    %r15,%rsi
  xor    %r10d,%r10d
  xor    %r9d,%r9d
  lea    0x0(,%rax,8),%rbp
  movslq 0xa8(%rsp),%rax
  mov    0xb0(%rsp),%r13
  xor    %r8d,%r8d
  lea    0x0(,%rax,8),%r12
  mov    %ebx,%eax
  mov    %r13,%rcx
  shr    %eax
  lea    -0x1(%rax),%edi
  mov    %ebx,%eax
  and    $0xfffffffe,%ebx
  add    $0x1,%rdi
  mov    %ebx,%r11d
  mov    %eax,%ebx
  shl    $0x4,%rdi
L1092:
  lea    0x8(%rsi),%rax
  cmp    %rax,%rcx
  je     L943
  xor    %eax,%eax
  cmpl   $0x2,0x120(%rsp)
  jbe    L943
  nopl   (%rax)
L1208:
  movupd (%rsi,%rax,1),%xmm1
  movups %xmm1,(%rcx,%rax,1)
  add    $0x10,%rax
  cmp    %rdi,%rax
  jne    L1208
  lea    (%r9,%r11,1),%edx
  lea    (%r10,%r11,1),%eax
  cmp    0x28(%rsp),%r11d
  je     L782
  movslq %edx,%rdx
  cltq
  movsd  (%r15,%rdx,8),%xmm0
  movsd  %xmm0,0x0(%r13,%rax,8)
L782:
  add    $0x1,%r8d
  add    0x28(%rsp),%r9d
  add    %rbp,%rsi
  add    %r12,%rcx
  add    0xa8(%rsp),%r10d
  cmp    %r8d,%r14d
  jne    L1092
L301:
  mov    0x28(%rsp),%eax
  add    %eax,%eax
  cmpl   $0x1,0x98(%rsp)
  mov    %eax,(%rsp)
  jg     L1277
  jmp    L1436
  nopl   0x0(%rax,%rax,1)
L943:
  xor    %eax,%eax
  nopw   0x0(%rax,%rax,1)
L960:
  movsd  (%rsi,%rax,8),%xmm0
  movsd  %xmm0,(%rcx,%rax,8)
  add    $0x1,%rax
  cmp    %rbx,%rax
  jne    L960
  jmp    L782
L395:
  cmpl   $0x1,0x98(%rsp)
  jle    L1394
  mov    0x28(%rsp),%ebx
  cmp    $0x2,%ebx
  jle    L1394
  test   %r14d,%r14d
  jle    L1394
  movslq 0x9c(%rsp),%rdx
  movslq 0x110(%rsp),%r10
  cltq
  movl   $0x1,0x8(%rsp)
  movslq (%rsp),%rdi
  movslq 0xa8(%rsp),%r11
  lea    0x0(,%rdx,8),%rcx
  mov    %rdx,%rsi
  sub    %rdx,%r10
  neg    %esi
  mov    %rcx,0x20(%rsp)
  lea    0x10(%r15,%rdx,8),%rcx
  sub    %rdx,%r10
  mov    %rcx,0x10(%rsp)
  movslq %esi,%rcx
  mov    %rdi,%r9
  shl    $0x3,%r10
  sub    %rdx,%rcx
  movslq %ebx,%rdx
  sub    $0x3,%ebx
  mov    %rdi,0x28(%rsp)
  add    %rdx,%rax
  lea    0x0(,%rcx,8),%rsi
  shl    $0x3,%r11
  mov    %rdi,%r15
  mov    %rsi,0x18(%rsp)
  mov    0xb0(%rsp),%rsi
  lea    0x0(,%rdx,8),%r8
  mov    $0xfffffffc,%edx
  mov    %rax,0x30(%rsp)
  mov    %ebx,%eax
  and    $0xfffffffe,%eax
  add    $0x10,%rsi
  sub    %eax,%edx
  mov    %rsi,0x40(%rsp)
  mov    %edx,0x38(%rsp)
L799:
  mov    0x40(%rsp),%rax
  mov    0x10(%rsp),%rbx
  lea    -0x2(%r9),%r12d
  lea    (%rax,%r15,8),%rbp
  mov    0x30(%rsp),%rax
  lea    -0x4(%rax),%rdi
  mov    0x38(%rsp),%eax
  lea    (%rax,%r9,1),%r13d
  nopl   0x0(%rax)
L492:
  lea    (%r10,%rbx,1),%rcx
  mov    %rbp,%rdx
  mov    %rbx,%rax
  xor    %esi,%esi
  nopl   0x0(%rax)
L768:
  movsd  -0x8(%rax),%xmm0
  addsd  -0x8(%rcx),%xmm0
  add    $0x1,%esi
  movsd  %xmm0,-0x8(%rdx)
  movsd  -0x8(%rax),%xmm0
  subsd  -0x8(%rcx),%xmm0
  movsd  %xmm0,-0x8(%rdx,%rdi,8)
  movsd  (%rax),%xmm0
  addsd  (%rcx),%xmm0
  movsd  %xmm0,(%rdx)
  movsd  (%rcx),%xmm0
  subsd  (%rax),%xmm0
  add    %r8,%rcx
  add    %r8,%rax
  movsd  %xmm0,(%rdx,%rdi,8)
  add    %r11,%rdx
  cmp    %esi,%r14d
  jne    L768
  sub    $0x2,%r12d
  add    $0x10,%rbx
  add    $0x10,%rbp
  sub    $0x4,%rdi
  cmp    %r13d,%r12d
  jne    L492
  addl   $0x1,0x8(%rsp)
  mov    0x20(%rsp),%rsi
  mov    0x8(%rsp),%eax
  add    %rsi,0x10(%rsp)
  add    0x28(%rsp),%r15
  add    (%rsp),%r9d
  add    0x18(%rsp),%r10
  cmp    %eax,0x98(%rsp)
  jne    L799
  jmp    L1394
L509:
  mov    0xac(%rsp),%esi
  test   %esi,%esi
  jg     L136
  jmp    L593
L1064:
  mov    0xa0(%rsp),%eax
  imul   0xac(%rsp),%eax
  mov    %eax,0x78(%rsp)
  test   %r14d,%r14d
  jle    L708
L767:
  movslq 0x9c(%rsp),%rax
  movslq 0x28(%rsp),%rdi
  mov    $0x1,%r9d
  mov    %rax,%rbx
  lea    (%rax,%rax,1),%rcx
  mov    %rax,%r10
  shl    $0x3,%rdi
  neg    %ebx
  movslq %ebx,%rdx
  movslq 0x78(%rsp),%rbx
  sub    %rdx,%r10
  lea    0x0(,%rdx,8),%r11
  mov    %rbx,0x18(%rsp)
  sub    %rbx,%rcx
  sub    %rax,%rbx
  lea    0x0(,%rbx,8),%r8
L864:
  lea    (%r15,%r8,1),%rax
  lea    0x0(%r13,%r8,1),%rdx
  xor    %esi,%esi
  nopl   (%rax)
L366:
  movsd  (%rax,%rcx,8),%xmm0
  addsd  (%rax),%xmm0
  add    $0x1,%esi
  movsd  %xmm0,(%rdx,%rcx,8)
  movsd  (%rax),%xmm0
  subsd  (%rax,%rcx,8),%xmm0
  add    %rdi,%rax
  movsd  %xmm0,(%rdx)
  add    %rdi,%rdx
  cmp    %esi,%r14d
  jne    L366
  add    $0x1,%r9d
  add    %r10,%rcx
  add    %r11,%r8
  cmp    %r9d,0x98(%rsp)
  jg     L864
  jmp    L1140
L733:
  mov    0x190(%rsp),%rdx
  xor    %eax,%eax
L440:
  movsd  (%rdx,%rax,8),%xmm0
  movsd  %xmm0,(%r12,%rax,8)
  add    $0x1,%rax
  cmp    %eax,0xac(%rsp)
  jg     L440
  jmp    L593
L1478:
  cmp    %r14d,0x114(%rsp)
  jg     L1351
  jmp    L1238
L324:
  movslq 0x78(%rsp),%rax
  mov    %rax,0x18(%rsp)
  jmp    L1140
L747:
  mov    0xac(%rsp),%edx
  mov    0x190(%rsp),%rcx
  xor    %eax,%eax
L1021:
  movsd  (%r12,%rax,8),%xmm0
  movsd  %xmm0,(%rcx,%rax,8)
  add    $0x1,%rax
  cmp    %rdx,%rax
  jne    L1021
  jmp    L49
L264:
  mov    0x28(%rsp),%eax
  add    %eax,%eax
  mov    %eax,(%rsp)
  jmp    L1436
L1355:
  movslq 0x28(%rsp),%rdi
  movslq 0xa8(%rsp),%rsi
  mov    %r15,%r10
  xor    %r8d,%r8d
  mov    0xb0(%rsp),%r9
  shl    $0x3,%rdi
  shl    $0x3,%rsi
L1303:
  mov    %r9,%rcx
  mov    %r10,%rdx
  xor    %eax,%eax
  cs nopw 0x0(%rax,%rax,1)
L615:
  movsd  (%rdx),%xmm0
  add    $0x1,%eax
  add    %rdi,%rdx
  movsd  %xmm0,(%rcx)
  add    %rsi,%rcx
  cmp    %eax,%r14d
  jne    L615
  add    $0x1,%r8d
  add    $0x8,%r10
  add    $0x8,%r9
  cmp    %r8d,0x28(%rsp)
  jne    L1303
  jmp    L1108
L315:
  mov    0xac(%rsp),%eax
  test   %eax,%eax
  jg     L136
  jmp    L207
L708:
  cltq
  mov    %rax,0x18(%rsp)
  jmp    L1140
```

tool_calls: name: disassemble_data
arguments: label: D18
data_type: f64
name: disassemble_data
arguments: label: D9
data_type: f64

tool: D18: 6.283185307179586

tool: D9: 1

assistant: ```c
void dradfg(int ido, int ip, int l1, int idl1, double *cc, double *c1, double *c2, double *ch, double *ch2, double *wa) {
  static double tpi = 6.28318530717958647692528676655900577;
  int idij, ipph, i, j, k, l, ic, ik, is;
  int t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
  double dc2, ai1, ai2, ar1, ar2, ds2;
  int nbd;
  double dcp, arg, dsp, ar1h, ar2h;
  int idp2, ipp2;
  arg = tpi / (double)ip;
  dcp = cos(arg);
  dsp = sin(arg);
  ipph = (ip + 1) >> 1;
  ipp2 = ip;
  idp2 = ido;
  nbd = (ido - 1) >> 1;
  t0 = l1 * ido;
  t10 = ip * ido;
  if (ido == 1)
    goto L119;
  for (ik = 0; ik < idl1; ik++)
    ch2[ik] = c2[ik];
  t1 = 0;
  for (j = 1; j < ip; j++) {
    t1 += t0;
    t2 = t1;
    for (k = 0; k < l1; k++) {
      ch[t2] = c1[t2];
      t2 += ido;
    }
  }
  is = -ido;
  t1 = 0;
  if (nbd > l1) {
    for (j = 1; j < ip; j++) {
      t1 += t0;
      is += ido;
      t2 = -ido + t1;
      for (k = 0; k < l1; k++) {
        idij = is - 1;
        t2 += ido;
        t3 = t2;
        for (i = 2; i < ido; i += 2) {
          idij += 2;
          t3 += 2;
          ch[t3 - 1] = wa[idij - 1] * c1[t3 - 1] + wa[idij] * c1[t3];
          ch[t3] = wa[idij - 1] * c1[t3] - wa[idij] * c1[t3 - 1];
        }
      }
    }
  } else {
    for (j = 1; j < ip; j++) {
      is += ido;
      idij = is - 1;
      t1 += t0;
      t2 = t1;
      for (i = 2; i < ido; i += 2) {
        idij += 2;
        t2 += 2;
        t3 = t2;
        for (k = 0; k < l1; k++) {
          ch[t3 - 1] = wa[idij - 1] * c1[t3 - 1] + wa[idij] * c1[t3];
          ch[t3] = wa[idij - 1] * c1[t3] - wa[idij] * c1[t3 - 1];
          t3 += ido;
        }
      }
    }
  }
  t1 = 0;
  t2 = ipp2 * t0;
  if (nbd < l1) {
    for (j = 1; j < ipph; j++) {
      t1 += t0;
      t2 -= t0;
      t3 = t1;
      t4 = t2;
      for (i = 2; i < ido; i += 2) {
        t3 += 2;
        t4 += 2;
        t5 = t3 - ido;
        t6 = t4 - ido;
        for (k = 0; k < l1; k++) {
          t5 += ido;
          t6 += ido;
          c1[t5 - 1] = ch[t5 - 1] + ch[t6 - 1];
          c1[t6 - 1] = ch[t5] - ch[t6];
          c1[t5] = ch[t5] + ch[t6];
          c1[t6] = ch[t6 - 1] - ch[t5 - 1];
        }
      }
    }
  } else {
    for (j = 1; j < ipph; j++) {
      t1 += t0;
      t2 -= t0;
      t3 = t1;
      t4 = t2;
      for (k = 0; k < l1; k++) {
        t5 = t3;
        t6 = t4;
        for (i = 2; i < ido; i += 2) {
          t5 += 2;
          t6 += 2;
          c1[t5 - 1] = ch[t5 - 1] + ch[t6 - 1];
          c1[t6 - 1] = ch[t5] - ch[t6];
          c1[t5] = ch[t5] + ch[t6];
          c1[t6] = ch[t6 - 1] - ch[t5 - 1];
        }
        t3 += ido;
        t4 += ido;
      }
    }
  }
L119:
  for (ik = 0; ik < idl1; ik++)
    c2[ik] = ch2[ik];
  t1 = 0;
  t2 = ipp2 * idl1;
  for (j = 1; j < ipph; j++) {
    t1 += t0;
    t2 -= t0;
    t3 = t1 - ido;
    t4 = t2 - ido;
    for (k = 0; k < l1; k++) {
      t3 += ido;
      t4 += ido;
      c1[t3] = ch[t3] + ch[t4];
      c1[t4] = ch[t4] - ch[t3];
    }
  }
  ar1 = 1.0;
  ai1 = 0.0;
  t1 = 0;
  t2 = ipp2 * idl1;
  t3 = (ip - 1) * idl1;
  for (l = 1; l < ipph; l++) {
    t1 += idl1;
    t2 -= idl1;
    ar1h = dcp * ar1 - dsp * ai1;
    ai1 = dcp * ai1 + dsp * ar1;
    ar1 = ar1h;
    t4 = t1;
    t5 = t2;
    t6 = t3;
    t7 = idl1;
    for (ik = 0; ik < idl1; ik++) {
      ch2[t4++] = c2[ik] + ar1 * c2[t7++];
      ch2[t5++] = ai1 * c2[t6++];
    }
    dc2 = ar1;
    ds2 = ai1;
    ar2 = ar1;
    ai2 = ai1;
    t4 = idl1;
    t5 = (ipp2 - 1) * idl1;
    for (j = 2; j < ipph; j++) {
      t4 += idl1;
      t5 -= idl1;
      ar2h = dc2 * ar2 - ds2 * ai2;
      ai2 = dc2 * ai2 + ds2 * ar2;
      ar2 = ar2h;
      t6 = t1;
      t7 = t2;
      t8 = t4;
      t9 = t5;
      for (ik = 0; ik < idl1; ik++) {
        ch2[t6++] += ar2 * c2[t8++];
        ch2[t7++] += ai2 * c2[t9++];
      }
    }
  }
  t1 = 0;
  for (j = 1; j < ipph; j++) {
    t1 += idl1;
    t2 = t1;
    for (ik = 0; ik < idl1; ik++)
      ch2[ik] += c2[t2++];
  }
  if (ido < l1)
    goto L132;
  t1 = 0;
  t2 = 0;
  for (k = 0; k < l1; k++) {
    t3 = t1;
    t4 = t2;
    for (i = 0; i < ido; i++)
      cc[t4++] = ch[t3++];
    t1 += ido;
    t2 += t10;
  }
  goto L135;
L132:
  for (i = 0; i < ido; i++) {
    t1 = i;
    t2 = i;
    for (k = 0; k < l1; k++) {
      cc[t2] = ch[t1];
      t1 += ido;
      t2 += t10;
    }
  }
L135:
  t1 = 0;
  t2 = ido << 1;
  t3 = 0;
  t4 = ipp2 * t0;
  for (j = 1; j < ipph; j++) {
    t1 += t2;
    t3 += t0;
    t4 -= t0;
    t5 = t1;
    t6 = t3;
    t7 = t4;
    for (k = 0; k < l1; k++) {
      cc[t5 - 1] = ch[t6];
      cc[t5] = ch[t7];
      t5 += t10;
      t6 += ido;
      t7 += ido;
    }
  }
  if (ido == 1)
    return;
  if (nbd < l1)
    goto L141;
  t1 = -ido;
  t3 = 0;
  t4 = 0;
  t5 = ipp2 * t0;
  for (j = 1; j < ipph; j++) {
    t1 += t2;
    t3 += t2;
    t4 += t0;
    t5 -= t0;
    t6 = t1;
    t7 = t3;
    t8 = t4;
    t9 = t5;
    for (k = 0; k < l1; k++) {
      for (i = 2; i < ido; i += 2) {
        ic = idp2 - i;
        cc[i + t7 - 1] = ch[i + t8 - 1] + ch[i + t9 - 1];
        cc[ic + t6 - 1] = ch[i + t8 - 1] - ch[i + t9 - 1];
        cc[i + t7] = ch[i + t8] + ch[i + t9];
        cc[ic + t6] = ch[i + t9] - ch[i + t8];
      }
      t6 += t10;
      t7 += t10;
      t8 += ido;
      t9 += ido;
    }
  }
  return;
L141:
  t1 = -ido;
  t3 = 0;
  t4 = 0;
  t5 = ipp2 * t0;
  for (j = 1; j < ipph; j++) {
    t1 += t2;
    t3 += t2;
    t4 += t0;
    t5 -= t0;
    for (i = 2; i < ido; i += 2) {
      t6 = idp2 + t1 - i;
      t7 = i + t3;
      t8 = i + t4;
      t9 = i + t5;
      for (k = 0; k < l1; k++) {
        cc[t7 - 1] = ch[t8 - 1] + ch[t9 - 1];
        cc[t6 - 1] = ch[t8 - 1] - ch[t9 - 1];
        cc[t7] = ch[t8] + ch[t9];
        cc[t6] = ch[t9] - ch[t8];
        t6 += t10;
        t7 += t10;
        t8 += ido;
        t9 += ido;
      }
    }
  }
}
```