// File: /workspace/github_c_makefile_star2_O2/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 $0x1b8, %rsp            # imm = 0x1B8
movl %edi, %ebx
cvtsi2sd %edi, %xmm0
addsd 0x745b(%rip), %xmm0     # 0x19830
divsd 0x746b(%rip), %xmm0     # 0x19848
xorpd %xmm1, %xmm1
ucomisd %xmm1, %xmm0
jb 0x123ed
sqrtsd %xmm0, %xmm0
jmp 0x123f2
callq 0x2260
callq 0x2270
cvttsd2si %xmm0, %eax
cmpl $0x2, %eax
pushq $0x1
popq %rcx
movl %ecx, %esi
movq %rax, 0x8(%rsp)
cmovgel %eax, %esi
movl %esi, %eax
imull %esi, %eax
imull $0x1e, %eax, %edx
addl $0x2, %edx
movl %edx, 0xf24c(%rip)      # 0x21668
cmpl %ebx, %edx
movq %rsi, 0x30(%rsp)
jge 0x12453
leaq 0x74cd(%rip), %rax      # 0x198f9
movq %rax, 0xf21d(%rip)      # 0x21650
movl $0x125, 0xf20b(%rip)    # imm = 0x125
leaq 0x7613(%rip), %rdi      # 0x19a57
movl %ebx, %ecx
xorl %eax, %eax
callq 0x11240
movl 0xf215(%rip), %edx      # 0x21668
leal (%rdx,%rdx,2), %eax
movslq %eax, %rdx
leaq 0x7499(%rip), %rdi      # 0x198f9
pushq $0x8
popq %rcx
movl $0x129, %esi            # imm = 0x129
callq 0x1146e
movq %rax, %r15
movq %rax, 0xf1a9(%rip)      # 0x21620
movq %rax, %rdi
callq 0x11510
movsd 0xf1d1(%rip), %xmm0     # 0x21658
mulsd %xmm0, %xmm0
addsd %xmm0, %xmm0
mulsd 0x73a9(%rip), %xmm0     # 0x19840
leaq 0x28(%r15), %rbp
pushq $0xc
popq %rax
pushq $0x1
popq %rcx
xorl %edx, %edx
movapd 0x6414(%rip), %xmm10    # 0x188c0
movsd 0x7363(%rip), %xmm11    # 0x19818
cmpq $0xa, %rdx
je 0x12660
imulq $0x18, %rdx, %rsi
movq %rcx, %rdi
cmpq $0xb, %rdi
je 0x12655
imulq $0x18, %rdi, %r8
movsd (%r15,%rsi), %xmm1
subsd (%r15,%r8), %xmm1
movsd 0x8(%r15,%rsi), %xmm2
subsd 0x8(%r15,%r8), %xmm2
movsd 0x10(%r15,%rsi), %xmm3
subsd 0x10(%r15,%r8), %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
jbe 0x12529
incq %rdi
jmp 0x124c6
movq %rdi, %r9
imulq $0x18, %r9, %r10
addq %rbp, %r10
cmpq $0xa, %r9
ja 0x12524
movupd (%r15,%rsi), %xmm3
movupd -0x10(%r10), %xmm1
movapd %xmm3, %xmm5
subpd %xmm1, %xmm5
movsd 0x10(%r15,%rsi), %xmm4
movsd (%r10), %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 0x125e7
movupd (%r15,%r8), %xmm5
movapd %xmm5, %xmm7
subpd %xmm1, %xmm7
movsd 0x10(%r15,%r8), %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
jbe 0x125f3
addq $0x18, %r10
incq %r9
jmp 0x12533
addpd %xmm5, %xmm3
addsd %xmm6, %xmm4
addsd %xmm4, %xmm2
leal (%rax,%rax,2), %r10d
movslq %r10d, %r10
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,%r10,8)
movsd %xmm2, 0x10(%r15,%r10,8)
incl %eax
incq %r9
jmp 0x1252c
incq %rdx
incq %rcx
jmp 0x124b5
cmpl $0x2, 0x8(%rsp)
jl 0x12ffe
divsd 0x71dd(%rip), %xmm0     # 0x19850
addsd 0x61ed(%rip), %xmm0     # 0x18868
xorpd %xmm1, %xmm1
ucomisd %xmm1, %xmm0
jb 0x1268b
sqrtsd %xmm0, %xmm0
jmp 0x126a2
callq 0x2260
movsd 0x717f(%rip), %xmm11    # 0x19818
movapd 0x621e(%rip), %xmm10    # 0x188c0
movsd 0x61be(%rip), %xmm1     # 0x18868
subsd %xmm0, %xmm1
addsd %xmm1, %xmm1
movsd %xmm1, 0x58(%rsp)
movq 0x8(%rsp), %rax
decl %eax
movq %rax, 0x8(%rsp)
pushq $0x20
popq %rax
movq %rax, (%rsp)
xorl %ecx, %ecx
movq %r15, 0x38(%rsp)
movq %rbp, 0x88(%rsp)
cmpq $0x1f, %rcx
je 0x12885
pushq $0xb
popq %rdx
movsd 0x7169(%rip), %xmm0     # 0x19858
movsd %xmm0, 0x48(%rsp)
cmpq $0xc, %rcx
cmovaeq %rcx, %rdx
jae 0x1270b
movsd 0x58(%rsp), %xmm0
movsd %xmm0, 0x48(%rsp)
imulq $0x18, %rcx, %r13
incq %rcx
movq %rcx, 0x68(%rsp)
movq (%rsp), %rax
movq 0x8(%rsp), %rcx
addl %eax, %ecx
movq %rax, (%rsp)
movslq %eax, %rbx
imulq $0x18, %rbx, %r14
addq %r15, %r14
movl %ecx, 0x70(%rsp)
movslq %ecx, %rax
movq %rax, 0x50(%rsp)
imulq $0x18, %rdx, %rax
addq %rbp, %rax
movq %rdx, %rcx
incq %rdx
leaq 0x18(%rax), %r12
cmpq $0x1e, %rcx
ja 0x1287b
movsd (%r15,%r13), %xmm0
movsd 0x8(%r15,%r13), %xmm1
subsd -0x10(%rax), %xmm0
subsd -0x8(%rax), %xmm1
movsd 0x10(%r15,%r13), %xmm2
subsd (%rax), %xmm2
mulsd %xmm1, %xmm1
mulsd %xmm0, %xmm0
addsd %xmm1, %xmm0
mulsd %xmm2, %xmm2
addsd %xmm0, %xmm2
movsd 0x48(%rsp), %xmm0
subsd %xmm2, %xmm0
andpd %xmm10, %xmm0
ucomisd %xmm11, %xmm0
movq %r12, %rax
ja 0x12743
movq (%rsp), %rax
addl 0x8(%rsp), %eax
movq %rax, (%rsp)
pushq $0x1
popq %rbp
cmpq %rbx, 0x50(%rsp)
je 0x1285d
movq %rdx, %r15
movslq 0xee9e(%rip), %rax      # 0x21668
cmpq %rax, %rbx
jl 0x127f5
leaq 0x7123(%rip), %rax      # 0x198f9
movq %rax, 0xee73(%rip)      # 0x21650
movl $0x15c, 0xee61(%rip)    # imm = 0x15C
leaq 0x721f(%rip), %rdi      # 0x19a0d
xorl %eax, %eax
callq 0x11240
movq 0x38(%rsp), %rax
movsd (%rax,%r13), %xmm0
movsd 0x8(%rax,%r13), %xmm1
movsd 0x10(%rax,%r13), %xmm2
movsd -0x28(%r12), %xmm3
movsd -0x20(%r12), %xmm4
movsd -0x18(%r12), %xmm5
leaq 0x8(%r14), %rcx
leaq 0x10(%r14), %r8
movl %ebp, %edi
movq 0x30(%rsp), %rsi
movq %r14, %rdx
callq 0x11622
incq %rbx
incl %ebp
addq $0x18, %r14
movapd 0x6074(%rip), %xmm10    # 0x188c0
movsd 0x6fc3(%rip), %xmm11    # 0x19818
movq %r15, %rdx
jmp 0x127b5
movl 0x70(%rsp), %ecx
addl 0x8(%rsp), %ecx
movq 0x38(%rsp), %r15
movq 0x88(%rsp), %rbp
movq (%rsp), %rax
jmp 0x12722
movq 0x68(%rsp), %rcx
jmp 0x126da
movq 0x30(%rsp), %rax
leal -0x1(%rax), %ecx
movl %ecx, 0x80(%rsp)
movq %r15, %rcx
addq $0x10, %rcx
movq %rcx, 0xb8(%rsp)
addl $-0x2, %eax
movl %eax, 0x7c(%rsp)
xorl %eax, %eax
cmpq $0xc, %rax
je 0x12fca
movq %rax, 0xa0(%rsp)
imulq $0x18, %rax, %rax
movq %rax, 0x40(%rsp)
pushq $0xc
popq %rcx
cmpq $0x1f, %rcx
je 0x12fba
imulq $0x18, %rcx, %rdx
movq 0x40(%rsp), %rax
movsd (%r15,%rax), %xmm0
subsd (%r15,%rdx), %xmm0
movsd 0x8(%r15,%rax), %xmm1
subsd 0x8(%r15,%rdx), %xmm1
movsd 0x10(%r15,%rax), %xmm2
movq %rdx, 0x60(%rsp)
subsd 0x10(%r15,%rdx), %xmm2
mulsd %xmm1, %xmm1
mulsd %xmm0, %xmm0
addsd %xmm1, %xmm0
mulsd %xmm2, %xmm2
addsd %xmm0, %xmm2
movsd 0x58(%rsp), %xmm0
subsd %xmm2, %xmm0
andpd %xmm10, %xmm0
ucomisd %xmm11, %xmm0
ja 0x12fb2
movq %rcx, %rdx
movsd 0x20(%rsp), %xmm0
movsd 0x18(%rsp), %xmm1
movsd 0x10(%rsp), %xmm2
imulq $0x18, %rdx, %rsi
incq %rdx
addq %rbp, %rsi
cmpq $0x20, %rdx
je 0x12fa0
movsd -0x10(%rsi), %xmm4
movsd -0x8(%rsi), %xmm3
movq 0x40(%rsp), %rax
movsd (%r15,%rax), %xmm0
movsd 0x8(%r15,%rax), %xmm1
subsd %xmm4, %xmm0
subsd %xmm3, %xmm1
movsd 0x10(%r15,%rax), %xmm2
movsd (%rsi), %xmm5
subsd %xmm5, %xmm2
movapd %xmm1, %xmm6
mulsd %xmm1, %xmm6
movapd %xmm0, %xmm7
mulsd %xmm0, %xmm7
addsd %xmm6, %xmm7
movapd %xmm2, %xmm6
mulsd %xmm2, %xmm6
addsd %xmm7, %xmm6
movsd 0x58(%rsp), %xmm7
subsd %xmm6, %xmm7
andpd %xmm10, %xmm7
ucomisd %xmm11, %xmm7
ja 0x12a27
movq 0x60(%rsp), %rax
movsd (%r15,%rax), %xmm0
movsd 0x8(%r15,%rax), %xmm1
subsd %xmm4, %xmm0
subsd %xmm3, %xmm1
movsd 0x10(%r15,%rax), %xmm2
subsd %xmm5, %xmm2
movapd %xmm1, %xmm3
mulsd %xmm1, %xmm3
movapd %xmm0, %xmm4
mulsd %xmm0, %xmm4
addsd %xmm3, %xmm4
movapd %xmm2, %xmm3
mulsd %xmm2, %xmm3
addsd %xmm4, %xmm3
movsd 0x6e41(%rip), %xmm4     # 0x19858
subsd %xmm3, %xmm4
andpd %xmm10, %xmm4
ucomisd %xmm11, %xmm4
jbe 0x12a33
incq %rdx
addq $0x18, %rsi
jmp 0x12957
movq %rdx, 0xa8(%rsp)
movq %rcx, 0xb0(%rsp)
movsd %xmm0, 0x20(%rsp)
movsd %xmm1, 0x18(%rsp)
movsd %xmm2, 0x10(%rsp)
pushq $0x2
popq %rax
movq %rax, 0x90(%rsp)
movl 0x7c(%rsp), %eax
movl %eax, 0x28(%rsp)
pushq $0x1
popq %r12
movq (%rsp), %r13
movq %rsi, 0x98(%rsp)
movl 0x80(%rsp), %ebp
cmpl %ebp, %r12d
movq %r13, (%rsp)
je 0x12f83
movq 0x60(%rsp), %rax
movsd (%r15,%rax), %xmm0
movsd 0x8(%r15,%rax), %xmm1
movsd 0x10(%r15,%rax), %xmm2
movq 0x40(%rsp), %r14
movsd (%r15,%r14), %xmm3
movsd 0x8(%r15,%r14), %xmm4
movsd 0x10(%r15,%r14), %xmm5
movl %r12d, %edi
movq 0x30(%rsp), %rbx
movl %r12d, 0x2c(%rsp)
movq %rsi, %r12
movl %ebx, %esi
leaq 0x168(%rsp), %rdx
leaq 0x160(%rsp), %rcx
leaq 0x158(%rsp), %r8
callq 0x11622
movsd -0x10(%r12), %xmm0
movsd -0x8(%r12), %xmm1
movsd (%r12), %xmm2
movl 0x2c(%rsp), %r12d
movsd (%r15,%r14), %xmm3
movsd 0x8(%r15,%r14), %xmm4
movsd 0x10(%r15,%r14), %xmm5
movl %r12d, %edi
movl %ebx, %esi
leaq 0x138(%rsp), %rdx
leaq 0x130(%rsp), %rcx
leaq 0x128(%rsp), %r8
callq 0x11622
movl %ebx, %r14d
subl %r12d, %r14d
movsd 0x138(%rsp), %xmm0
movsd %xmm0, 0xf0(%rsp)
movsd 0x130(%rsp), %xmm0
movsd %xmm0, 0xe8(%rsp)
movsd 0x128(%rsp), %xmm0
movsd %xmm0, 0xe0(%rsp)
movsd 0x168(%rsp), %xmm0
movsd %xmm0, 0xd8(%rsp)
movsd 0x160(%rsp), %xmm0
movsd %xmm0, 0xd0(%rsp)
movsd 0x158(%rsp), %xmm0
movsd %xmm0, 0xc8(%rsp)
movslq %r13d, %rax
movq %rax, 0xc0(%rsp)
imulq $0x18, %rax, %rax
addq 0xb8(%rsp), %rax
movl 0x28(%rsp), %r13d
xorl %ecx, %ecx
movl %r14d, 0x84(%rsp)
leaq 0x1(%rcx), %rbx
cmpl %r14d, %ebx
jge 0x12f49
movq %rax, 0x48(%rsp)
movq 0xc0(%rsp), %rax
movq %rcx, 0x70(%rsp)
addq %rcx, %rax
movq %rax, 0x68(%rsp)
movl %r13d, 0x50(%rsp)
movq 0x38(%rsp), %r13
movq 0x40(%rsp), %r14
movsd (%r13,%r14), %xmm0
movsd 0x8(%r13,%r14), %xmm1
movsd 0x10(%r13,%r14), %xmm2
movq 0x60(%rsp), %r12
movsd (%r13,%r12), %xmm3
movsd 0x8(%r13,%r12), %xmm4
movsd 0x10(%r13,%r12), %xmm5
movl %ebx, %edi
movq 0x30(%rsp), %r15
movl %r15d, %esi
leaq 0x180(%rsp), %rdx
leaq 0x178(%rsp), %rcx
leaq 0x170(%rsp), %r8
callq 0x11622
movl %ebp, 0x8(%rsp)
movq 0x98(%rsp), %rbp
movsd -0x10(%rbp), %xmm0
movsd -0x8(%rbp), %xmm1
movsd (%rbp), %xmm2
movsd (%r13,%r12), %xmm3
movsd 0x8(%r13,%r12), %xmm4
movsd 0x10(%r13,%r12), %xmm5
movl %ebx, %edi
movl %r15d, %esi
leaq 0x108(%rsp), %rdx
leaq 0x100(%rsp), %rcx
leaq 0xf8(%rsp), %r8
callq 0x11622
movsd (%r13,%r14), %xmm0
movsd 0x8(%r13,%r14), %xmm1
movsd 0x10(%r13,%r14), %xmm2
movsd -0x10(%rbp), %xmm3
movsd -0x8(%rbp), %xmm4
movsd (%rbp), %xmm5
movl 0x50(%rsp), %edi
movl %r15d, %esi
leaq 0x150(%rsp), %rdx
leaq 0x148(%rsp), %rcx
leaq 0x140(%rsp), %r8
callq 0x11622
movsd (%r13,%r12), %xmm0
movsd 0x8(%r13,%r12), %xmm1
movsd 0x10(%r13,%r12), %xmm2
movl 0x50(%rsp), %r13d
movsd -0x10(%rbp), %xmm3
movsd -0x8(%rbp), %xmm4
movsd (%rbp), %xmm5
movl %r13d, %edi
movl %r15d, %esi
leaq 0x120(%rsp), %rdx
leaq 0x118(%rsp), %rcx
leaq 0x110(%rsp), %r8
callq 0x11622
movslq 0xe91b(%rip), %rax      # 0x21668
cmpq %rax, 0x68(%rsp)
jl 0x12d7a
leaq 0x6b9e(%rip), %rax      # 0x198f9
movq %rax, 0xe8ee(%rip)      # 0x21650
movl $0x18c, 0xe8dc(%rip)    # imm = 0x18C
leaq 0x6c9a(%rip), %rdi      # 0x19a0d
xorl %eax, %eax
callq 0x11240
movsd 0xf0(%rsp), %xmm0
movsd 0xe8(%rsp), %xmm1
movsd 0xe0(%rsp), %xmm2
movsd 0xd8(%rsp), %xmm3
movsd 0xd0(%rsp), %xmm4
movsd 0xc8(%rsp), %xmm5
movl %ebx, %edi
movl 0x84(%rsp), %r14d
movl %r14d, %esi
leaq 0x20(%rsp), %rdx
leaq 0x18(%rsp), %rcx
leaq 0x10(%rsp), %r8
callq 0x11622
movsd 0x108(%rsp), %xmm0
movsd 0x100(%rsp), %xmm1
movsd 0xf8(%rsp), %xmm2
movsd 0x180(%rsp), %xmm3
movsd 0x178(%rsp), %xmm4
movsd 0x170(%rsp), %xmm5
movl 0x2c(%rsp), %r12d
movl %r12d, %edi
movl 0x8(%rsp), %ebp
movl %ebp, %esi
leaq 0x1b0(%rsp), %rdx
leaq 0x1a8(%rsp), %rcx
leaq 0x1a0(%rsp), %r8
callq 0x11622
movsd 0x120(%rsp), %xmm0
movsd 0x118(%rsp), %xmm1
movsd 0x110(%rsp), %xmm2
movsd 0x150(%rsp), %xmm3
movsd 0x148(%rsp), %xmm4
movsd 0x140(%rsp), %xmm5
movq 0x70(%rsp), %rsi
addl 0x90(%rsp), %esi
movl %r12d, %edi
leaq 0x198(%rsp), %rdx
leaq 0x190(%rsp), %rcx
leaq 0x188(%rsp), %r8
callq 0x11622
movsd 0x10(%rsp), %xmm0
addsd 0x1a0(%rsp), %xmm0
addsd 0x188(%rsp), %xmm0
movsd %xmm0, 0x10(%rsp)
movsd 0x20(%rsp), %xmm1
movhpd 0x18(%rsp), %xmm1       # xmm1 = xmm1[0],mem[0]
movsd 0x1b0(%rsp), %xmm2
movhpd 0x1a8(%rsp), %xmm2      # xmm2 = xmm2[0],mem[0]
addpd %xmm1, %xmm2
movsd 0x198(%rsp), %xmm1
movhpd 0x190(%rsp), %xmm1      # xmm1 = xmm1[0],mem[0]
addpd %xmm2, %xmm1
movlpd %xmm1, 0x20(%rsp)
movapd %xmm1, %xmm2
unpckhpd %xmm1, %xmm2            # xmm2 = xmm2[1],xmm1[1]
movhpd %xmm1, 0x18(%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 0x48(%rsp), %rax
movupd %xmm1, -0x10(%rax)
movsd %xmm0, (%rax)
addq $0x18, %rax
decl %r13d
decl %ebp
movq %rbx, %rcx
jmp 0x12bd4
movq (%rsp), %r13
addl %ecx, %r13d
incl %r12d
decl 0x28(%rsp)
incq 0x90(%rsp)
movq 0x38(%rsp), %r15
movapd 0x5953(%rip), %xmm10    # 0x188c0
movsd 0x68a2(%rip), %xmm11    # 0x19818
movq 0x98(%rsp), %rsi
jmp 0x12a78
movq 0x88(%rsp), %rbp
movq 0xb0(%rsp), %rcx
movq 0xa8(%rsp), %rdx
jmp 0x1293b
movsd %xmm0, 0x20(%rsp)
movsd %xmm1, 0x18(%rsp)
movsd %xmm2, 0x10(%rsp)
incq %rcx
jmp 0x128ca
movq 0xa0(%rsp), %rax
incq %rax
jmp 0x128ac
movl 0xe698(%rip), %esi      # 0x21668
movq (%rsp), %rdx
cmpl %edx, %esi
je 0x12ffe
leaq 0x691a(%rip), %rax      # 0x198f9
movq %rax, 0xe66a(%rip)      # 0x21650
movl $0x1a0, 0xe658(%rip)    # imm = 0x1A0
leaq 0x6a3b(%rip), %rdi      # 0x19a32
xorl %eax, %eax
callq 0x11240
movl 0xe664(%rip), %eax      # 0x21668
addq $0x1b8, %rsp            # imm = 0x1B8
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq