// File: /workspace/github_c_makefile_star2_O1/PoulinV[P]AxiCLASS/build/../source/harmonic.c
// Function: harmonic_cl_at_l
int harmonic_cl_at_l(
                     struct harmonic * phr,
                     double l,
                     double * cl_tot,    /* array with argument cl_tot[index_ct] (must be already allocated) */
                     double * * cl_md,   /* array with argument cl_md[index_md][index_ct] (must be already allocated only if several modes) */
                     double * * cl_md_ic /* array with argument cl_md_ic[index_md][index_ic1_ic2*phr->ct_size+index_ct] (must be already allocated for a given mode only if several ic's) */
                     ) {

  /** Summary: */

  /** - define local variables */

  int last_index;
  int index_md;
  int index_ic1,index_ic2,index_ic1_ic2;
  int index_ct;

  /** - (a) treat case in which there is only one mode and one initial condition.
      Then, only cl_tot needs to be filled. */

  if ((phr->md_size == 1) && (phr->ic_size[0] == 1)) {
    index_md = 0;
    if ((int)l <= phr->l[phr->l_size[index_md]-1]) {

      /* interpolate at l */
      class_call(array_interpolate_spline(phr->l,
                                          phr->l_size[index_md],
                                          phr->cl[index_md],
                                          phr->ddcl[index_md],
                                          phr->ct_size,
                                          l,
                                          &last_index,
                                          cl_tot,
                                          phr->ct_size,
                                          phr->error_message),
                 phr->error_message,
                 phr->error_message);

      /* set to zero for the types such that l<l_max */
      for (index_ct=0; index_ct<phr->ct_size; index_ct++)
        if ((int)l > phr->l_max_ct[index_md][index_ct])
          cl_tot[index_ct]=0.;
    }
    else {
      for (index_ct=0; index_ct<phr->ct_size; index_ct++)
        cl_tot[index_ct]=0.;
    }
  }

  /** - (b) treat case in which there is only one mode
      with several initial condition.
      Fill cl_md_ic[index_md=0] and sum it to get cl_tot. */

  if ((phr->md_size == 1) && (phr->ic_size[0] > 1)) {
    index_md = 0;
    for (index_ct=0; index_ct<phr->ct_size; index_ct++)
      cl_tot[index_ct]=0.;
    for (index_ic1 = 0; index_ic1 < phr->ic_size[index_md]; index_ic1++) {
      for (index_ic2 = index_ic1; index_ic2 < phr->ic_size[index_md]; index_ic2++) {
        index_ic1_ic2 = index_symmetric_matrix(index_ic1,index_ic2,phr->ic_size[index_md]);
        if (((int)l <= phr->l[phr->l_size[index_md]-1]) &&
            (phr->is_non_zero[index_md][index_ic1_ic2] == _TRUE_)) {

          class_call(array_interpolate_spline(phr->l,
                                              phr->l_size[index_md],
                                              phr->cl[index_md],
                                              phr->ddcl[index_md],
                                              phr->ic_ic_size[index_md]*phr->ct_size,
                                              l,
                                              &last_index,
                                              cl_md_ic[index_md],
                                              phr->ic_ic_size[index_md]*phr->ct_size,
                                              phr->error_message),
                     phr->error_message,
                     phr->error_message);

          for (index_ct=0; index_ct<phr->ct_size; index_ct++)
            if ((int)l > phr->l_max_ct[index_md][index_ct])
              cl_md_ic[index_md][index_ic1_ic2*phr->ct_size+index_ct]=0.;
        }
        else {
          for (index_ct=0; index_ct<phr->ct_size; index_ct++)
            cl_md_ic[index_md][index_ic1_ic2*phr->ct_size+index_ct]=0.;
        }

        /* compute cl_tot by summing over cl_md_ic */
        for (index_ct=0; index_ct<phr->ct_size; index_ct++) {
          if (index_ic1 == index_ic2)
            cl_tot[index_ct]+=cl_md_ic[index_md][index_ic1_ic2*phr->ct_size+index_ct];
          else
            cl_tot[index_ct]+=2.*cl_md_ic[index_md][index_ic1_ic2*phr->ct_size+index_ct];
        }
      }
    }
  }

  /** - (c) loop over modes */

  if (phr->md_size > 1) {

    for (index_ct=0; index_ct<phr->ct_size; index_ct++)
      cl_tot[index_ct]=0.;

    for (index_md = 0; index_md < phr->md_size; index_md++) {

      /** - --> (c.1.) treat case in which the mode under consideration
          has only one initial condition.
          Fill cl_md[index_md]. */

      if (phr->ic_size[index_md] == 1) {
        if ((int)l <= phr->l[phr->l_size[index_md]-1]) {

          class_call(array_interpolate_spline(phr->l,
                                              phr->l_size[index_md],
                                              phr->cl[index_md],
                                              phr->ddcl[index_md],
                                              phr->ct_size,
                                              l,
                                              &last_index,
                                              cl_md[index_md],
                                              phr->ct_size,
                                              phr->error_message),
                     phr->error_message,
                     phr->error_message);

          for (index_ct=0; index_ct<phr->ct_size; index_ct++)
            if ((int)l > phr->l_max_ct[index_md][index_ct])
              cl_md[index_md][index_ct]=0.;
        }
        else {
          for (index_ct=0; index_ct<phr->ct_size; index_ct++)
            cl_md[index_md][index_ct]=0.;
        }
      }

      /** - --> (c.2.) treat case in which the mode under consideration
          has several initial conditions.
          Fill cl_md_ic[index_md] and sum it to get cl_md[index_md] */

      if (phr->ic_size[index_md] > 1) {

        if ((int)l <= phr->l[phr->l_size[index_md]-1]) {

          /* interpolate all ic and ct */
          class_call(array_interpolate_spline(phr->l,
                                              phr->l_size[index_md],
                                              phr->cl[index_md],
                                              phr->ddcl[index_md],
                                              phr->ic_ic_size[index_md]*phr->ct_size,
                                              l,
                                              &last_index,
                                              cl_md_ic[index_md],
                                              phr->ic_ic_size[index_md]*phr->ct_size,
                                              phr->error_message),
                     phr->error_message,
                     phr->error_message);

          /* set to zero some of the components */
          for (index_ic1 = 0; index_ic1 < phr->ic_size[index_md]; index_ic1++) {
            for (index_ic2 = index_ic1; index_ic2 < phr->ic_size[index_md]; index_ic2++) {
              index_ic1_ic2 = index_symmetric_matrix(index_ic1,index_ic2,phr->ic_size[index_md]);
              for (index_ct=0; index_ct<phr->ct_size; index_ct++) {

                if (((int)l > phr->l_max_ct[index_md][index_ct]) || (phr->is_non_zero[index_md][index_ic1_ic2] == _FALSE_))
                  cl_md_ic[index_md][index_ic1_ic2*phr->ct_size+index_ct]=0.;
              }
            }
          }
        }
        /* if l was too big, set anyway all components to zero */
        else {
          for (index_ic1 = 0; index_ic1 < phr->ic_size[index_md]; index_ic1++) {
            for (index_ic2 = index_ic1; index_ic2 < phr->ic_size[index_md]; index_ic2++) {
              index_ic1_ic2 = index_symmetric_matrix(index_ic1,index_ic2,phr->ic_size[index_md]);
              for (index_ct=0; index_ct<phr->ct_size; index_ct++) {
                cl_md_ic[index_md][index_ic1_ic2*phr->ct_size+index_ct]=0.;
              }
            }
          }
        }

        /* sum up all ic for each mode */

        for (index_ct=0; index_ct<phr->ct_size; index_ct++) {

          cl_md[index_md][index_ct]=0.;

          for (index_ic1 = 0; index_ic1 < phr->ic_size[index_md]; index_ic1++) {
            for (index_ic2 = index_ic1; index_ic2 < phr->ic_size[index_md]; index_ic2++) {
              index_ic1_ic2 = index_symmetric_matrix(index_ic1,index_ic2,phr->ic_size[index_md]);

              if (index_ic1 == index_ic2)
                cl_md[index_md][index_ct]+=cl_md_ic[index_md][index_ic1_ic2*phr->ct_size+index_ct];
              else
                cl_md[index_md][index_ct]+=2.*cl_md_ic[index_md][index_ic1_ic2*phr->ct_size+index_ct];
            }
          }
        }
      }

      /** - --> (c.3.) add contribution of cl_md[index_md] to cl_tot */

      for (index_ct=0; index_ct<phr->ct_size; index_ct++)
        cl_tot[index_ct]+=cl_md[index_md][index_ct];
    }
  }

  return _SUCCESS_;

}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x8a8, %rsp            # imm = 0x8A8
movq %rcx, 0x8(%rsp)
movq %rdx, %rbx
movq %rsi, %r15
movq %rdi, %r14
cmpl $0x1, 0x10(%rdi)
movapd %xmm0, 0x40(%rsp)
jne 0xb5c3a
movq 0x18(%r14), %rax
cmpl $0x1, (%rax)
jne 0xb5c3a
cvttpd2dq %xmm0, %xmm1
cvtdq2pd %xmm1, %xmm2
movq 0xa0(%r14), %rax
movq 0xb0(%r14), %rdi
movslq (%rax), %rsi
movsd -0x8(%rdi,%rsi,8), %xmm1
ucomisd %xmm2, %xmm1
jae 0xb5b86
movslq 0x9c(%r14), %rdx
testq %rdx, %rdx
jle 0xb5c3a
shlq $0x3, %rdx
movq %r15, %rdi
xorl %esi, %esi
callq 0x8200
movapd 0x40(%rsp), %xmm0
jmp 0xb5c3a
movq 0xd0(%r14), %rax
movq (%rax), %rdx
movq 0xd8(%r14), %rax
movq (%rax), %rcx
movl 0x9c(%r14), %r8d
leaq 0xea(%r14), %r13
subq $0x8, %rsp
leaq 0x1c(%rsp), %r9
pushq %r13
pushq %r8
pushq %r15
callq 0x17ee6
addq $0x20, %rsp
cmpl $0x1, %eax
jne 0xb5c03
leaq 0x3b824(%rip), %rsi     # 0xf13f0
leaq 0x6eafb(%rip), %rdx     # 0x1246ce
leaq 0xa0(%rsp), %rbx
movq %rbx, %rdi
movq %r13, %rcx
xorl %eax, %eax
callq 0x30c2c
leaq 0x3b445(%rip), %rsi     # 0xf1034
leaq 0x6eb80(%rip), %rdx     # 0x124776
movq %r13, %rdi
movl $0x49, %ecx
jmp 0xb643d
movslq 0x9c(%r14), %rax
testq %rax, %rax
movapd 0x40(%rsp), %xmm0
jle 0xb5c3a
cvttsd2si %xmm0, %ecx
movq 0xb8(%r14), %rdx
movq (%rdx), %rdx
xorl %esi, %esi
cmpl %ecx, (%rdx,%rsi,4)
jge 0xb5c32
movq $0x0, (%r15,%rsi,8)
incq %rsi
cmpq %rsi, %rax
jne 0xb5c25
cmpl $0x1, 0x10(%r14)
movq %r14, (%rsp)
jne 0xb5e80
movq 0x18(%r14), %rax
cmpl $0x2, (%rax)
jl 0xb5e80
movslq 0x9c(%r14), %rdx
testq %rdx, %rdx
jle 0xb5c76
shlq $0x3, %rdx
movq %r15, %rdi
xorl %esi, %esi
callq 0x8200
movapd 0x40(%rsp), %xmm0
movq 0x18(%r14), %rax
cmpl $0x0, (%rax)
jle 0xb5e80
cvttsd2si %xmm0, %eax
movl %eax, 0x20(%rsp)
cvttpd2dq 0x40(%rsp), %xmm0
cvtdq2pd %xmm0, %xmm0
movapd %xmm0, 0x70(%rsp)
leaq 0xea(%r14), %rax
movq %rax, 0x18(%rsp)
xorl %r13d, %r13d
movq (%rsp), %r12
movq 0x18(%r14), %rax
movl (%rax), %eax
cmpl %eax, %r13d
jge 0xb5e6c
leal 0x1(%r13), %ecx
imull %r13d, %ecx
shrl %ecx
movl %ecx, 0x28(%rsp)
movl %r13d, %ebp
cmpl %ebp, %r13d
jbe 0xb5ce8
imull %ebp, %eax
addl %r13d, %eax
leal 0x1(%rbp), %ecx
imull %ebp, %ecx
shrl %ecx
subl %ecx, %eax
movl %eax, %r14d
jmp 0xb5cf7
imull %r13d, %eax
movl %ebp, %r14d
subl 0x28(%rsp), %r14d
addl %eax, %r14d
movq 0xa0(%r12), %rax
movq 0xb0(%r12), %rdi
movslq (%rax), %rsi
movsd -0x8(%rdi,%rsi,8), %xmm0
ucomisd 0x70(%rsp), %xmm0
jb 0xb5dd9
movq 0x28(%r12), %rax
movq (%rax), %rax
movslq %r14d, %rcx
cmpw $0x1, (%rax,%rcx,2)
jne 0xb5dd9
movq 0xd0(%r12), %rax
movq (%rax), %rdx
movq 0xd8(%r12), %rax
movq (%rax), %rcx
movq 0x20(%r12), %rax
movl 0x9c(%r12), %r8d
imull (%rax), %r8d
subq $0x8, %rsp
movapd 0x48(%rsp), %xmm0
leaq 0x1c(%rsp), %r9
pushq 0x20(%rsp)
pushq %r8
movq 0x20(%rsp), %rax
pushq (%rax)
callq 0x17ee6
addq $0x20, %rsp
cmpl $0x1, %eax
je 0xb637f
movslq 0x9c(%r12), %rax
testq %rax, %rax
movl 0x20(%rsp), %r8d
jle 0xb5e06
movq (%rsp), %rcx
movq 0xb8(%rcx), %rcx
movq (%rcx), %rcx
movl %eax, %edx
imull %r14d, %edx
movslq %edx, %rdx
shlq $0x3, %rdx
xorl %esi, %esi
cmpl %r8d, (%rcx,%rsi,4)
jge 0xb5dcf
movq 0x8(%rsp), %rdi
movq (%rdi), %rdi
addq %rdx, %rdi
movq $0x0, (%rdi,%rsi,8)
incq %rsi
cmpq %rsi, %rax
jne 0xb5db6
jmp 0xb5e06
movslq 0x9c(%r12), %rdx
testq %rdx, %rdx
jle 0xb5e06
movl %edx, %eax
imull %r14d, %eax
movslq %eax, %rdi
shlq $0x3, %rdi
movq 0x8(%rsp), %rax
addq (%rax), %rdi
shlq $0x3, %rdx
xorl %esi, %esi
callq 0x8200
movq (%rsp), %rax
movslq 0x9c(%rax), %rax
testq %rax, %rax
jle 0xb5e58
imull %eax, %r14d
movslq %r14d, %rcx
shlq $0x3, %rcx
movq 0x8(%rsp), %rdx
addq (%rdx), %rcx
xorl %edx, %edx
movsd (%r15,%rdx,8), %xmm0
cmpl %ebp, %r13d
jne 0xb5e3d
addsd (%rcx,%rdx,8), %xmm0
jmp 0xb5e4a
movsd (%rcx,%rdx,8), %xmm1
addsd %xmm1, %xmm1
addsd %xmm1, %xmm0
movsd %xmm0, (%r15,%rdx,8)
incq %rdx
cmpq %rdx, %rax
jne 0xb5e2b
incl %ebp
movq (%rsp), %rax
movq 0x18(%rax), %rax
movl (%rax), %eax
cmpl %eax, %ebp
jl 0xb5cce
incl %r13d
movq (%rsp), %r14
movq 0x18(%r14), %rax
cmpl (%rax), %r13d
jl 0xb5cae
xorl %ebp, %ebp
cmpl $0x2, 0x10(%r14)
jl 0xb644c
movslq 0x9c(%r14), %rdx
testq %rdx, %rdx
jle 0xb5ea7
shlq $0x3, %rdx
movq %r15, %rdi
xorl %esi, %esi
callq 0x8200
movq (%rsp), %r12
cmpl $0x0, 0x10(%r12)
jle 0xb644c
movapd 0x40(%rsp), %xmm0
cvttsd2si %xmm0, %ebp
cvttpd2dq %xmm0, %xmm0
cvtdq2pd %xmm0, %xmm0
movapd %xmm0, 0x90(%rsp)
leaq 0xea(%r12), %rax
movq %rax, 0x38(%rsp)
xorl %r14d, %r14d
movq %rbx, 0x80(%rsp)
movq %r15, 0x88(%rsp)
movl %ebp, 0x34(%rsp)
movq 0x18(%r12), %rax
cmpl $0x1, (%rax,%r14,4)
jne 0xb5fcc
movq 0xa0(%r12), %rax
movq 0xb0(%r12), %rdi
movslq (%rax,%r14,4), %rsi
movsd -0x8(%rdi,%rsi,8), %xmm0
ucomisd 0x90(%rsp), %xmm0
jae 0xb5f4d
movslq 0x9c(%r12), %rdx
testq %rdx, %rdx
jle 0xb5fcc
movq (%rbx,%r14,8), %rdi
shlq $0x3, %rdx
xorl %esi, %esi
callq 0x8200
jmp 0xb5fcc
movq 0xd0(%r12), %rax
movq (%rax,%r14,8), %rdx
movq 0xd8(%r12), %rax
movq (%rax,%r14,8), %rcx
movl 0x9c(%r12), %r8d
subq $0x8, %rsp
movapd 0x48(%rsp), %xmm0
leaq 0x1c(%rsp), %r9
pushq 0x40(%rsp)
pushq %r8
pushq (%rbx,%r14,8)
callq 0x17ee6
addq $0x20, %rsp
cmpl $0x1, %eax
je 0xb63bf
movslq 0x9c(%r12), %rax
testq %rax, %rax
jle 0xb5fcc
movq 0xb8(%r12), %rcx
movq (%rcx,%r14,8), %rcx
xorl %edx, %edx
cmpl %ebp, (%rcx,%rdx,4)
jge 0xb5fc4
movq (%rbx,%r14,8), %rsi
movq $0x0, (%rsi,%rdx,8)
incq %rdx
cmpq %rdx, %rax
jne 0xb5fb3
movq 0x18(%r12), %rax
movl (%rax,%r14,4), %r15d
cmpl $0x2, %r15d
jl 0xb6323
movq (%rsp), %rbx
movq 0xa0(%rbx), %rax
movq 0xb0(%rbx), %rdi
movslq (%rax,%r14,4), %rsi
movsd -0x8(%rdi,%rsi,8), %xmm0
ucomisd 0x90(%rsp), %xmm0
jae 0xb60e5
movl 0x9c(%rbx), %edx
movq %rdx, %rax
shlq $0x3, %rax
movq %rax, 0x18(%rsp)
leal 0x1(%r15), %eax
movl %eax, 0x5c(%rsp)
movl $0x2, %ebx
xorl %r13d, %r13d
xorl %r12d, %r12d
xorl %esi, %esi
movq %rdx, 0x28(%rsp)
movl %esi, %ecx
imull %r15d, %ecx
leal 0x1(%rsi), %eax
movl %eax, 0x60(%rsp)
imull %esi, %eax
shrl %eax
subl %eax, %ecx
movq %rcx, 0x20(%rsp)
movl %r13d, 0x68(%rsp)
movl %ebx, 0x6c(%rsp)
movl %r12d, 0x64(%rsp)
movl %esi, %ebp
movq %rsi, 0x70(%rsp)
cmpl %ebp, %esi
jbe 0xb6074
movl %r13d, %ecx
shrl %ecx
movl %r12d, %eax
subl %ecx, %eax
jmp 0xb607b
movq 0x20(%rsp), %rax
addl %ebp, %eax
testl %edx, %edx
jle 0xb60a8
imull %edx, %eax
movslq %eax, %rdi
shlq $0x3, %rdi
movq 0x8(%rsp), %rax
addq (%rax,%r14,8), %rdi
xorl %esi, %esi
movq 0x18(%rsp), %rdx
callq 0x8200
movq 0x70(%rsp), %rsi
movq 0x28(%rsp), %rdx
incl %ebp
addl %r15d, %r12d
addl %ebx, %r13d
addl $0x2, %ebx
cmpl %ebp, %r15d
jne 0xb6064
movl 0x64(%rsp), %r12d
addl 0x5c(%rsp), %r12d
movl 0x6c(%rsp), %ebx
movl 0x68(%rsp), %r13d
addl %ebx, %r13d
addl $0x2, %ebx
movl 0x60(%rsp), %eax
movl %eax, %esi
cmpl %r15d, %eax
jne 0xb6036
jmp 0xb6206
movq 0xd0(%rbx), %rax
movq (%rax,%r14,8), %rdx
movq 0xd8(%rbx), %rax
movq (%rax,%r14,8), %rcx
movq 0x20(%rbx), %rax
movl 0x9c(%rbx), %r8d
imull (%rax,%r14,4), %r8d
subq $0x8, %rsp
movapd 0x48(%rsp), %xmm0
leaq 0x1c(%rsp), %r9
pushq 0x40(%rsp)
pushq %r8
movq 0x20(%rsp), %rax
pushq (%rax,%r14,8)
callq 0x17ee6
addq $0x20, %rsp
cmpl $0x1, %eax
je 0xb63ff
movq 0x18(%rbx), %rax
movl (%rax,%r14,4), %eax
testl %eax, %eax
jle 0xb6206
movq (%rsp), %rcx
movl 0x9c(%rcx), %ecx
xorl %edx, %edx
movl %eax, %edi
imull %edx, %edi
leal 0x1(%rdx), %esi
movl %esi, %r8d
imull %edx, %r8d
shrl %r8d
subl %r8d, %edi
movl %edx, %r8d
movq (%rsp), %r12
movl 0x34(%rsp), %ebp
cmpl %r8d, %edx
jbe 0xb6196
movl %r8d, %r10d
imull %eax, %r10d
addl %edx, %r10d
leal 0x1(%r8), %r9d
imull %r8d, %r9d
shrl %r9d
subl %r9d, %r10d
jmp 0xb619a
leal (%rdi,%r8), %r10d
testl %ecx, %ecx
jle 0xb61f0
movq 0xb8(%r12), %r9
movq (%r9,%r14,8), %r9
movslq %r10d, %r10
movl %r10d, %r11d
imull %ecx, %r11d
movslq %r11d, %r11
shlq $0x3, %r11
xorl %ebx, %ebx
cmpl %ebp, (%r9,%rbx,4)
jl 0xb61d4
movq 0x28(%r12), %r15
movq (%r15,%r14,8), %r15
cmpw $0x0, (%r15,%r10,2)
jne 0xb61e8
movq 0x8(%rsp), %r15
movq (%r15,%r14,8), %r15
addq %r11, %r15
movq $0x0, (%r15,%rbx,8)
incq %rbx
cmpq %rbx, %rcx
jne 0xb61bd
incl %r8d
cmpl %eax, %r8d
jne 0xb6177
movl %esi, %edx
cmpl %eax, %esi
jne 0xb6157
movq (%rsp), %rax
movslq 0x9c(%rax), %rax
testq %rax, %rax
jle 0xb6323
movq 0x80(%rsp), %rcx
movq (%rcx,%r14,8), %rcx
movq (%rsp), %rdx
movq 0x18(%rdx), %rdx
movl (%rdx,%r14,4), %edx
leal 0x1(%rdx), %esi
movl %esi, 0x20(%rsp)
xorl %edi, %edi
movq $0x0, (%rcx,%rdi,8)
testl %edx, %edx
jle 0xb6317
movsd (%rcx,%rdi,8), %xmm0
movl $0x2, %esi
xorl %r9d, %r9d
xorl %r13d, %r13d
xorl %ebx, %ebx
movl %edx, %r15d
imull %ebx, %r15d
leal 0x1(%rbx), %r8d
movl %r8d, 0x18(%rsp)
imull %ebx, %r8d
shrl %r8d
subl %r8d, %r15d
movl %r9d, 0x70(%rsp)
movl %esi, %r8d
movl %r13d, 0x28(%rsp)
xorl %ebp, %ebp
movl %ebx, %r11d
cmpl %r11d, %ebx
jbe 0xb629c
movl %r9d, %r12d
shrl %r12d
movl %r13d, %r10d
subl %r12d, %r10d
jmp 0xb62a0
leal (%r15,%r11), %r10d
movl %eax, %r12d
imull %r10d, %r12d
addl %edi, %r12d
movslq %r12d, %r10
subl $0x1, %ebp
jae 0xb62c3
movq 0x8(%rsp), %r12
movq (%r12,%r14,8), %r12
addsd (%r12,%r10,8), %xmm0
jmp 0xb62da
movq 0x8(%rsp), %r12
movq (%r12,%r14,8), %r12
movsd (%r12,%r10,8), %xmm1
addsd %xmm1, %xmm1
addsd %xmm1, %xmm0
movsd %xmm0, (%rcx,%rdi,8)
incl %r11d
addl %edx, %r13d
addl %r8d, %r9d
addl $0x2, %r8d
cmpl %r11d, %edx
jne 0xb6289
movl 0x28(%rsp), %r13d
addl 0x20(%rsp), %r13d
movl 0x70(%rsp), %r9d
addl %esi, %r9d
addl $0x2, %esi
movl 0x18(%rsp), %r8d
movl %r8d, %ebx
cmpl %edx, %r8d
jne 0xb625d
incq %rdi
cmpq %rax, %rdi
jne 0xb623b
movq (%rsp), %r12
movslq 0x9c(%r12), %rax
testq %rax, %rax
movq 0x80(%rsp), %rbx
movq 0x88(%rsp), %r15
jle 0xb6363
movq (%rbx,%r14,8), %rcx
xorl %edx, %edx
movsd (%rcx,%rdx,8), %xmm0
addsd (%r15,%rdx,8), %xmm0
movsd %xmm0, (%r15,%rdx,8)
incq %rdx
cmpq %rdx, %rax
jne 0xb634a
incq %r14
movslq 0x10(%r12), %rax
cmpq %rax, %r14
movl 0x34(%rsp), %ebp
jl 0xb5ef6
xorl %ebp, %ebp
jmp 0xb644c
leaq 0x3b06a(%rip), %rsi     # 0xf13f0
leaq 0x6e3fa(%rip), %rdx     # 0x124787
leaq 0xa0(%rsp), %rbx
movq %rbx, %rdi
movq 0x18(%rsp), %r14
movq %r14, %rcx
xorl %eax, %eax
callq 0x30c2c
leaq 0x3ac86(%rip), %rsi     # 0xf1034
leaq 0x6e3c1(%rip), %rdx     # 0x124776
movq %r14, %rdi
movl $0x6f, %ecx
jmp 0xb643d
leaq 0x3b02a(%rip), %rsi     # 0xf13f0
leaq 0x6e4a2(%rip), %rdx     # 0x12486f
leaq 0xa0(%rsp), %rbx
movq %rbx, %rdi
movq 0x38(%rsp), %r14
movq %r14, %rcx
xorl %eax, %eax
callq 0x30c2c
leaq 0x3ac46(%rip), %rsi     # 0xf1034
leaq 0x6e381(%rip), %rdx     # 0x124776
movq %r14, %rdi
movl $0xa0, %ecx
jmp 0xb643d
leaq 0x3afea(%rip), %rsi     # 0xf13f0
leaq 0x6e37a(%rip), %rdx     # 0x124787
leaq 0xa0(%rsp), %rbx
movq %rbx, %rdi
movq 0x38(%rsp), %r14
movq %r14, %rcx
xorl %eax, %eax
callq 0x30c2c
leaq 0x3ac06(%rip), %rsi     # 0xf1034
leaq 0x6e341(%rip), %rdx     # 0x124776
movq %r14, %rdi
movl $0xc0, %ecx
movq %rbx, %r8
xorl %eax, %eax
callq 0x30c2c
movl $0x1, %ebp
movl %ebp, %eax
addq $0x8a8, %rsp            # imm = 0x8A8
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq