// File: /workspace/github_cpp_makefile_star2_O2/j-faria[P]kima/eigen/Eigen/src/Core/products/TriangularSolverVector.h
// Function: Eigen::internal::triangular_solve_vector<double, double, long, 1, 1, false, 0>::run(long, double const*, long, double*)
static void run(Index size, const LhsScalar* _lhs, Index lhsStride, RhsScalar* rhs)
  {
    typedef Map<const Matrix<LhsScalar,Dynamic,Dynamic,ColMajor>, 0, OuterStride<> > LhsMap;
    const LhsMap lhs(_lhs,size,size,OuterStride<>(lhsStride));
    typedef const_blas_data_mapper<LhsScalar,Index,ColMajor> LhsMapper;
    typedef const_blas_data_mapper<RhsScalar,Index,ColMajor> RhsMapper;
    typename internal::conditional<Conjugate,
                                   const CwiseUnaryOp<typename internal::scalar_conjugate_op<LhsScalar>,LhsMap>,
                                   const LhsMap&
                                  >::type cjLhs(lhs);
    static const Index PanelWidth = EIGEN_TUNE_TRIANGULAR_PANEL_WIDTH;

    for(Index pi=IsLower ? 0 : size;
        IsLower ? pi<size : pi>0;
        IsLower ? pi+=PanelWidth : pi-=PanelWidth)
    {
      Index actualPanelWidth = (std::min)(IsLower ? size - pi : pi, PanelWidth);
      Index startBlock = IsLower ? pi : pi-actualPanelWidth;
      Index endBlock = IsLower ? pi + actualPanelWidth : 0;

      for(Index k=0; k<actualPanelWidth; ++k)
      {
        Index i = IsLower ? pi+k : pi-k-1;
        if(numext::not_equal_strict(rhs[i],RhsScalar(0)))
        {
          if(!(Mode & UnitDiag))
            rhs[i] /= cjLhs.coeff(i,i);

          Index r = actualPanelWidth - k - 1; // remaining size
          Index s = IsLower ? i+1 : i-r;
          if (r>0)
            Map<Matrix<RhsScalar,Dynamic,1> >(rhs+s,r) -= rhs[i] * cjLhs.col(i).segment(s,r);
        }
      }
      Index r = IsLower ? size - endBlock : startBlock; // remaining size
      if (r > 0)
      {
        // let's directly call the low level product function because:
        // 1 - it is faster to compile
        // 2 - it is slightly faster at runtime
        general_matrix_vector_product<Index,LhsScalar,LhsMapper,ColMajor,Conjugate,RhsScalar,RhsMapper,false>::run(
            r, actualPanelWidth,
            LhsMapper(&lhs.coeffRef(endBlock,startBlock), lhsStride),
            RhsMapper(rhs+startBlock, 1),
            rhs+endBlock, 1, RhsScalar(-1));
      }
    }
  }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x208, %rsp            # imm = 0x208
movq %rcx, %r14
movq %rsi, %rbx
movq %rdi, %r15
leaq 0x100(%rsp), %r12
movq %r12, %rdi
movq %rdx, 0x8(%rsp)
movq %rdx, %rsi
callq 0x1c9e6
leaq 0x38(%rsp), %r13
movq %r13, %rdi
movq %rbx, %rsi
movq %r15, %rdx
movq %r15, %rcx
callq 0x1d01a
movq (%r12), %rax
movq %rax, 0x18(%r13)
pushq $0x8
popq %rax
xorpd %xmm1, %xmm1
movq %r14, 0x10(%rsp)
movq %r14, %rbx
xorl %r14d, %r14d
movq %r15, %rcx
movq %r15, 0x18(%rsp)
cmpq $0x8, %rcx
movq %rax, %r13
cmovlq %rcx, %r13
testq %r13, %r13
movl $0x0, %esi
cmovgq %r13, %rsi
movq %r15, %rdx
subq %r14, %rdx
jle 0x1c9d4
movq %rcx, 0x28(%rsp)
decq %r13
cmpq $0x8, %rdx
cmovgeq %rax, %rdx
movq %rdx, 0x20(%rsp)
xorl %ebp, %ebp
xorl %r15d, %r15d
movq %rbx, (%rsp)
movq %rsi, 0x30(%rsp)
cmpq %r15, %rsi
je 0x1c93a
movsd (%rbx,%r15,8), %xmm0
ucomisd %xmm1, %xmm0
jne 0x1c87b
jnp 0x1c92b
leaq (%r14,%r15), %rdx
movq 0x50(%rsp), %rax
imulq %rdx, %rax
shlq $0x3, %rax
addq 0x38(%rsp), %rax
divsd (%rax,%rdx,8), %xmm0
movsd %xmm0, (%rbx,%r15,8)
testq %r13, %r13
jle 0x1c92b
leaq (%rbx,%rbp), %r12
movq %r14, %rbx
addq %r15, %r14
incq %r14
leaq 0x1b0(%rsp), %rdi
leaq 0x38(%rsp), %rsi
callq 0x1d15e
leaq 0x78(%rsp), %rdi
leaq 0x1b0(%rsp), %rsi
movq %r14, %rdx
movq %r13, %rcx
callq 0x1d24a
leaq 0x100(%rsp), %r14
movq %r14, %rdi
movq %r12, %rsi
leaq 0x78(%rsp), %rdx
callq 0x1c9ed
movq (%rsp), %rax
leaq (%rax,%rbp), %rsi
addq $0x8, %rsi
leaq 0x60(%rsp), %r12
movq %r12, %rdi
movq %r13, %rdx
callq 0x1d3ca
movq %r12, %rdi
movq %r14, %rsi
movq %rbx, %r14
movq (%rsp), %rbx
callq 0x1ca40
movq 0x30(%rsp), %rsi
xorpd %xmm1, %xmm1
incq %r15
decq %r13
addq $0x8, %rbp
jmp 0x1c860
movq 0x20(%rsp), %rsi
leaq (%rsi,%r14), %rax
movq 0x18(%rsp), %r15
movq %r15, %rdi
subq %rax, %rdi
jle 0x1c9bb
movq 0x50(%rsp), %rcx
imulq %r14, %rcx
shlq $0x3, %rcx
addq 0x38(%rsp), %rcx
leaq (%rcx,%rax,8), %rcx
movq %rcx, 0x100(%rsp)
movq 0x8(%rsp), %rcx
movq %rcx, 0x108(%rsp)
movq 0x10(%rsp), %rdx
leaq (%rdx,%r14,8), %rcx
movq %rcx, 0x78(%rsp)
movq $0x1, 0x80(%rsp)
leaq (%rdx,%rax,8), %r8
leaq 0x100(%rsp), %rdx
leaq 0x78(%rsp), %rcx
pushq $0x1
popq %r9
movsd 0x1fd16(%rip), %xmm0    # 0x3c6c8
callq 0x1ca5c
xorpd %xmm1, %xmm1
addq $0x8, %r14
movq 0x28(%rsp), %rcx
addq $-0x8, %rcx
addq $0x40, %rbx
pushq $0x8
popq %rax
jmp 0x1c81a
addq $0x208, %rsp            # imm = 0x208
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq