// File: /workspace/github_cpp_makefile_star2_O2/mouda[P]LTE_random_access-simulate/alglibinternal.cpp
// Function: alglib_impl::internalschurdecomposition(alglib_impl::ae_matrix*, long, long, long, alglib_impl::ae_vector*, alglib_impl::ae_vector*, alglib_impl::ae_matrix*, long*, alglib_impl::ae_state*)
void internalschurdecomposition(/* Real    */ ae_matrix* h,
     ae_int_t n,
     ae_int_t tneeded,
     ae_int_t zneeded,
     /* Real    */ ae_vector* wr,
     /* Real    */ ae_vector* wi,
     /* Real    */ ae_matrix* z,
     ae_int_t* info,
     ae_state *_state)
{
    ae_frame _frame_block;
    ae_vector work;
    ae_int_t i;
    ae_int_t i1;
    ae_int_t i2;
    ae_int_t ierr;
    ae_int_t ii;
    ae_int_t itemp;
    ae_int_t itn;
    ae_int_t its;
    ae_int_t j;
    ae_int_t k;
    ae_int_t l;
    ae_int_t maxb;
    ae_int_t nr;
    ae_int_t ns;
    ae_int_t nv;
    double absw;
    double ovfl;
    double smlnum;
    double tau;
    double temp;
    double tst1;
    double ulp;
    double unfl;
    ae_matrix s;
    ae_vector v;
    ae_vector vv;
    ae_vector workc1;
    ae_vector works1;
    ae_vector workv3;
    ae_vector tmpwr;
    ae_vector tmpwi;
    ae_bool initz;
    ae_bool wantt;
    ae_bool wantz;
    double cnst;
    ae_bool failflag;
    ae_int_t p1;
    ae_int_t p2;
    double vt;

    ae_frame_make(_state, &_frame_block);
    ae_vector_clear(wr);
    ae_vector_clear(wi);
    *info = 0;
    ae_vector_init(&work, 0, DT_REAL, _state, ae_true);
    ae_matrix_init(&s, 0, 0, DT_REAL, _state, ae_true);
    ae_vector_init(&v, 0, DT_REAL, _state, ae_true);
    ae_vector_init(&vv, 0, DT_REAL, _state, ae_true);
    ae_vector_init(&workc1, 0, DT_REAL, _state, ae_true);
    ae_vector_init(&works1, 0, DT_REAL, _state, ae_true);
    ae_vector_init(&workv3, 0, DT_REAL, _state, ae_true);
    ae_vector_init(&tmpwr, 0, DT_REAL, _state, ae_true);
    ae_vector_init(&tmpwi, 0, DT_REAL, _state, ae_true);

    
    /*
     * Set the order of the multi-shift QR algorithm to be used.
     * If you want to tune algorithm, change this values
     */
    ns = 12;
    maxb = 50;
    
    /*
     * Now 2 < NS <= MAXB < NH.
     */
    maxb = ae_maxint(3, maxb, _state);
    ns = ae_minint(maxb, ns, _state);
    
    /*
     * Initialize
     */
    cnst = 1.5;
    ae_vector_set_length(&work, ae_maxint(n, 1, _state)+1, _state);
    ae_matrix_set_length(&s, ns+1, ns+1, _state);
    ae_vector_set_length(&v, ns+1+1, _state);
    ae_vector_set_length(&vv, ns+1+1, _state);
    ae_vector_set_length(wr, ae_maxint(n, 1, _state)+1, _state);
    ae_vector_set_length(wi, ae_maxint(n, 1, _state)+1, _state);
    ae_vector_set_length(&workc1, 1+1, _state);
    ae_vector_set_length(&works1, 1+1, _state);
    ae_vector_set_length(&workv3, 3+1, _state);
    ae_vector_set_length(&tmpwr, ae_maxint(n, 1, _state)+1, _state);
    ae_vector_set_length(&tmpwi, ae_maxint(n, 1, _state)+1, _state);
    ae_assert(n>=0, "InternalSchurDecomposition: incorrect N!", _state);
    ae_assert(tneeded==0||tneeded==1, "InternalSchurDecomposition: incorrect TNeeded!", _state);
    ae_assert((zneeded==0||zneeded==1)||zneeded==2, "InternalSchurDecomposition: incorrect ZNeeded!", _state);
    wantt = tneeded==1;
    initz = zneeded==2;
    wantz = zneeded!=0;
    *info = 0;
    
    /*
     * Initialize Z, if necessary
     */
    if( initz )
    {
        ae_matrix_set_length(z, n+1, n+1, _state);
        for(i=1; i<=n; i++)
        {
            for(j=1; j<=n; j++)
            {
                if( i==j )
                {
                    z->ptr.pp_double[i][j] = 1;
                }
                else
                {
                    z->ptr.pp_double[i][j] = 0;
                }
            }
        }
    }
    
    /*
     * Quick return if possible
     */
    if( n==0 )
    {
        ae_frame_leave(_state);
        return;
    }
    if( n==1 )
    {
        wr->ptr.p_double[1] = h->ptr.pp_double[1][1];
        wi->ptr.p_double[1] = 0;
        ae_frame_leave(_state);
        return;
    }
    
    /*
     * Set rows and columns 1 to N to zero below the first
     * subdiagonal.
     */
    for(j=1; j<=n-2; j++)
    {
        for(i=j+2; i<=n; i++)
        {
            h->ptr.pp_double[i][j] = 0;
        }
    }
    
    /*
     * Test if N is sufficiently small
     */
    if( (ns<=2||ns>n)||maxb>=n )
    {
        
        /*
         * Use the standard double-shift algorithm
         */
        hsschur_internalauxschur(wantt, wantz, n, 1, n, h, wr, wi, 1, n, z, &work, &workv3, &workc1, &works1, info, _state);
        
        /*
         * fill entries under diagonal blocks of T with zeros
         */
        if( wantt )
        {
            j = 1;
            while(j<=n)
            {
                if( ae_fp_eq(wi->ptr.p_double[j],0) )
                {
                    for(i=j+1; i<=n; i++)
                    {
                        h->ptr.pp_double[i][j] = 0;
                    }
                    j = j+1;
                }
                else
                {
                    for(i=j+2; i<=n; i++)
                    {
                        h->ptr.pp_double[i][j] = 0;
                        h->ptr.pp_double[i][j+1] = 0;
                    }
                    j = j+2;
                }
            }
        }
        ae_frame_leave(_state);
        return;
    }
    unfl = ae_minrealnumber;
    ovfl = 1/unfl;
    ulp = 2*ae_machineepsilon;
    smlnum = unfl*(n/ulp);
    
    /*
     * I1 and I2 are the indices of the first row and last column of H
     * to which transformations must be applied. If eigenvalues only are
     * being computed, I1 and I2 are set inside the main loop.
     */
    i1 = 1;
    i2 = n;
    
    /*
     * ITN is the total number of multiple-shift QR iterations allowed.
     */
    itn = 30*n;
    
    /*
     * The main loop begins here. I is the loop index and decreases from
     * IHI to ILO in steps of at most MAXB. Each iteration of the loop
     * works with the active submatrix in rows and columns L to I.
     * Eigenvalues I+1 to IHI have already converged. Either L = ILO or
     * H(L,L-1) is negligible so that the matrix splits.
     */
    i = n;
    for(;;)
    {
        l = 1;
        if( i<1 )
        {
            
            /*
             * fill entries under diagonal blocks of T with zeros
             */
            if( wantt )
            {
                j = 1;
                while(j<=n)
                {
                    if( ae_fp_eq(wi->ptr.p_double[j],0) )
                    {
                        for(i=j+1; i<=n; i++)
                        {
                            h->ptr.pp_double[i][j] = 0;
                        }
                        j = j+1;
                    }
                    else
                    {
                        for(i=j+2; i<=n; i++)
                        {
                            h->ptr.pp_double[i][j] = 0;
                            h->ptr.pp_double[i][j+1] = 0;
                        }
                        j = j+2;
                    }
                }
            }
            
            /*
             * Exit
             */
            ae_frame_leave(_state);
            return;
        }
        
        /*
         * Perform multiple-shift QR iterations on rows and columns ILO to I
         * until a submatrix of order at most MAXB splits off at the bottom
         * because a subdiagonal element has become negligible.
         */
        failflag = ae_true;
        for(its=0; its<=itn; its++)
        {
            
            /*
             * Look for a single small subdiagonal element.
             */
            for(k=i; k>=l+1; k--)
            {
                tst1 = ae_fabs(h->ptr.pp_double[k-1][k-1], _state)+ae_fabs(h->ptr.pp_double[k][k], _state);
                if( ae_fp_eq(tst1,0) )
                {
                    tst1 = upperhessenberg1norm(h, l, i, l, i, &work, _state);
                }
                if( ae_fp_less_eq(ae_fabs(h->ptr.pp_double[k][k-1], _state),ae_maxreal(ulp*tst1, smlnum, _state)) )
                {
                    break;
                }
            }
            l = k;
            if( l>1 )
            {
                
                /*
                 * H(L,L-1) is negligible.
                 */
                h->ptr.pp_double[l][l-1] = 0;
            }
            
            /*
             * Exit from loop if a submatrix of order <= MAXB has split off.
             */
            if( l>=i-maxb+1 )
            {
                failflag = ae_false;
                break;
            }
            
            /*
             * Now the active submatrix is in rows and columns L to I. If
             * eigenvalues only are being computed, only the active submatrix
             * need be transformed.
             */
            if( its==20||its==30 )
            {
                
                /*
                 * Exceptional shifts.
                 */
                for(ii=i-ns+1; ii<=i; ii++)
                {
                    wr->ptr.p_double[ii] = cnst*(ae_fabs(h->ptr.pp_double[ii][ii-1], _state)+ae_fabs(h->ptr.pp_double[ii][ii], _state));
                    wi->ptr.p_double[ii] = 0;
                }
            }
            else
            {
                
                /*
                 * Use eigenvalues of trailing submatrix of order NS as shifts.
                 */
                copymatrix(h, i-ns+1, i, i-ns+1, i, &s, 1, ns, 1, ns, _state);
                hsschur_internalauxschur(ae_false, ae_false, ns, 1, ns, &s, &tmpwr, &tmpwi, 1, ns, z, &work, &workv3, &workc1, &works1, &ierr, _state);
                for(p1=1; p1<=ns; p1++)
                {
                    wr->ptr.p_double[i-ns+p1] = tmpwr.ptr.p_double[p1];
                    wi->ptr.p_double[i-ns+p1] = tmpwi.ptr.p_double[p1];
                }
                if( ierr>0 )
                {
                    
                    /*
                     * If DLAHQR failed to compute all NS eigenvalues, use the
                     * unconverged diagonal elements as the remaining shifts.
                     */
                    for(ii=1; ii<=ierr; ii++)
                    {
                        wr->ptr.p_double[i-ns+ii] = s.ptr.pp_double[ii][ii];
                        wi->ptr.p_double[i-ns+ii] = 0;
                    }
                }
            }
            
            /*
             * Form the first column of (G-w(1)) (G-w(2)) . . . (G-w(ns))
             * where G is the Hessenberg submatrix H(L:I,L:I) and w is
             * the vector of shifts (stored in WR and WI). The result is
             * stored in the local array V.
             */
            v.ptr.p_double[1] = 1;
            for(ii=2; ii<=ns+1; ii++)
            {
                v.ptr.p_double[ii] = 0;
            }
            nv = 1;
            for(j=i-ns+1; j<=i; j++)
            {
                if( ae_fp_greater_eq(wi->ptr.p_double[j],0) )
                {
                    if( ae_fp_eq(wi->ptr.p_double[j],0) )
                    {
                        
                        /*
                         * real shift
                         */
                        p1 = nv+1;
                        ae_v_move(&vv.ptr.p_double[1], 1, &v.ptr.p_double[1], 1, ae_v_len(1,p1));
                        matrixvectormultiply(h, l, l+nv, l, l+nv-1, ae_false, &vv, 1, nv, 1.0, &v, 1, nv+1, -wr->ptr.p_double[j], _state);
                        nv = nv+1;
                    }
                    else
                    {
                        if( ae_fp_greater(wi->ptr.p_double[j],0) )
                        {
                            
                            /*
                             * complex conjugate pair of shifts
                             */
                            p1 = nv+1;
                            ae_v_move(&vv.ptr.p_double[1], 1, &v.ptr.p_double[1], 1, ae_v_len(1,p1));
                            matrixvectormultiply(h, l, l+nv, l, l+nv-1, ae_false, &v, 1, nv, 1.0, &vv, 1, nv+1, -2*wr->ptr.p_double[j], _state);
                            itemp = vectoridxabsmax(&vv, 1, nv+1, _state);
                            temp = 1/ae_maxreal(ae_fabs(vv.ptr.p_double[itemp], _state), smlnum, _state);
                            p1 = nv+1;
                            ae_v_muld(&vv.ptr.p_double[1], 1, ae_v_len(1,p1), temp);
                            absw = pythag2(wr->ptr.p_double[j], wi->ptr.p_double[j], _state);
                            temp = temp*absw*absw;
                            matrixvectormultiply(h, l, l+nv+1, l, l+nv, ae_false, &vv, 1, nv+1, 1.0, &v, 1, nv+2, temp, _state);
                            nv = nv+2;
                        }
                    }
                    
                    /*
                     * Scale V(1:NV) so that max(abs(V(i))) = 1. If V is zero,
                     * reset it to the unit vector.
                     */
                    itemp = vectoridxabsmax(&v, 1, nv, _state);
                    temp = ae_fabs(v.ptr.p_double[itemp], _state);
                    if( ae_fp_eq(temp,0) )
                    {
                        v.ptr.p_double[1] = 1;
                        for(ii=2; ii<=nv; ii++)
                        {
                            v.ptr.p_double[ii] = 0;
                        }
                    }
                    else
                    {
                        temp = ae_maxreal(temp, smlnum, _state);
                        vt = 1/temp;
                        ae_v_muld(&v.ptr.p_double[1], 1, ae_v_len(1,nv), vt);
                    }
                }
            }
            
            /*
             * Multiple-shift QR step
             */
            for(k=l; k<=i-1; k++)
            {
                
                /*
                 * The first iteration of this loop determines a reflection G
                 * from the vector V and applies it from left and right to H,
                 * thus creating a nonzero bulge below the subdiagonal.
                 *
                 * Each subsequent iteration determines a reflection G to
                 * restore the Hessenberg form in the (K-1)th column, and thus
                 * chases the bulge one step toward the bottom of the active
                 * submatrix. NR is the order of G.
                 */
                nr = ae_minint(ns+1, i-k+1, _state);
                if( k>l )
                {
                    p1 = k-1;
                    p2 = k+nr-1;
                    ae_v_move(&v.ptr.p_double[1], 1, &h->ptr.pp_double[k][p1], h->stride, ae_v_len(1,nr));
                }
                generatereflection(&v, nr, &tau, _state);
                if( k>l )
                {
                    h->ptr.pp_double[k][k-1] = v.ptr.p_double[1];
                    for(ii=k+1; ii<=i; ii++)
                    {
                        h->ptr.pp_double[ii][k-1] = 0;
                    }
                }
                v.ptr.p_double[1] = 1;
                
                /*
                 * Apply G from the left to transform the rows of the matrix in
                 * columns K to I2.
                 */
                applyreflectionfromtheleft(h, tau, &v, k, k+nr-1, k, i2, &work, _state);
                
                /*
                 * Apply G from the right to transform the columns of the
                 * matrix in rows I1 to min(K+NR,I).
                 */
                applyreflectionfromtheright(h, tau, &v, i1, ae_minint(k+nr, i, _state), k, k+nr-1, &work, _state);
                if( wantz )
                {
                    
                    /*
                     * Accumulate transformations in the matrix Z
                     */
                    applyreflectionfromtheright(z, tau, &v, 1, n, k, k+nr-1, &work, _state);
                }
            }
        }
        
        /*
         * Failure to converge in remaining number of iterations
         */
        if( failflag )
        {
            *info = i;
            ae_frame_leave(_state);
            return;
        }
        
        /*
         * A submatrix of order <= MAXB in rows and columns L to I has split
         * off. Use the double-shift QR algorithm to handle it.
         */
        hsschur_internalauxschur(wantt, wantz, n, l, i, h, wr, wi, 1, n, z, &work, &workv3, &workc1, &works1, info, _state);
        if( *info>0 )
        {
            ae_frame_leave(_state);
            return;
        }
        
        /*
         * Decrement number of remaining iterations, and return to start of
         * the main loop with a new value of I.
         */
        itn = itn-its;
        i = l-1;
    }
    ae_frame_leave(_state);
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x2a8, %rsp            # imm = 0x2A8
movq %r9, %r15
movq %r8, %r12
movq %r8, 0x10(%rsp)
movq %rcx, 0x30(%rsp)
movq %rdx, 0x28(%rsp)
movq %rsi, %r13
movq %rdi, %r14
movq 0x2f0(%rsp), %rbp
movq 0x2e8(%rsp), %rbx
leaq 0x290(%rsp), %rsi
movq %rbp, %rdi
callq 0x23815
movq %r12, %rdi
callq 0x23b55
movq %r15, %rdi
callq 0x23b55
andq $0x0, (%rbx)
leaq 0x130(%rsp), %rdi
pushq $0x3
popq %r12
pushq $0x1
popq %rbx
xorl %esi, %esi
movq %r12, %rdx
movq %rbp, %rcx
movl %ebx, %r8d
callq 0x239a5
leaq 0x250(%rsp), %rdi
xorl %esi, %esi
xorl %edx, %edx
movq %r12, %rcx
movq %rbp, %r8
movl %ebx, %r9d
callq 0x23baa
leaq 0x58(%rsp), %rdi
xorl %esi, %esi
movq %r12, %rdx
movq %rbp, %rcx
movl %ebx, %r8d
callq 0x239a5
leaq 0x100(%rsp), %rdi
xorl %esi, %esi
movq %r12, %rdx
movq %rbp, %rcx
movl %ebx, %r8d
callq 0x239a5
leaq 0x1c0(%rsp), %rdi
xorl %esi, %esi
movq %r12, %rdx
movq %rbp, %rcx
movl %ebx, %r8d
callq 0x239a5
leaq 0x190(%rsp), %rdi
xorl %esi, %esi
movq %r12, %rdx
movq %rbp, %rcx
movl %ebx, %r8d
callq 0x239a5
leaq 0x160(%rsp), %rdi
xorl %esi, %esi
movq %r12, %rdx
movq %rbp, %rcx
movl %ebx, %r8d
callq 0x239a5
leaq 0x220(%rsp), %rdi
xorl %esi, %esi
movq %r12, %rdx
movq %rbp, %rcx
movl %ebx, %r8d
callq 0x239a5
leaq 0x1f0(%rsp), %rdi
xorl %esi, %esi
movq %r12, %rdx
movq %rbp, %rcx
movl %ebx, %r8d
callq 0x239a5
pushq $0x32
popq %rsi
movq %r12, %rdi
movq %rbp, %rdx
callq 0x244a0
pushq $0xc
popq %rsi
movq %rax, 0x88(%rsp)
movq %rax, %rdi
movq %rbp, %rdx
callq 0x244ab
movq %rax, %rbx
pushq $0x1
popq %r12
movq %r13, %rdi
movq %r12, %rsi
movq %rbp, %rdx
callq 0x244a0
leaq 0x1(%rax), %rsi
leaq 0x130(%rsp), %rdi
movq %rbp, %rdx
callq 0x23add
leaq 0x1(%rbx), %rdx
leaq 0x250(%rsp), %rdi
movq %rdx, %rsi
movq %rdx, 0xb8(%rsp)
movq %rbp, %rcx
callq 0x23e0a
movq %rbx, 0x48(%rsp)
addq $0x2, %rbx
leaq 0x58(%rsp), %rdi
movq %rbx, %rsi
movq %rbp, %rdx
callq 0x23add
leaq 0x100(%rsp), %rdi
movq %rbx, %rsi
movq %rbp, %rdx
callq 0x23add
movq %r13, %rdi
movq %r12, %rsi
movq %rbp, %rdx
callq 0x244a0
leaq 0x1(%rax), %rsi
movq 0x10(%rsp), %rdi
movq %rbp, %rdx
callq 0x23add
movq %r13, %rdi
movq %r12, %rsi
movq %rbp, %rdx
callq 0x244a0
leaq 0x1(%rax), %rsi
movq %r15, %rdi
movq %rbp, %rdx
callq 0x23add
pushq $0x2
popq %rbx
leaq 0x1c0(%rsp), %rdi
movq %rbx, %rsi
movq %rbp, %rdx
callq 0x23add
leaq 0x190(%rsp), %rdi
movq %rbx, %rsi
movq %rbp, %rdx
callq 0x23add
pushq $0x4
popq %rsi
leaq 0x160(%rsp), %rdi
movq %rbp, %rdx
callq 0x23add
movq %r13, %rdi
movq %r12, %rsi
movq %rbp, %rdx
callq 0x244a0
leaq 0x1(%rax), %rsi
leaq 0x220(%rsp), %rdi
movq %rbp, %rdx
callq 0x23add
movq %r13, %rdi
movq %r12, %rsi
movq %rbp, %rdx
callq 0x244a0
leaq 0x1(%rax), %rsi
leaq 0x1f0(%rsp), %rdi
movq %rbp, %rdx
callq 0x23add
xorl %edi, %edi
testq %r13, %r13
setns %dil
leaq 0x19ca5(%rip), %rsi     # 0x32fdb
movq %rbp, %rdx
callq 0x238ca
xorl %edi, %edi
cmpq $0x2, 0x28(%rsp)
setb %dil
leaq 0x19cb3(%rip), %rsi     # 0x33004
movq %rbp, %rdx
callq 0x238ca
xorl %edi, %edi
movq 0x30(%rsp), %rbx
cmpq $0x3, %rbx
setb %dil
leaq 0x19cc4(%rip), %rsi     # 0x33033
movq %rbp, %rdx
callq 0x238ca
movq 0x2e8(%rsp), %rax
andq $0x0, (%rax)
cmpq $0x2, %rbx
jne 0x193fd
leaq 0x1(%r13), %rdx
movq 0x2e0(%rsp), %rdi
movq %rdx, %rsi
movq 0x2f0(%rsp), %rcx
callq 0x23e0a
xorl %eax, %eax
testq %r13, %r13
movl $0x0, %ecx
cmovgq %r13, %rcx
incq %rcx
pushq $0x1
popq %rdx
movsd 0x16e37(%rip), %xmm0    # 0x301f8
cmpq %rcx, %rdx
je 0x193fd
xorl %esi, %esi
movq 0x2e0(%rsp), %r8
cmpq %rsi, %r13
je 0x193f5
movapd %xmm0, %xmm1
cmpq %rsi, %rax
je 0x193e2
xorpd %xmm1, %xmm1
movq 0x38(%r8), %rdi
movq (%rdi,%rdx,8), %rdi
movsd %xmm1, 0x8(%rdi,%rsi,8)
incq %rsi
jmp 0x193d0
incq %rdx
incq %rax
jmp 0x193c1
testq %r13, %r13
je 0x19ff1
cmpq $0x1, %r13
jne 0x19435
movq 0x38(%r14), %rax
movq 0x8(%rax), %rax
movsd 0x8(%rax), %xmm0
movq 0x10(%rsp), %rax
movq 0x28(%rax), %rax
movsd %xmm0, 0x8(%rax)
movq 0x28(%r15), %rax
andq $0x0, 0x8(%rax)
jmp 0x19ff1
cmpq $0x3, %r13
pushq $0x2
popq %rax
cmovgeq %r13, %rax
decq %rax
cmpq %rax, %r12
je 0x19469
leaq 0x2(%r12), %rcx
cmpq %r13, %rcx
jg 0x19464
movq 0x38(%r14), %rdx
movq (%rdx,%rcx,8), %rdx
andq $0x0, (%rdx,%r12,8)
incq %rcx
jmp 0x1944d
incq %r12
jmp 0x19443
cmpq %r13, 0x88(%rsp)
movq 0x48(%rsp), %rax
jge 0x19efe
cmpq $0x3, %rax
jl 0x19efe
cmpq %r13, %rax
jg 0x19efe
cvtsi2sd %r13, %xmm0
divsd 0x1728c(%rip), %xmm0    # 0x30728
mulsd 0x17dcc(%rip), %xmm0    # 0x31270
movsd %xmm0, 0x50(%rsp)
imulq $0x1e, %r13, %rcx
movq %rcx, 0x90(%rsp)
leaq (,%rax,8), %rax
pushq $0x8
popq %rcx
subq %rax, %rcx
pushq $0x1
popq %rax
movq %r13, %rbp
movq %r14, 0x18(%rsp)
movq %r15, 0x40(%rsp)
movq %r13, 0xb0(%rsp)
movq %rcx, 0xc8(%rsp)
testq %rbp, %rbp
jle 0x1a010
movq %rbp, %rdx
subq 0x88(%rsp), %rdx
movq %rdx, 0xe0(%rsp)
movq %rbp, %rdx
subq 0x48(%rsp), %rdx
movq %rdx, 0x98(%rsp)
incq %rdx
movq %rdx, 0xd0(%rsp)
leaq 0x1(%rbp), %rdx
movq %rdx, 0xe8(%rsp)
leaq (%rcx,%rbp,8), %rcx
movq %rcx, 0xa8(%rsp)
movq %rax, %r13
xorl %eax, %eax
movq %rbp, 0x20(%rsp)
movq 0x90(%rsp), %rbx
subq %rax, %rbx
jl 0x19fe6
movq %rax, 0xa0(%rsp)
movq %rbp, %rcx
movq %rcx, %r12
cmpq %r13, %rcx
jle 0x19645
movq 0x38(%r14), %rax
movq -0x8(%rax,%r12,8), %rax
movsd -0x8(%rax,%r12,8), %xmm0
movq 0x2f0(%rsp), %r15
movq %r15, %rdi
callq 0x2440c
movsd %xmm0, 0x8(%rsp)
movq 0x38(%r14), %rax
movq (%rax,%r12,8), %rax
movsd (%rax,%r12,8), %xmm0
movq %r15, %rdi
callq 0x2440c
addsd 0x8(%rsp), %xmm0
xorps %xmm1, %xmm1
movsd %xmm0, 0x8(%rsp)
callq 0x241f5
testb %al, %al
je 0x195e8
subq $0x8, %rsp
movq %r14, %rdi
movq %r13, %rsi
movq %rbp, %rdx
movq %r13, %rcx
movq %rbp, %r8
leaq 0x138(%rsp), %r9
pushq 0x2f8(%rsp)
callq 0x15682
popq %rax
popq %rcx
movsd %xmm0, 0x8(%rsp)
movq 0x38(%r14), %rax
movq (%rax,%r12,8), %rax
movsd -0x8(%rax,%r12,8), %xmm0
movq 0x2f0(%rsp), %r15
movq %r15, %rdi
callq 0x2440c
movsd %xmm0, 0x38(%rsp)
movsd 0x8(%rsp), %xmm0
mulsd 0x1710d(%rip), %xmm0    # 0x30728
movsd 0x50(%rsp), %xmm1
movq %r15, %rdi
callq 0x244b6
movapd %xmm0, %xmm1
movsd 0x38(%rsp), %xmm0
callq 0x24259
leaq -0x1(%r12), %rcx
testb %al, %al
je 0x19559
cmpq $0x2, %r12
jl 0x19659
movq 0x38(%r14), %rax
movq (%rax,%r12,8), %rax
andq $0x0, -0x8(%rax,%r12,8)
cmpq 0xe0(%rsp), %r12
movq 0x40(%rsp), %r15
movq 0xb0(%rsp), %r13
jg 0x19e62
movq 0xa0(%rsp), %rax
cmpq $0x1e, %rax
je 0x1968c
cmpq $0x14, %rax
jne 0x19712
movq 0x98(%rsp), %rbx
cmpq %rbp, %rbx
jge 0x1985d
leaq 0x1(%rbx), %r14
movq 0x18(%rsp), %r13
movq 0x38(%r13), %rax
movq 0x8(%rax,%rbx,8), %rax
movsd (%rax,%rbx,8), %xmm0
movq 0x2f0(%rsp), %rbp
movq %rbp, %rdi
callq 0x2440c
movsd %xmm0, 0x8(%rsp)
movq 0x38(%r13), %rax
movq 0x8(%rax,%rbx,8), %rax
movsd 0x8(%rax,%rbx,8), %xmm0
movq %rbp, %rdi
movq 0x20(%rsp), %rbp
callq 0x2440c
addsd 0x8(%rsp), %xmm0
mulsd 0x19374(%rip), %xmm0    # 0x32a68
movq 0x10(%rsp), %rax
movq 0x28(%rax), %rax
movsd %xmm0, 0x8(%rax,%rbx,8)
movq 0x28(%r15), %rax
andq $0x0, 0x8(%rax,%rbx,8)
movq %r14, %rbx
jmp 0x19694
subq $0x8, %rsp
movq %r14, %rdi
movq 0xd8(%rsp), %rcx
movq %rcx, %rsi
movq %rbp, %rdx
movq %rbp, %r8
leaq 0x258(%rsp), %rbp
movq %rbp, %r9
movq 0x2f8(%rsp), %rbx
pushq %rbx
movq 0x58(%rsp), %r14
pushq %r14
pushq $0x1
popq %r13
pushq %r13
pushq %r14
pushq %r13
callq 0x1578c
addq $0x30, %rsp
xorl %edi, %edi
xorl %esi, %esi
movq %r14, %rdx
movq %r13, %rcx
movq %r14, %r8
movq %rbp, %r9
pushq %rbx
leaq 0x100(%rsp), %rax
pushq %rax
leaq 0x1a0(%rsp), %rax
pushq %rax
leaq 0x1d8(%rsp), %rax
pushq %rax
leaq 0x180(%rsp), %rax
pushq %rax
leaq 0x158(%rsp), %rax
pushq %rax
pushq 0x310(%rsp)
pushq %r14
leaq 0x230(%rsp), %rax
pushq %rax
leaq 0x268(%rsp), %rax
pushq %rax
callq 0x1a085
addq $0x50, %rsp
xorl %eax, %eax
movq 0xa8(%rsp), %rdx
cmpq %rax, %r14
je 0x19807
movq 0x248(%rsp), %rcx
movsd 0x8(%rcx,%rax,8), %xmm0
movq 0x10(%rsp), %rcx
movq 0x28(%rcx), %rcx
addq %rdx, %rcx
movsd %xmm0, (%rcx,%rax,8)
movq 0x218(%rsp), %rcx
movsd 0x8(%rcx,%rax,8), %xmm0
movq 0x28(%r15), %rcx
addq %rdx, %rcx
movsd %xmm0, (%rcx,%rax,8)
incq %rax
jmp 0x197c4
movq 0xf8(%rsp), %rax
testq %rax, %rax
movq 0x20(%rsp), %rbp
jle 0x1985d
xorl %ecx, %ecx
cmpq %rcx, %rax
je 0x1985d
movq 0x288(%rsp), %rdx
movq 0x8(%rdx,%rcx,8), %rdx
movsd 0x8(%rdx,%rcx,8), %xmm0
movq 0x10(%rsp), %rdx
movq 0x28(%rdx), %rdx
movq 0xa8(%rsp), %rsi
addq %rsi, %rdx
movsd %xmm0, (%rdx,%rcx,8)
movq 0x28(%r15), %rdx
addq %rsi, %rdx
andq $0x0, (%rdx,%rcx,8)
incq %rcx
jmp 0x1981b
movq 0x80(%rsp), %rax
movabsq $0x3ff0000000000000, %rcx # imm = 0x3FF0000000000000
movq %rcx, 0x8(%rax)
pushq $0x2
popq %rax
movq 0x18(%rsp), %r14
pushq $0x1
popq %rbx
cmpq 0xb8(%rsp), %rax
jg 0x1989a
movq 0x80(%rsp), %rcx
andq $0x0, (%rcx,%rax,8)
incq %rax
jmp 0x1987e
movq %rbx, %r13
movq 0x98(%rsp), %r15
cmpq %rbp, %r15
jge 0x19c64
movq 0x40(%rsp), %rax
movq 0x28(%rax), %rax
movsd 0x8(%rax,%r15,8), %xmm0
incq %r15
xorpd %xmm1, %xmm1
callq 0x24295
testb %al, %al
je 0x198a5
movq 0x40(%rsp), %rbp
movq 0x28(%rbp), %rax
movsd (%rax,%r15,8), %xmm0
xorpd %xmm1, %xmm1
callq 0x241f5
testb %al, %al
je 0x1999e
leaq 0x1(%r13), %rsi
movq 0x128(%rsp), %r14
addq $0x8, %r14
movq 0x80(%rsp), %rbx
addq $0x8, %rbx
pushq $0x1
popq %rdi
movq %rsi, %rbp
movq %rsi, 0x8(%rsp)
callq 0x26b4d
movq %r14, %rdi
movq 0x18(%rsp), %r14
pushq $0x1
popq %rsi
movq %rbx, %rdx
pushq $0x1
popq %rbx
movq %rbx, %rcx
movq %rax, %r8
callq 0x2675e
leaq (%r12,%r13), %rdx
leaq (%r12,%r13), %r8
decq %r8
movq 0x10(%rsp), %rax
movq 0x28(%rax), %rax
movsd (%rax,%r15,8), %xmm1
xorpd 0x16858(%rip), %xmm1    # 0x301b0
subq $0x8, %rsp
movq %r14, %rdi
movq %r12, %rsi
movq %r12, %rcx
xorl %r9d, %r9d
movsd 0x16888(%rip), %xmm0    # 0x301f8
pushq 0x2f8(%rsp)
pushq %rbp
pushq %rbx
leaq 0x78(%rsp), %rbp
pushq %rbp
pushq %r13
pushq %rbx
leaq 0x138(%rsp), %rax
pushq %rax
callq 0x15b47
addq $0x40, %rsp
movq 0x8(%rsp), %r13
jmp 0x19b81
movq 0x28(%rbp), %rax
movsd (%rax,%r15,8), %xmm0
xorpd %xmm1, %xmm1
callq 0x24279
testb %al, %al
je 0x19b7c
leaq 0x1(%r13), %rsi
movq %rsi, 0x8(%rsp)
movq 0x128(%rsp), %rbx
addq $0x8, %rbx
movq 0x80(%rsp), %r14
addq $0x8, %r14
pushq $0x1
popq %rdi
callq 0x26b4d
movq %rbx, %rdi
pushq $0x1
popq %rsi
movq %r14, %rdx
movq 0x18(%rsp), %r14
pushq $0x1
popq %rcx
movq %rax, %r8
callq 0x2675e
leaq (%r12,%r13), %rdx
movq %rdx, 0xd8(%rsp)
leaq (%r12,%r13), %r8
decq %r8
movq 0x10(%rsp), %rax
movq 0x28(%rax), %rax
movsd (%rax,%r15,8), %xmm1
mulsd 0x169db(%rip), %xmm1    # 0x30400
subq $0x8, %rsp
movq %r14, %rdi
movq %r12, %rsi
movq %r12, %rcx
xorl %r9d, %r9d
movsd 0x167bb(%rip), %xmm0    # 0x301f8
movq 0x2f8(%rsp), %rbp
pushq %rbp
movq 0x18(%rsp), %rbx
pushq %rbx
pushq $0x1
popq %rax
pushq %rax
leaq 0x120(%rsp), %rax
pushq %rax
pushq %r13
pushq $0x1
popq %rax
pushq %rax
leaq 0x90(%rsp), %rbp
pushq %rbp
callq 0x15b47
addq $0x40, %rsp
leaq 0x100(%rsp), %rdi
pushq $0x1
popq %rsi
movq %rbx, %rdx
movq 0x2f0(%rsp), %rbx
movq %rbx, %rcx
callq 0x154bf
movq 0x128(%rsp), %rcx
movsd (%rcx,%rax,8), %xmm0
movq %rbx, %rdi
callq 0x2440c
movsd 0x50(%rsp), %xmm1
movq %rbx, %rdi
callq 0x244b6
movsd 0x1673e(%rip), %xmm1    # 0x301f8
divsd %xmm0, %xmm1
movsd %xmm1, 0x38(%rsp)
movq 0x128(%rsp), %rbx
addq $0x8, %rbx
pushq $0x1
popq %rdi
movq 0x8(%rsp), %rsi
callq 0x26b4d
movq %rbx, %rdi
pushq $0x1
popq %rbx
movq %rbx, %rsi
movq %rax, %rdx
movsd 0x38(%rsp), %xmm0
callq 0x26b08
movq 0x10(%rsp), %rax
movq 0x28(%rax), %rax
movsd (%rax,%r15,8), %xmm0
movq 0x40(%rsp), %rax
movq 0x28(%rax), %rax
movsd (%rax,%r15,8), %xmm1
movq 0x2f0(%rsp), %rdi
callq 0x15e46
movsd 0x38(%rsp), %xmm1
mulsd %xmm0, %xmm1
mulsd %xmm0, %xmm1
leaq (%r12,%r13), %rdx
incq %rdx
addq $0x2, %r13
subq $0x8, %rsp
movq %r14, %rdi
movq %r12, %rsi
movq %r12, %rcx
movq 0xe0(%rsp), %r8
xorl %r9d, %r9d
movsd 0x166a0(%rip), %xmm0    # 0x301f8
pushq 0x2f8(%rsp)
pushq %r13
pushq %rbx
pushq %rbp
pushq 0x30(%rsp)
pushq %rbx
leaq 0x138(%rsp), %rax
pushq %rax
callq 0x15b47
addq $0x40, %rsp
jmp 0x19b81
leaq 0x58(%rsp), %rbp
movq %rbp, %rdi
movq %rbx, %rsi
movq %r13, %rdx
movq %rbx, %rbp
movq 0x2f0(%rsp), %rbx
movq %rbx, %rcx
callq 0x154bf
movq 0x80(%rsp), %rcx
movsd (%rcx,%rax,8), %xmm0
movq %rbx, %rdi
callq 0x2440c
xorpd %xmm1, %xmm1
movsd %xmm0, 0x8(%rsp)
callq 0x241f5
testb %al, %al
je 0x19c01
movq 0x80(%rsp), %rax
movabsq $0x3ff0000000000000, %rcx # imm = 0x3FF0000000000000
movq %rcx, 0x8(%rax)
pushq $0x2
popq %rax
movq %rbp, %rbx
movq 0x20(%rsp), %rbp
cmpq %r13, %rax
jg 0x198a5
movq 0x80(%rsp), %rcx
andq $0x0, (%rcx,%rax,8)
incq %rax
jmp 0x19be6
movsd 0x8(%rsp), %xmm0
movsd 0x50(%rsp), %xmm1
movq 0x2f0(%rsp), %rdi
callq 0x244b6
movsd 0x165d6(%rip), %xmm1    # 0x301f8
divsd %xmm0, %xmm1
movsd %xmm1, 0x8(%rsp)
movq 0x80(%rsp), %rbx
addq $0x8, %rbx
movq %rbp, %rdi
movq %r13, %rsi
callq 0x26b4d
movq %rbx, %rdi
movq %rbp, %rsi
movq %rax, %rdx
movsd 0x8(%rsp), %xmm0
callq 0x26b08
movq %rbp, %rbx
movq 0x20(%rsp), %rbp
jmp 0x198a5
movq %r12, %r13
leaq 0x58(%rsp), %r15
movq %r12, 0xf0(%rsp)
cmpq %rbp, %r13
jge 0x19e4f
movq 0xe8(%rsp), %rsi
subq %r13, %rsi
movq 0xb8(%rsp), %rdi
movq 0x2f0(%rsp), %rdx
callq 0x244ab
movq %rax, %rbx
cmpq %r12, %r13
jle 0x19d4a
movq 0x80(%rsp), %r14
addq $0x8, %r14
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rbp
movq 0x18(%rsp), %rax
movq 0x38(%rax), %rax
movq (%rax,%r13,8), %rax
leaq -0x8(%rax,%r13,8), %r15
pushq $0x1
popq %r12
movq %r12, %rdi
movq %rbx, %rsi
callq 0x26b4d
movq %r14, %rdi
movq 0x18(%rsp), %r14
movq %r12, %rsi
movq %r15, %rdx
movq %rbp, %rcx
movq 0x2f0(%rsp), %rbp
movq %rax, %r8
callq 0x2675e
leaq 0x58(%rsp), %rdi
movq %rbx, %rsi
leaq 0xc0(%rsp), %rdx
movq %rbp, %rcx
movq 0x20(%rsp), %rbp
callq 0x16e77
movq 0x80(%rsp), %rax
movsd 0x8(%rax), %xmm0
movq %r13, %rax
movq 0x38(%r14), %rcx
movq (%rcx,%rax,8), %rcx
movsd %xmm0, -0x8(%rcx,%r13,8)
cmpq %rbp, %rax
jge 0x19d65
incq %rax
xorpd %xmm0, %xmm0
jmp 0x19d2d
movq %r15, %rdi
movq %rbx, %rsi
leaq 0xc0(%rsp), %rdx
movq 0x2f0(%rsp), %rcx
callq 0x16e77
movq 0x80(%rsp), %rax
movabsq $0x3ff0000000000000, %rcx # imm = 0x3FF0000000000000
movq %rcx, 0x8(%rax)
movsd 0xc0(%rsp), %xmm0
movsd %xmm0, 0x8(%rsp)
movq %r14, %r15
leaq (%rbx,%r13), %r14
decq %r14
addq %r13, %rbx
subq $0x8, %rsp
movq %r15, %rdi
leaq 0x60(%rsp), %rsi
movq %r13, %rdx
movq %r14, %rcx
movq %r13, %r8
movq 0xb8(%rsp), %r12
movq %r12, %r9
leaq 0x138(%rsp), %rax
pushq %rax
callq 0x1715f
popq %rax
popq %rcx
movq %rbx, %rdi
movq %rbp, %rsi
movq 0x2f0(%rsp), %rdx
callq 0x244ab
subq $0x10, %rsp
movq %r15, %rdi
leaq 0x68(%rsp), %r15
movsd 0x18(%rsp), %xmm0
movq %r15, %rsi
pushq $0x1
popq %rbx
movq %rbx, %rdx
movq %rax, %rcx
movq %r13, %r8
movq %r14, %r9
callq 0x172e5
popq %rax
popq %rcx
cmpq $0x0, 0x30(%rsp)
je 0x19e35
subq $0x10, %rsp
movq 0x2f0(%rsp), %rdi
movsd 0x18(%rsp), %xmm0
movq %r15, %rsi
movq %rbx, %rdx
movq %r12, %rcx
movq %r13, %r8
movq %r14, %r9
callq 0x172e5
popq %rax
popq %rcx
incq %r13
movq 0x18(%rsp), %r14
movq 0x20(%rsp), %rbp
movq 0xf0(%rsp), %r12
jmp 0x19c74
movq 0xa0(%rsp), %rax
incq %rax
movq %r12, %r13
jmp 0x1953d
xorl %esi, %esi
cmpq $0x0, 0x30(%rsp)
setne %sil
xorl %edi, %edi
cmpq $0x1, 0x28(%rsp)
sete %dil
movq %r13, %rdx
movq %r12, %rcx
movq %rbp, %r8
movq %r14, %r9
pushq 0x2f0(%rsp)
movq 0x2f0(%rsp), %rax
movq %r12, %rbp
movq %rax, %r12
pushq %rax
leaq 0x1a0(%rsp), %rax
pushq %rax
leaq 0x1d8(%rsp), %rax
pushq %rax
leaq 0x180(%rsp), %rax
pushq %rax
leaq 0x158(%rsp), %rax
pushq %rax
pushq 0x310(%rsp)
pushq %r13
pushq %r15
pushq 0x58(%rsp)
callq 0x1a085
addq $0x50, %rsp
cmpq $0x0, (%r12)
jg 0x19ff1
decq %rbp
movq %rbx, 0x90(%rsp)
movq 0xc8(%rsp), %rcx
pushq $0x1
popq %rax
jmp 0x194e4
xorl %esi, %esi
cmpq $0x0, 0x30(%rsp)
setne %sil
xorl %edi, %edi
movq 0x28(%rsp), %rbx
cmpq $0x1, %rbx
sete %dil
pushq $0x1
popq %r12
movq %r13, %rdx
movq %r12, %rcx
movq %r13, %r8
movq %r14, %r9
pushq 0x2f0(%rsp)
pushq 0x2f0(%rsp)
leaq 0x1a0(%rsp), %rax
pushq %rax
leaq 0x1d8(%rsp), %rax
pushq %rax
leaq 0x180(%rsp), %rax
pushq %rax
leaq 0x158(%rsp), %rax
pushq %rax
pushq 0x310(%rsp)
pushq %r13
pushq %r15
pushq 0x58(%rsp)
callq 0x1a085
addq $0x50, %rsp
cmpq $0x1, %rbx
jne 0x19ff1
cmpq %r13, %r12
jg 0x19ff1
movq 0x28(%r15), %rax
movsd (%rax,%r12,8), %xmm0
xorpd %xmm1, %xmm1
callq 0x241f5
testb %al, %al
je 0x19fb4
leaq 0x1(%r12), %rax
movq %rax, %rcx
cmpq %r13, %rcx
jg 0x19fe1
movq 0x38(%r14), %rdx
movq (%rdx,%rcx,8), %rdx
andq $0x0, (%rdx,%r12,8)
incq %rcx
jmp 0x19f9d
leaq 0x2(%r12), %rax
movq %rax, %rcx
cmpq %r13, %rcx
jg 0x19fe1
movq 0x38(%r14), %rdx
movq (%rdx,%rcx,8), %rdx
andq $0x0, (%rdx,%r12,8)
movq 0x38(%r14), %rdx
movq (%rdx,%rcx,8), %rdx
andq $0x0, 0x8(%rdx,%r12,8)
incq %rcx
jmp 0x19fbc
movq %rax, %r12
jmp 0x19f79
movq 0x2e8(%rsp), %rax
movq %rbp, (%rax)
movq 0x2f0(%rsp), %rdi
callq 0x237b6
addq $0x2a8, %rsp            # imm = 0x2A8
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
cmpq $0x1, 0x28(%rsp)
jne 0x19ff1
pushq $0x1
popq %rbx
cmpq %r13, %rbx
jg 0x19ff1
movq 0x28(%r15), %rax
movsd (%rax,%rbx,8), %xmm0
xorpd %xmm1, %xmm1
callq 0x241f5
testb %al, %al
je 0x1a054
leaq 0x1(%rbx), %rax
movq %rax, %rcx
cmpq %r13, %rcx
jg 0x1a080
movq 0x38(%r14), %rdx
movq (%rdx,%rcx,8), %rdx
andq $0x0, (%rdx,%rbx,8)
incq %rcx
jmp 0x1a03d
leaq 0x2(%rbx), %rax
movq %rax, %rcx
cmpq %r13, %rcx
jg 0x1a080
movq 0x38(%r14), %rdx
movq (%rdx,%rcx,8), %rdx
andq $0x0, (%rdx,%rbx,8)
movq 0x38(%r14), %rdx
movq (%rdx,%rcx,8), %rdx
andq $0x0, 0x8(%rdx,%rbx,8)
incq %rcx
jmp 0x1a05b
movq %rax, %rbx
jmp 0x1a01b