// File: /workspace/github_c_makefile_star2_O3/josch[P]stride/nsc.c
// Function: ico_dot_dod
int ico_dot_dod(int densit) { /* densit...required dots per unit sphere */
/* dot distribution on a unit sphere based on an icosaeder *
 * great circle average refining of icosahedral face       */

  int i, j, k, tl, tl2, tn, tess, j1, j2;
  double a, d, x, y, z, x2, y2, z2, x3, y3, z3, ai_d, adod;
  double xij, yij, zij, xji, yji, zji, xik, yik, zik, xki, yki, zki,
    xjk, yjk, zjk, xkj, ykj, zkj;
  point_double xus=NULL;
/* calculate tesselation level */
  a = sqrt((((double) densit)-2.)/30.);
  tess = MAXIMUM((int) ceil(a), 1);
  n_dot = 30*tess*tess+2;
  if (n_dot < densit) {
    ERROR("ico_dot_dod: error in formula for tessalation level (%d->%d, %d)",
      tess, n_dot, densit);
    }

  xus = (double *) CALLOC(3*n_dot, sizeof(double));
  xpunsp = xus;
  icosaeder_vertices(xus);

  tn=12;
/* square of the edge of an icosaeder */
    a = rh*rh*2.*(1.-cos(TORAD(72.)));
/* dodecaeder vertices */
  for (i=0; i<10; i++) {
    for (j=i+1; j<11; j++) {
      x = xus[3*i]-xus[3*j];
      y = xus[1+3*i]-xus[1+3*j]; z = xus[2+3*i]-xus[2+3*j];
      d = x*x+y*y+z*z;
      if (fabs(a-d) > DP_TOL) continue;
      for (k=j+1; k<12; k++) {
        x = xus[3*i]-xus[3*k];
        y = xus[1+3*i]-xus[1+3*k]; z = xus[2+3*i]-xus[2+3*k];
        d = x*x+y*y+z*z;
        if (fabs(a-d) > DP_TOL) continue;
        x = xus[3*j]-xus[3*k];
        y = xus[1+3*j]-xus[1+3*k]; z = xus[2+3*j]-xus[2+3*k];
        d = x*x+y*y+z*z;
        if (fabs(a-d) > DP_TOL) continue;
        x = xus[  3*i]+xus[  3*j]+xus[  3*k];
        y = xus[1+3*i]+xus[1+3*j]+xus[1+3*k];
        z = xus[2+3*i]+xus[2+3*j]+xus[2+3*k];
        d = sqrt(x*x+y*y+z*z);
        xus[3*tn]=x/d; xus[1+3*tn]=y/d; xus[2+3*tn]=z/d;
        tn++;
        }
      }
    }

  if (tess > 1) {
    tn = 32;
/* square of the edge of an dodecaeder */
    adod = 4.*(cos(TORAD(108.))-cos(TORAD(120.)))/(1.-cos(TORAD(120.)));
/* square of the distance of two adjacent vertices of ico- and dodecaeder */
    ai_d = 2.*(1.-sqrt(1.-a/3.));

/* calculate tessalation of mixed edges */
    for (i=0; i<31; i++) {
      j1 = 12; j2 = 32; a = ai_d;
      if (i>=12) { j1=i+1; a = adod; }
      for (j=j1; j<j2; j++) {
        x = xus[3*i]-xus[3*j];
        y = xus[1+3*i]-xus[1+3*j]; z = xus[2+3*i]-xus[2+3*j];
        d = x*x+y*y+z*z;
        if (fabs(a-d) > DP_TOL) continue;
        for (tl=1; tl<tess; tl++) {
          if (tn >= n_dot) {
            ERROR("ico_dot: tn exceeds dimension of xus");
            }
          divarc(xus[3*i], xus[1+3*i], xus[2+3*i],
                 xus[3*j], xus[1+3*j], xus[2+3*j],
            tl, tess, &xus[3*tn], &xus[1+3*tn], &xus[2+3*tn]);
          tn++;
          }
        }
      }
/* calculate tessalation of pentakisdodecahedron faces */
    for (i=0; i<12; i++) {
      for (j=12; j<31; j++) {
        x = xus[3*i]-xus[3*j];
        y = xus[1+3*i]-xus[1+3*j]; z = xus[2+3*i]-xus[2+3*j];
        d = x*x+y*y+z*z;
        if (fabs(ai_d-d) > DP_TOL) continue;

        for (k=j+1; k<32; k++) {
          x = xus[3*i]-xus[3*k];
          y = xus[1+3*i]-xus[1+3*k]; z = xus[2+3*i]-xus[2+3*k];
          d = x*x+y*y+z*z;
          if (fabs(ai_d-d) > DP_TOL) continue;
          x = xus[3*j]-xus[3*k];
          y = xus[1+3*j]-xus[1+3*k]; z = xus[2+3*j]-xus[2+3*k];
          d = x*x+y*y+z*z;
          if (fabs(adod-d) > DP_TOL) continue;
          for (tl=1; tl<tess-1; tl++) {
            divarc(xus[3*j], xus[1+3*j], xus[2+3*j],
                   xus[3*i], xus[1+3*i], xus[2+3*i],
              tl, tess, &xji, &yji, &zji);
            divarc(xus[3*k], xus[1+3*k], xus[2+3*k],
                   xus[3*i], xus[1+3*i], xus[2+3*i],
              tl, tess, &xki, &yki, &zki);

            for (tl2=1; tl2<tess-tl; tl2++) {
              divarc(xus[3*i], xus[1+3*i], xus[2+3*i],
                     xus[3*j], xus[1+3*j], xus[2+3*j],
                tl2, tess, &xij, &yij, &zij);
              divarc(xus[3*k], xus[1+3*k], xus[2+3*k],
                     xus[3*j], xus[1+3*j], xus[2+3*j],
                tl2, tess, &xkj, &ykj, &zkj);
              divarc(xus[3*i], xus[1+3*i], xus[2+3*i],
                     xus[3*k], xus[1+3*k], xus[2+3*k],
                tess-tl-tl2, tess, &xik, &yik, &zik);
              divarc(xus[3*j], xus[1+3*j], xus[2+3*j],
                     xus[3*k], xus[1+3*k], xus[2+3*k],
                tess-tl-tl2, tess, &xjk, &yjk, &zjk);
              if (tn >= n_dot) {
                ERROR("ico_dot: tn exceeds dimension of xus");
                }
              divarc(xki, yki, zki, xji, yji, zji, tl2, tess-tl,
                &x, &y, &z);
              divarc(xkj, ykj, zkj, xij, yij, zij, tl, tess-tl2,
                &x2, &y2, &z2);
              divarc(xjk, yjk, zjk, xik, yik, zik, tl, tl+tl2,
                &x3, &y3, &z3);
              x = x+x2+x3; y = y+y2+y3; z = z+z2+z3;
              d = sqrt(x*x+y*y+z*z);
              xus[3*tn] = x/d;
              xus[1+3*tn] = y/d;
              xus[2+3*tn] = z/d;
              tn++;
              }		/* cycle tl2 */
            }		/* cycle tl */
          }		/* cycle k */
        }		/* cycle j */
      }			/* cycle i */
    if (n_dot != tn) {
      ERROR("ico_dot: n_dot(%d) and tn(%d) differ", n_dot, tn);
      }
    }		/* end of if (tess > 1) */
  return n_dot;
  }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x1c8, %rsp            # imm = 0x1C8
movl %edi, %ebx
cvtsi2sd %edi, %xmm0
addsd 0x8320(%rip), %xmm0     # 0x1a880
divsd 0x8330(%rip), %xmm0     # 0x1a898
xorpd %xmm1, %xmm1
ucomisd %xmm1, %xmm0
jb 0x12578
sqrtsd %xmm0, %xmm0
jmp 0x1257d
callq 0x2250
callq 0x2260
cvttsd2si %xmm0, %eax
cmpl $0x2, %eax
movl $0x1, %esi
movq %rax, 0x28(%rsp)
cmovgel %eax, %esi
movl %esi, %edx
imull %edx, %edx
leal (%rdx,%rdx), %eax
shll $0x5, %edx
subl %eax, %edx
addl $0x2, %edx
movl %edx, 0x100ac(%rip)     # 0x22658
cmpl %ebx, %edx
movq %rsi, 0x10(%rsp)
jl 0x13160
leal (%rdx,%rdx,2), %eax
movslq %eax, %rdx
leaq 0x8383(%rip), %rdi      # 0x1a949
movl $0x8, %ecx
movl $0x129, %esi            # imm = 0x129
callq 0x11571
movq %rax, %r15
movq %rax, 0x10031(%rip)     # 0x22610
movq %rax, %rdi
callq 0x11617
movsd 0x10059(%rip), %xmm0    # 0x22648
mulsd %xmm0, %xmm0
addsd %xmm0, %xmm0
mulsd 0x8291(%rip), %xmm0     # 0x1a890
leaq 0x40(%r15), %rax
movl $0xc, %ecx
movl $0x1, %edx
xorl %esi, %esi
movapd 0x72a8(%rip), %xmm10    # 0x198c0
movsd 0x8247(%rip), %xmm11    # 0x1a868
movq %rsi, %rdi
incq %rsi
leaq (,%rdi,8), %r8
leaq (%r8,%r8,2), %r8
movq %rax, %r9
movq %rdx, %r10
leaq (,%r10,8), %r11
leaq (%r11,%r11,2), %r11
movsd (%r15,%r8), %xmm1
movsd 0x8(%r15,%r8), %xmm2
subsd (%r15,%r11), %xmm1
subsd 0x8(%r15,%r11), %xmm2
movsd 0x10(%r15,%r8), %xmm3
subsd 0x10(%r15,%r11), %xmm3
mulsd %xmm2, %xmm2
mulsd %xmm1, %xmm1
addsd %xmm2, %xmm1
mulsd %xmm3, %xmm3
addsd %xmm1, %xmm3
movapd %xmm0, %xmm1
subsd %xmm3, %xmm1
andpd %xmm10, %xmm1
ucomisd %xmm11, %xmm1
seta %bl
cmpq $0xb, %r10
setae %bpl
orb %bl, %bpl
jne 0x127c7
movq %r9, %rbx
movq %rdi, %r14
movupd (%r15,%r8), %xmm3
movupd -0x10(%rbx), %xmm1
movapd %xmm3, %xmm5
subpd %xmm1, %xmm5
movsd 0x10(%r15,%r8), %xmm4
movsd (%rbx), %xmm2
movapd %xmm4, %xmm6
subsd %xmm2, %xmm6
movapd %xmm5, %xmm7
mulpd %xmm5, %xmm7
unpckhpd %xmm7, %xmm7            # xmm7 = xmm7[1,1]
mulsd %xmm5, %xmm5
addsd %xmm7, %xmm5
mulsd %xmm6, %xmm6
addsd %xmm5, %xmm6
movapd %xmm0, %xmm5
subsd %xmm6, %xmm5
andpd %xmm10, %xmm5
ucomisd %xmm11, %xmm5
ja 0x127b6
movupd (%r15,%r11), %xmm5
movapd %xmm5, %xmm7
subpd %xmm1, %xmm7
movsd 0x10(%r15,%r11), %xmm6
movapd %xmm6, %xmm8
subsd %xmm2, %xmm8
movapd %xmm7, %xmm9
mulpd %xmm7, %xmm9
unpckhpd %xmm9, %xmm9            # xmm9 = xmm9[1,1]
mulsd %xmm7, %xmm7
addsd %xmm9, %xmm7
mulsd %xmm8, %xmm8
addsd %xmm7, %xmm8
movapd %xmm0, %xmm7
subsd %xmm8, %xmm7
andpd %xmm10, %xmm7
ucomisd %xmm11, %xmm7
ja 0x127b6
addpd %xmm5, %xmm3
addsd %xmm6, %xmm4
addsd %xmm4, %xmm2
leal (%rcx,%rcx,2), %ebp
movslq %ebp, %r12
addpd %xmm3, %xmm1
movapd %xmm1, %xmm3
mulpd %xmm1, %xmm3
unpckhpd %xmm3, %xmm3            # xmm3 = xmm3[1,1]
movapd %xmm1, %xmm4
mulsd %xmm1, %xmm4
addsd %xmm3, %xmm4
movapd %xmm2, %xmm3
mulsd %xmm2, %xmm3
addsd %xmm4, %xmm3
sqrtsd %xmm3, %xmm3
divsd %xmm3, %xmm2
unpcklpd %xmm3, %xmm3            # xmm3 = xmm3[0,0]
divpd %xmm3, %xmm1
movupd %xmm1, (%r15,%r12,8)
movsd %xmm2, 0x10(%r15,%r12,8)
incl %ecx
incq %r14
addq $0x18, %rbx
cmpq $0xa, %r14
jb 0x126ad
incq %r10
incq %rdi
addq $0x18, %r9
cmpq $0xb, %r10
jne 0x12639
incq %rdx
addq $0x18, %rax
cmpq $0xa, %rsi
jne 0x12621
cmpl $0x2, 0x28(%rsp)
jl 0x13148
divsd 0x80a1(%rip), %xmm0     # 0x1a8a0
addsd 0x7061(%rip), %xmm0     # 0x19868
xorpd %xmm1, %xmm1
ucomisd %xmm1, %xmm0
jb 0x12817
sqrtsd %xmm0, %xmm0
jmp 0x1282e
callq 0x2250
movsd 0x8043(%rip), %xmm11    # 0x1a868
movapd 0x7092(%rip), %xmm10    # 0x198c0
movq 0x10(%rsp), %rdx
movsd 0x702d(%rip), %xmm1     # 0x19868
subsd %xmm0, %xmm1
addsd %xmm1, %xmm1
movsd %xmm1, 0x30(%rsp)
movq 0x28(%rsp), %rax
decl %eax
movq %rax, 0x68(%rsp)
movl $0x20, %esi
xorl %eax, %eax
leaq 0x1(%rax), %rcx
movq %rcx, 0x48(%rsp)
movsd 0x30(%rsp), %xmm3
cmpq $0xc, %rax
jb 0x12879
movsd 0x802f(%rip), %xmm3     # 0x1a8a8
movl $0xb, %edi
cmovaeq %rax, %rdi
cmpl $0xc, %eax
movl $0xb, %ecx
cmovael %eax, %ecx
movl %edi, %r8d
subl %ecx, %r8d
addl $0x20, %r8d
incq %rdi
shlq $0x3, %rax
leaq (%rax,%rax,2), %r13
movsd %xmm3, 0x58(%rsp)
movq %r8, 0x50(%rsp)
leaq (,%rdi,8), %rax
leaq (%rax,%rax,2), %rbp
movsd (%r15,%r13), %xmm0
subsd (%r15,%rbp), %xmm0
movsd 0x8(%r15,%r13), %xmm1
subsd 0x8(%r15,%rbp), %xmm1
movsd 0x10(%r15,%r13), %xmm2
subsd 0x10(%r15,%rbp), %xmm2
mulsd %xmm1, %xmm1
mulsd %xmm0, %xmm0
addsd %xmm1, %xmm0
mulsd %xmm2, %xmm2
addsd %xmm0, %xmm2
movapd %xmm3, %xmm0
subsd %xmm2, %xmm0
andpd %xmm10, %xmm0
ucomisd %xmm11, %xmm0
ja 0x129b7
movq %rdi, 0x60(%rsp)
movl %esi, 0x8(%rsp)
movslq %esi, %r12
leaq (%r12,%r12,2), %rax
leaq (%r15,%rax,8), %r14
xorl %ebx, %ebx
leaq (%r12,%rbx), %rax
movslq 0xfd2a(%rip), %rcx      # 0x22658
cmpq %rcx, %rax
jge 0x12981
incq %rbx
movsd (%r15,%r13), %xmm0
movsd 0x8(%r15,%r13), %xmm1
movsd 0x10(%r15,%r13), %xmm2
movsd (%r15,%rbp), %xmm3
movsd 0x8(%r15,%rbp), %xmm4
movsd 0x10(%r15,%rbp), %xmm5
leaq 0x8(%r14), %rcx
leaq 0x10(%r14), %r8
movl %ebx, %edi
movq 0x10(%rsp), %rsi
movq %r14, %rdx
callq 0x11729
addq $0x18, %r14
cmpl %ebx, 0x68(%rsp)
jne 0x12923
jmp 0x12988
callq 0x26c5
jmp 0x12933
movl 0x8(%rsp), %eax
addl %ebx, %eax
movl %eax, %esi
movq 0x10(%rsp), %rdx
movapd 0x6f22(%rip), %xmm10    # 0x198c0
movsd 0x7ec1(%rip), %xmm11    # 0x1a868
movsd 0x58(%rsp), %xmm3
movq 0x60(%rsp), %rdi
movq 0x50(%rsp), %r8
incq %rdi
cmpq %r8, %rdi
jne 0x128ad
movq 0x48(%rsp), %rcx
movq %rcx, %rax
cmpq $0x1f, %rcx
jne 0x1285c
movl %esi, 0x8(%rsp)
leal -0x1(%rdx), %eax
cmpl $0x3, %eax
movl $0x2, %esi
cmovgel %eax, %esi
movq %r15, %rax
addq $0x10, %rax
movq %rax, 0xd8(%rsp)
movq %rdx, %rbp
movl %edx, %eax
negl %eax
cltq
addq $0x2, %rax
movq %rax, 0xc8(%rsp)
xorl %eax, %eax
leaq 0xb0(%rsp), %rdx
leaq 0xa8(%rsp), %r8
movl %esi, 0x1c(%rsp)
movq %rax, 0xb8(%rsp)
leaq (,%rax,8), %rax
leaq (%rax,%rax,2), %rax
movq %rax, 0x20(%rsp)
movl $0xc, %ecx
leaq (,%rcx,8), %rax
leaq (%rax,%rax,2), %rdi
movq 0x20(%rsp), %rax
movsd (%r15,%rax), %xmm0
subsd (%r15,%rdi), %xmm0
movsd 0x8(%r15,%rax), %xmm1
subsd 0x8(%r15,%rdi), %xmm1
movsd 0x10(%r15,%rax), %xmm2
movq %rdi, 0x38(%rsp)
subsd 0x10(%r15,%rdi), %xmm2
mulsd %xmm1, %xmm1
mulsd %xmm0, %xmm0
addsd %xmm1, %xmm0
mulsd %xmm2, %xmm2
addsd %xmm0, %xmm2
movsd 0x30(%rsp), %xmm0
subsd %xmm2, %xmm0
andpd %xmm10, %xmm0
ucomisd %xmm11, %xmm0
movq %rcx, 0xc0(%rsp)
ja 0x13110
movq %rcx, 0xd0(%rsp)
leaq 0x8(,%rcx,8), %rax
leaq (%rax,%rax,2), %rcx
movsd (%r15,%rcx), %xmm1
movsd 0x8(%r15,%rcx), %xmm0
movq 0x20(%rsp), %rax
movsd (%r15,%rax), %xmm3
movsd 0x8(%r15,%rax), %xmm4
subsd %xmm1, %xmm3
subsd %xmm0, %xmm4
movsd 0x10(%r15,%rax), %xmm5
movq %rcx, 0xa0(%rsp)
movsd 0x10(%r15,%rcx), %xmm2
subsd %xmm2, %xmm5
mulsd %xmm4, %xmm4
mulsd %xmm3, %xmm3
addsd %xmm4, %xmm3
mulsd %xmm5, %xmm5
addsd %xmm3, %xmm5
movsd 0x30(%rsp), %xmm3
subsd %xmm5, %xmm3
andpd %xmm10, %xmm3
ucomisd %xmm11, %xmm3
ja 0x130e9
movq 0x38(%rsp), %rax
movsd (%r15,%rax), %xmm3
subsd %xmm1, %xmm3
movsd %xmm3, 0x80(%rsp)
movsd 0x8(%r15,%rax), %xmm1
subsd %xmm0, %xmm1
movsd %xmm1, 0x78(%rsp)
movsd 0x10(%r15,%rax), %xmm0
subsd %xmm2, %xmm0
movsd %xmm0, 0x70(%rsp)
mulsd %xmm1, %xmm1
mulsd %xmm3, %xmm3
addsd %xmm1, %xmm3
mulsd %xmm0, %xmm0
addsd %xmm3, %xmm0
movsd 0x7d1c(%rip), %xmm1     # 0x1a8a8
subsd %xmm0, %xmm1
andpd %xmm10, %xmm1
ucomisd %xmm11, %xmm1
ja 0x130e9
cmpl $0x2, 0x28(%rsp)
je 0x130e9
movl $0x1, %eax
movl $0x2, %ecx
movq %rcx, 0x98(%rsp)
movl $0xfffffffe, %ecx       # imm = 0xFFFFFFFE
movq %rcx, 0x40(%rsp)
movq 0xc8(%rsp), %rcx
movq %rcx, 0x90(%rsp)
movl %eax, 0xc(%rsp)
movq 0x38(%rsp), %rax
movsd (%r15,%rax), %xmm0
movsd 0x8(%r15,%rax), %xmm1
movsd 0x10(%r15,%rax), %xmm2
movq 0x20(%rsp), %r14
movsd (%r15,%r14), %xmm3
movsd 0x8(%r15,%r14), %xmm4
movsd 0x10(%r15,%r14), %xmm5
movl 0xc(%rsp), %edi
movq %rbp, %rbx
movl %ebp, %esi
movq %rdx, %r13
movq %r8, %r12
movq %r8, %rcx
leaq 0x178(%rsp), %r8
callq 0x11729
movq 0xa0(%rsp), %rax
movsd (%r15,%rax), %xmm0
movsd 0x8(%r15,%rax), %xmm1
movsd 0x10(%r15,%rax), %xmm2
movsd (%r15,%r14), %xmm3
movsd 0x8(%r15,%r14), %xmm4
movsd 0x10(%r15,%r14), %xmm5
movl 0xc(%rsp), %edi
movl %ebp, %esi
leaq 0x158(%rsp), %rdx
leaq 0x150(%rsp), %rcx
leaq 0x148(%rsp), %r8
callq 0x11729
movl 0xc(%rsp), %eax
movl %ebp, %ecx
subl %eax, %ecx
movl %ecx, 0x8c(%rsp)
cmpl $0x2, %ecx
jl 0x1309a
movsd 0x158(%rsp), %xmm0
movsd %xmm0, 0x110(%rsp)
movsd 0x150(%rsp), %xmm0
movsd %xmm0, 0x108(%rsp)
movsd 0x148(%rsp), %xmm0
movsd %xmm0, 0x100(%rsp)
movsd 0xb0(%rsp), %xmm0
movsd %xmm0, 0xf8(%rsp)
movsd 0xa8(%rsp), %xmm0
movsd %xmm0, 0xf0(%rsp)
movsd 0x178(%rsp), %xmm0
movsd %xmm0, 0xe8(%rsp)
movslq 0x8(%rsp), %rax
movq %rax, 0xe0(%rsp)
leaq (%rax,%rax,2), %rax
movq 0xd8(%rsp), %rcx
leaq (%rcx,%rax,8), %rcx
movl %ebx, %r12d
xorl %edx, %edx
movq %r12, 0x48(%rsp)
movq %rdx, 0x58(%rsp)
movq %rcx, 0x60(%rsp)
movq 0xe0(%rsp), %rax
addq %rdx, %rax
movq %rax, 0x50(%rsp)
leaq 0x1(%rdx), %r12
movq 0x20(%rsp), %r14
movsd (%r15,%r14), %xmm0
movsd 0x8(%r15,%r14), %xmm1
movsd 0x10(%r15,%r14), %xmm2
movq 0x38(%rsp), %r13
movsd (%r15,%r13), %xmm3
movsd 0x8(%r15,%r13), %xmm4
movsd 0x10(%r15,%r13), %xmm5
movl %r12d, %edi
movl %ebp, %esi
leaq 0x190(%rsp), %rdx
leaq 0x188(%rsp), %rcx
leaq 0x180(%rsp), %r8
callq 0x11729
movq 0xa0(%rsp), %rbx
movsd (%r15,%rbx), %xmm0
movsd 0x8(%r15,%rbx), %xmm1
movsd 0x10(%r15,%rbx), %xmm2
movsd (%r15,%r13), %xmm3
movsd 0x8(%r15,%r13), %xmm4
movsd 0x10(%r15,%r13), %xmm5
movq %r12, 0x68(%rsp)
movl %r12d, %edi
movq 0x48(%rsp), %r12
movl %ebp, %esi
leaq 0x128(%rsp), %rdx
leaq 0x120(%rsp), %rcx
leaq 0x118(%rsp), %r8
callq 0x11729
movsd (%r15,%r14), %xmm0
movsd 0x8(%r15,%r14), %xmm1
movsd 0x10(%r15,%r14), %xmm2
movsd (%r15,%rbx), %xmm3
movsd 0x8(%r15,%rbx), %xmm4
movsd 0x10(%r15,%rbx), %xmm5
movq 0x40(%rsp), %rax
leal (%rax,%r12), %r14d
movl %r14d, %edi
movq 0x10(%rsp), %rsi
leaq 0x170(%rsp), %rdx
leaq 0x168(%rsp), %rcx
leaq 0x160(%rsp), %r8
callq 0x11729
movsd (%r15,%r13), %xmm0
movsd 0x8(%r15,%r13), %xmm1
movsd 0x10(%r15,%r13), %xmm2
movsd (%r15,%rbx), %xmm3
movsd 0x8(%r15,%rbx), %xmm4
movsd 0x10(%r15,%rbx), %xmm5
movl %r14d, %edi
movq 0x10(%rsp), %rsi
movq %rsi, %rbp
leaq 0x140(%rsp), %rdx
leaq 0x138(%rsp), %rcx
leaq 0x130(%rsp), %r8
callq 0x11729
movslq 0xf7b3(%rip), %rax      # 0x22658
cmpq %rax, 0x50(%rsp)
jge 0x13090
movsd 0x110(%rsp), %xmm0
movsd 0x108(%rsp), %xmm1
movsd 0x100(%rsp), %xmm2
movsd 0xf8(%rsp), %xmm3
movsd 0xf0(%rsp), %xmm4
movsd 0xe8(%rsp), %xmm5
movq 0x68(%rsp), %r14
movl %r14d, %edi
movl 0x8c(%rsp), %esi
leaq 0x80(%rsp), %rdx
leaq 0x78(%rsp), %rcx
leaq 0x70(%rsp), %r8
callq 0x11729
movsd 0x128(%rsp), %xmm0
movsd 0x120(%rsp), %xmm1
movsd 0x118(%rsp), %xmm2
movsd 0x190(%rsp), %xmm3
movsd 0x188(%rsp), %xmm4
movsd 0x180(%rsp), %xmm5
decl %r12d
movl 0xc(%rsp), %ebx
movl %ebx, %edi
movl %r12d, %esi
leaq 0x1c0(%rsp), %rdx
leaq 0x1b8(%rsp), %rcx
leaq 0x1b0(%rsp), %r8
callq 0x11729
movsd 0x140(%rsp), %xmm0
movsd 0x138(%rsp), %xmm1
movsd 0x130(%rsp), %xmm2
movsd 0x170(%rsp), %xmm3
movsd 0x168(%rsp), %xmm4
movsd 0x160(%rsp), %xmm5
movq 0x58(%rsp), %rsi
addl 0x98(%rsp), %esi
movl %ebx, %edi
leaq 0x1a8(%rsp), %rdx
leaq 0x1a0(%rsp), %rcx
leaq 0x198(%rsp), %r8
callq 0x11729
movsd 0x70(%rsp), %xmm0
addsd 0x1b0(%rsp), %xmm0
addsd 0x198(%rsp), %xmm0
movsd %xmm0, 0x70(%rsp)
movsd 0x80(%rsp), %xmm1
movhpd 0x78(%rsp), %xmm1       # xmm1 = xmm1[0],mem[0]
movsd 0x1c0(%rsp), %xmm2
movhpd 0x1b8(%rsp), %xmm2      # xmm2 = xmm2[0],mem[0]
addpd %xmm1, %xmm2
movsd 0x1a8(%rsp), %xmm1
movhpd 0x1a0(%rsp), %xmm1      # xmm1 = xmm1[0],mem[0]
addpd %xmm2, %xmm1
movlpd %xmm1, 0x80(%rsp)
movapd %xmm1, %xmm2
unpckhpd %xmm1, %xmm2            # xmm2 = xmm2[1],xmm1[1]
movhpd %xmm1, 0x78(%rsp)
mulsd %xmm2, %xmm2
movapd %xmm1, %xmm3
mulsd %xmm1, %xmm3
addsd %xmm2, %xmm3
movapd %xmm0, %xmm2
mulsd %xmm0, %xmm2
addsd %xmm3, %xmm2
sqrtsd %xmm2, %xmm2
divsd %xmm2, %xmm0
unpcklpd %xmm2, %xmm2            # xmm2 = xmm2[0,0]
divpd %xmm2, %xmm1
movq 0x60(%rsp), %rcx
movupd %xmm1, -0x10(%rcx)
movsd %xmm0, (%rcx)
addq $0x18, %rcx
movq 0x90(%rsp), %rax
movq %r14, %rdx
addl %r14d, %eax
jne 0x12d25
jmp 0x130a6
callq 0x26eb
jmp 0x12eb0
movl 0x1c(%rsp), %esi
movq %r13, %rdx
movq %r12, %r8
jmp 0x130c3
addl %r14d, 0x8(%rsp)
movl 0x1c(%rsp), %esi
leaq 0xb0(%rsp), %rdx
leaq 0xa8(%rsp), %r8
movl 0xc(%rsp), %eax
incl %eax
incq 0x90(%rsp)
incq 0x98(%rsp)
movq 0x40(%rsp), %rcx
decl %ecx
movq %rcx, 0x40(%rsp)
cmpl %esi, %eax
jne 0x12bd7
movq 0xd0(%rsp), %rcx
incq %rcx
cmpq $0x1f, %rcx
movapd 0x67bf(%rip), %xmm10    # 0x198c0
movsd 0x775e(%rip), %xmm11    # 0x1a868
jne 0x12ab3
movq 0xc0(%rsp), %rcx
incq %rcx
cmpq $0x1f, %rcx
jne 0x12a3f
movq 0xb8(%rsp), %rax
incq %rax
cmpq $0xc, %rax
jne 0x12a21
movl 0xf518(%rip), %esi      # 0x22658
movl 0x8(%rsp), %edx
cmpl %edx, %esi
jne 0x13193
movl 0xf50a(%rip), %eax      # 0x22658
addq $0x1c8, %rsp            # imm = 0x1C8
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0x77e2(%rip), %rax      # 0x1a949
movq %rax, 0xf4d2(%rip)      # 0x22640
movl $0x125, 0xf4c0(%rip)    # imm = 0x125
leaq 0x7928(%rip), %rdi      # 0x1aaa7
movl %ebx, %ecx
xorl %eax, %eax
callq 0x24b8
movl 0xf4ca(%rip), %edx      # 0x22658
jmp 0x125b9
leaq 0x77af(%rip), %rax      # 0x1a949
movq %rax, 0xf49f(%rip)      # 0x22640
movl $0x1a0, 0xf48d(%rip)    # imm = 0x1A0
leaq 0x78d0(%rip), %rdi      # 0x1aa82
xorl %eax, %eax
callq 0x24b8
jmp 0x13148