// File: /workspace/github_c_makefile_star2_O3/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, %rbx
movq %rsi, %r12
movq %rdi, %r15
movl 0x10(%rdi), %eax
cmpl $0x1, %eax
movq %rdx, %r14
movq %rdx, 0x30(%rsp)
movq %rdi, 0x38(%rsp)
jne 0xb2ce1
movq 0x18(%r15), %rax
cmpl $0x1, (%rax)
jne 0xb2aa6
cvttpd2dq %xmm0, %xmm1
cvtdq2pd %xmm1, %xmm2
movq 0xa0(%r15), %rax
movq 0xb0(%r15), %rdi
movslq (%rax), %rsi
movsd -0x8(%rdi,%rsi,8), %xmm1
ucomisd %xmm2, %xmm1
jae 0xb29ec
movslq 0x9c(%r15), %rdx
testq %rdx, %rdx
jle 0xb2aa6
shlq $0x3, %rdx
movq %r12, %rdi
xorl %esi, %esi
movapd %xmm0, 0x20(%rsp)
callq 0x8200
movapd 0x20(%rsp), %xmm0
jmp 0xb2aa6
movq 0xd0(%r15), %rax
movq (%rax), %rdx
movq 0xd8(%r15), %rax
movq (%rax), %rcx
movl 0x9c(%r15), %r8d
leaq 0xea(%r15), %r13
subq $0x8, %rsp
leaq 0xc(%rsp), %r9
movapd %xmm0, 0x28(%rsp)
pushq %r13
pushq %r8
pushq %r12
callq 0x18071
addq $0x20, %rsp
cmpl $0x1, %eax
jne 0xb2a6f
leaq 0x3b9b8(%rip), %rsi     # 0xee3f0
leaq 0x6ecb7(%rip), %rdx     # 0x1216f6
leaq 0xa0(%rsp), %rbx
movq %rbx, %rdi
movq %r13, %rcx
xorl %eax, %eax
callq 0x30af0
leaq 0x3b5d9(%rip), %rsi     # 0xee034
leaq 0x6ed3c(%rip), %rdx     # 0x12179e
movq %r13, %rdi
movl $0x49, %ecx
jmp 0xb32a7
movslq 0x9c(%r15), %rax
testq %rax, %rax
movapd 0x20(%rsp), %xmm0
jle 0xb2aa6
cvttsd2si %xmm0, %ecx
movq 0xb8(%r15), %rdx
movq (%rdx), %rdx
xorl %esi, %esi
cmpl %ecx, (%rdx,%rsi,4)
jge 0xb2a9e
movq $0x0, (%r12,%rsi,8)
incq %rsi
cmpq %rsi, %rax
jne 0xb2a91
movl 0x10(%r15), %eax
cmpl $0x1, %eax
jne 0xb2ce1
movq 0x18(%r15), %rax
movl (%rax), %r14d
cmpl $0x2, %r14d
jl 0xb31e2
movslq 0x9c(%r15), %r9
testq %r9, %r9
movapd %xmm0, 0x20(%rsp)
jle 0xb2af4
leaq (,%r9,8), %rdx
movq %r12, %rdi
xorl %esi, %esi
movq %r9, %r13
callq 0x8200
movq %r13, %r9
movapd 0x20(%rsp), %xmm0
cvttsd2si %xmm0, %eax
movl %eax, 0x40(%rsp)
cvttpd2dq %xmm0, %xmm0
cvtdq2pd %xmm0, %xmm0
movapd %xmm0, 0x10(%rsp)
leaq 0xea(%r15), %rax
movq %rax, 0x8(%rsp)
xorl %r13d, %r13d
movl %r9d, %r8d
leal 0x1(%r13), %eax
cmpl %r14d, %r13d
movl %eax, (%rsp)
jge 0xb2cbd
imull %r13d, %eax
shrl %eax
movl %eax, 0x48(%rsp)
movl %r13d, %ebp
cmpl %ebp, %r13d
jbe 0xb2b55
imull %ebp, %r14d
addl %r13d, %r14d
leal 0x1(%rbp), %eax
imull %ebp, %eax
shrl %eax
subl %eax, %r14d
movl %r14d, %r15d
jmp 0xb2b64
imull %r13d, %r14d
movl %ebp, %r15d
subl 0x48(%rsp), %r15d
addl %r14d, %r15d
movq 0x38(%rsp), %r14
movq 0xa0(%r14), %rax
movq 0xb0(%r14), %rdi
movslq (%rax), %rsi
movsd -0x8(%rdi,%rsi,8), %xmm0
ucomisd 0x10(%rsp), %xmm0
jb 0xb2c31
movq 0x28(%r14), %rax
movq (%rax), %rax
movslq %r15d, %rcx
cmpw $0x1, (%rax,%rcx,2)
jne 0xb2c31
movq 0x20(%r14), %rax
movq 0xd0(%r14), %rcx
movq (%rcx), %rdx
movq 0xd8(%r14), %rcx
movq (%rcx), %rcx
imull (%rax), %r8d
subq $0x8, %rsp
movapd 0x28(%rsp), %xmm0
leaq 0xc(%rsp), %r9
pushq 0x10(%rsp)
pushq %r8
pushq (%rbx)
callq 0x18071
addq $0x20, %rsp
cmpl $0x1, %eax
je 0xb31e9
movslq 0x9c(%r14), %r9
testq %r9, %r9
jle 0xb2ca0
movq 0xb8(%r14), %rax
movq (%rax), %rax
movl %r9d, %ecx
imull %r15d, %ecx
movslq %ecx, %rcx
shlq $0x3, %rcx
xorl %edx, %edx
movl 0x40(%rsp), %edi
cmpl %edi, (%rax,%rdx,4)
jge 0xb2c27
movq (%rbx), %rsi
addq %rcx, %rsi
movq $0x0, (%rsi,%rdx,8)
incq %rdx
cmpq %rdx, %r9
jne 0xb2c14
jmp 0xb2c58
testl %r8d, %r8d
jle 0xb2c58
movl %r8d, %edx
imull %r15d, %r8d
movslq %r8d, %rdi
shlq $0x3, %rdi
addq (%rbx), %rdi
shlq $0x3, %rdx
xorl %esi, %esi
movq %r9, %r14
callq 0x8200
movq %r14, %r9
testl %r9d, %r9d
jle 0xb2c99
imull %r9d, %r15d
movslq %r15d, %rax
movl %r9d, %ecx
shlq $0x3, %rax
addq (%rbx), %rax
xorl %edx, %edx
movq 0x38(%rsp), %r15
movsd (%rax,%rdx,8), %xmm0
cmpl %ebp, %r13d
je 0xb2c83
addsd %xmm0, %xmm0
addsd (%r12,%rdx,8), %xmm0
movsd %xmm0, (%r12,%rdx,8)
incq %rdx
cmpq %rdx, %rcx
jne 0xb2c75
jmp 0xb2ca3
movq 0x38(%rsp), %r15
jmp 0xb2ca3
movq %r14, %r15
incl %ebp
movq 0x18(%r15), %rax
movl (%rax), %r14d
movl %r9d, %r8d
movl %r9d, %eax
cmpl %r14d, %ebp
jl 0xb2b39
jmp 0xb2cc0
movl %r8d, %eax
movl %eax, %r8d
movl (%rsp), %eax
movl %eax, %r13d
cmpl %r14d, %eax
jl 0xb2b1c
movl 0x10(%r15), %eax
movq 0x30(%rsp), %r14
movapd 0x20(%rsp), %xmm0
cmpl $0x2, %eax
jl 0xb31e2
movslq 0x9c(%r15), %rbp
testq %rbp, %rbp
movapd %xmm0, 0x20(%rsp)
jle 0xb2d14
leaq (,%rbp,8), %rdx
movq %r12, %rdi
xorl %esi, %esi
callq 0x8200
movapd 0x20(%rsp), %xmm0
cvttsd2si %xmm0, %r13d
cvttpd2dq %xmm0, %xmm0
cvtdq2pd %xmm0, %xmm0
movapd %xmm0, 0x90(%rsp)
leaq 0xea(%r15), %rax
movq %rax, 0x58(%rsp)
movq 0x18(%r15), %rax
movq %rax, 0x60(%rsp)
xorl %r8d, %r8d
movq %rbx, 0x68(%rsp)
movq %r12, 0x88(%rsp)
movl %r13d, 0x54(%rsp)
movq 0x60(%rsp), %rax
cmpl $0x1, (%rax,%r8,4)
movq %r8, 0x10(%rsp)
jne 0xb2e2f
movq 0xa0(%r15), %rax
movq 0xb0(%r15), %rdi
movslq (%rax,%r8,4), %rsi
movsd -0x8(%rdi,%rsi,8), %xmm0
ucomisd 0x90(%rsp), %xmm0
jae 0xb2daa
testl %ebp, %ebp
jle 0xb2e2f
movq (%r14,%r8,8), %rdi
movl %ebp, %edx
shlq $0x3, %rdx
xorl %esi, %esi
callq 0x8200
jmp 0xb2e2a
movq 0xd0(%r15), %rax
movq 0xd8(%r15), %rcx
movq (%rax,%r8,8), %rdx
movq (%rcx,%r8,8), %rcx
subq $0x8, %rsp
movq %r8, %rax
movl %ebp, %r8d
movapd 0x28(%rsp), %xmm0
leaq 0xc(%rsp), %r9
pushq 0x60(%rsp)
pushq %rbp
pushq (%r14,%rax,8)
callq 0x18071
addq $0x20, %rsp
cmpl $0x1, %eax
je 0xb3229
movslq 0x9c(%r15), %rbp
testq %rbp, %rbp
jle 0xb2e2a
movq 0xb8(%r15), %rax
movq 0x10(%rsp), %r8
movq (%rax,%r8,8), %rax
xorl %ecx, %ecx
cmpl %r13d, (%rax,%rcx,4)
jge 0xb2e20
movq (%r14,%r8,8), %rdx
movq $0x0, (%rdx,%rcx,8)
incq %rcx
cmpq %rcx, %rbp
jne 0xb2e0e
jmp 0xb2e2f
movq 0x10(%rsp), %r8
movq 0x18(%r15), %rcx
movl (%rcx,%r8,4), %r12d
cmpl $0x2, %r12d
jl 0xb2f55
movq 0xa0(%r15), %rax
movq 0xb0(%r15), %rdi
movslq (%rax,%r8,4), %rsi
movsd -0x8(%rdi,%rsi,8), %xmm0
ucomisd 0x90(%rsp), %xmm0
jae 0xb2f64
movq %rcx, 0x60(%rsp)
movl %ebp, %eax
shlq $0x3, %rax
movq %rax, 0x8(%rsp)
leal 0x1(%r12), %eax
movl %eax, 0x7c(%rsp)
movl $0x2, %r15d
xorl %r14d, %r14d
xorl %ebx, %ebx
xorl %edx, %edx
movl %edx, %ecx
imull %r12d, %ecx
leal 0x1(%rdx), %eax
movl %eax, 0x80(%rsp)
imull %edx, %eax
shrl %eax
subl %eax, %ecx
movq %rcx, 0x40(%rsp)
movl %r14d, 0x70(%rsp)
movl %r15d, (%rsp)
movl %ebx, 0x84(%rsp)
movl %edx, %r13d
movq %rdx, 0x48(%rsp)
cmpl %r13d, %edx
jbe 0xb2ed2
movl %r14d, %ecx
shrl %ecx
movl %ebx, %eax
subl %ecx, %eax
jmp 0xb2eda
movq 0x40(%rsp), %rax
addl %r13d, %eax
testl %ebp, %ebp
jle 0xb2f07
imull %ebp, %eax
movslq %eax, %rdi
shlq $0x3, %rdi
movq 0x68(%rsp), %rax
addq (%rax,%r8,8), %rdi
xorl %esi, %esi
movq 0x8(%rsp), %rdx
callq 0x8200
movq 0x48(%rsp), %rdx
movq 0x10(%rsp), %r8
incl %r13d
addl %r12d, %ebx
addl %r15d, %r14d
addl $0x2, %r15d
cmpl %r13d, %r12d
jne 0xb2ec2
movl 0x84(%rsp), %ebx
addl 0x7c(%rsp), %ebx
movl (%rsp), %r15d
movl 0x70(%rsp), %r14d
addl %r15d, %r14d
addl $0x2, %r15d
movl 0x80(%rsp), %eax
movl %eax, %edx
cmpl %r12d, %eax
jne 0xb2e8e
movq 0x38(%rsp), %r15
movl 0x54(%rsp), %r13d
jmp 0xb3084
movq %rcx, 0x60(%rsp)
movq 0x30(%rsp), %r14
jmp 0xb319b
movq 0x20(%r15), %rax
movq 0xd0(%r15), %rcx
movq (%rcx,%r8,8), %rdx
movq 0xd8(%r15), %rcx
movq (%rcx,%r8,8), %rcx
imull (%rax,%r8,4), %ebp
subq $0x8, %rsp
movq %r8, %r14
movl %ebp, %r8d
movapd 0x28(%rsp), %xmm0
leaq 0xc(%rsp), %r9
pushq 0x60(%rsp)
pushq %rbp
pushq (%rbx,%r14,8)
callq 0x18071
addq $0x20, %rsp
cmpl $0x1, %eax
je 0xb3269
movq 0x18(%r15), %rax
movq %rax, 0x60(%rsp)
movl (%rax,%r14,4), %r12d
movl 0x9c(%r15), %ebp
testl %r12d, %r12d
jle 0xb3081
xorl %eax, %eax
movl %r12d, %edx
imull %eax, %edx
leal 0x1(%rax), %ecx
movl %ecx, %esi
imull %eax, %esi
shrl %esi
subl %esi, %edx
movl %eax, %esi
cmpl %esi, %eax
jbe 0xb3001
movl %esi, %r8d
imull %r12d, %r8d
addl %eax, %r8d
leal 0x1(%rsi), %edi
imull %esi, %edi
shrl %edi
subl %edi, %r8d
jmp 0xb3005
leal (%rdx,%rsi), %r8d
testl %ebp, %ebp
jle 0xb3064
movq 0xb8(%r15), %rdi
movq 0x10(%rsp), %r9
movq (%rdi,%r9,8), %rdi
movslq %r8d, %r8
movl %ebp, %r9d
imull %r8d, %r9d
movslq %r9d, %r9
shlq $0x3, %r9
xorl %r10d, %r10d
cmpl %r13d, (%rdi,%r10,4)
jl 0xb3048
movq 0x28(%r15), %r11
movq 0x10(%rsp), %r14
movq (%r11,%r14,8), %r11
cmpw $0x0, (%r11,%r8,2)
jne 0xb305c
movq 0x10(%rsp), %r11
movq (%rbx,%r11,8), %r11
addq %r9, %r11
movq $0x0, (%r11,%r10,8)
incq %r10
cmpq %r10, %rbp
jne 0xb302d
incl %esi
cmpl %r12d, %esi
jne 0xb2fe6
movl %ecx, %eax
cmpl %r12d, %ecx
jne 0xb2fd2
movq 0x10(%rsp), %r8
jmp 0xb3084
movq %r14, %r8
testl %ebp, %ebp
jle 0xb31c8
movq 0x30(%rsp), %rax
movq (%rax,%r8,8), %rax
movl %ebp, %ecx
movq %rcx, 0x70(%rsp)
leal 0x1(%r12), %ecx
movl %ecx, (%rsp)
xorl %esi, %esi
movq $0x0, (%rax,%rsi,8)
testl %r12d, %r12d
jle 0xb3174
movq 0x68(%rsp), %rcx
movq 0x10(%rsp), %rdx
movq (%rcx,%rdx,8), %rdi
xorpd %xmm0, %xmm0
movl $0x2, %ebx
xorl %edx, %edx
xorl %r14d, %r14d
xorl %r15d, %r15d
movl %r12d, %r13d
imull %r15d, %r13d
leal 0x1(%r15), %ecx
movl %ecx, 0x40(%rsp)
imull %r15d, %ecx
shrl %ecx
subl %ecx, %r13d
movl %edx, 0x48(%rsp)
movl %ebx, %r8d
movl %r14d, 0x8(%rsp)
xorl %ecx, %ecx
movl %r15d, %r11d
cmpl %r11d, %r15d
jbe 0xb3112
movl %edx, %r9d
shrl %r9d
movl %r14d, %r10d
subl %r9d, %r10d
jmp 0xb3116
leal (%r11,%r13), %r10d
imull %ebp, %r10d
addl %esi, %r10d
movslq %r10d, %r9
subl $0x1, %ecx
jae 0xb312d
addsd (%rdi,%r9,8), %xmm0
jmp 0xb313b
movsd (%rdi,%r9,8), %xmm1
addsd %xmm1, %xmm1
addsd %xmm1, %xmm0
movsd %xmm0, (%rax,%rsi,8)
incl %r11d
addl %r12d, %r14d
addl %r8d, %edx
addl $0x2, %r8d
cmpl %r11d, %r12d
jne 0xb30ff
movl 0x8(%rsp), %r14d
addl (%rsp), %r14d
movl 0x48(%rsp), %edx
addl %ebx, %edx
addl $0x2, %ebx
movl 0x40(%rsp), %ecx
movl %ecx, %r15d
cmpl %r12d, %ecx
jne 0xb30d6
incq %rsi
cmpq 0x70(%rsp), %rsi
jne 0xb30a6
movq 0x68(%rsp), %rbx
movq 0x30(%rsp), %r14
movq 0x38(%rsp), %r15
movl 0x54(%rsp), %r13d
movq 0x10(%rsp), %r8
testl %ebp, %ebp
movq 0x88(%rsp), %rsi
jle 0xb31d2
movq (%r14,%r8,8), %rax
movl %ebp, %ecx
xorl %edx, %edx
movsd (%rax,%rdx,8), %xmm0
addsd (%rsi,%rdx,8), %xmm0
movsd %xmm0, (%rsi,%rdx,8)
incq %rdx
cmpq %rdx, %rcx
jne 0xb31af
jmp 0xb31d2
movq 0x68(%rsp), %rbx
movq 0x30(%rsp), %r14
incq %r8
movslq 0x10(%r15), %rax
cmpq %rax, %r8
jl 0xb2d54
xorl %eax, %eax
jmp 0xb32b6
leaq 0x3b200(%rip), %rsi     # 0xee3f0
leaq 0x6e5b8(%rip), %rdx     # 0x1217af
leaq 0xa0(%rsp), %rbx
movq %rbx, %rdi
movq 0x8(%rsp), %r14
movq %r14, %rcx
xorl %eax, %eax
callq 0x30af0
leaq 0x3ae1c(%rip), %rsi     # 0xee034
leaq 0x6e57f(%rip), %rdx     # 0x12179e
movq %r14, %rdi
movl $0x6f, %ecx
jmp 0xb32a7
leaq 0x3b1c0(%rip), %rsi     # 0xee3f0
leaq 0x6e660(%rip), %rdx     # 0x121897
leaq 0xa0(%rsp), %rbx
movq %rbx, %rdi
movq 0x58(%rsp), %r14
movq %r14, %rcx
xorl %eax, %eax
callq 0x30af0
leaq 0x3addc(%rip), %rsi     # 0xee034
leaq 0x6e53f(%rip), %rdx     # 0x12179e
movq %r14, %rdi
movl $0xa0, %ecx
jmp 0xb32a7
leaq 0x3b180(%rip), %rsi     # 0xee3f0
leaq 0x6e538(%rip), %rdx     # 0x1217af
leaq 0xa0(%rsp), %rbx
movq %rbx, %rdi
movq 0x58(%rsp), %r14
movq %r14, %rcx
xorl %eax, %eax
callq 0x30af0
leaq 0x3ad9c(%rip), %rsi     # 0xee034
leaq 0x6e4ff(%rip), %rdx     # 0x12179e
movq %r14, %rdi
movl $0xc0, %ecx
movq %rbx, %r8
xorl %eax, %eax
callq 0x30af0
movl $0x1, %eax
addq $0x8a8, %rsp            # imm = 0x8A8
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq