// File: /workspace/github_cpp_makefile_star2_O2/Kingsford-Group[P]ghost2/include/Eigen/src/Core/products/GeneralBlockPanelKernel.h
// Function: Eigen::internal::gemm_pack_rhs<double, long, 4, 0, false, false>::operator()(double*, double const*, long, long, long, long, long)
EIGEN_DONT_INLINE void gemm_pack_rhs<Scalar, Index, nr, ColMajor, Conjugate, PanelMode>
  ::operator()(Scalar* blockB, const Scalar* rhs, Index rhsStride, Index depth, Index cols, Index stride, Index offset)
{
  EIGEN_ASM_COMMENT("EIGEN PRODUCT PACK RHS COLMAJOR");
  EIGEN_UNUSED_VARIABLE(stride)
  EIGEN_UNUSED_VARIABLE(offset)
  eigen_assert(((!PanelMode) && stride==0 && offset==0) || (PanelMode && stride>=depth && offset<=stride));
  conj_if<NumTraits<Scalar>::IsComplex && Conjugate> cj;
  Index packet_cols = (cols/nr) * nr;
  Index count = 0;
  for(Index j2=0; j2<packet_cols; j2+=nr)
  {
    // skip what we have before
    if(PanelMode) count += nr * offset;
    const Scalar* b0 = &rhs[(j2+0)*rhsStride];
    const Scalar* b1 = &rhs[(j2+1)*rhsStride];
    const Scalar* b2 = &rhs[(j2+2)*rhsStride];
    const Scalar* b3 = &rhs[(j2+3)*rhsStride];
    for(Index k=0; k<depth; k++)
    {
                blockB[count+0] = cj(b0[k]);
                blockB[count+1] = cj(b1[k]);
      if(nr==4) blockB[count+2] = cj(b2[k]);
      if(nr==4) blockB[count+3] = cj(b3[k]);
      count += nr;
    }
    // skip what we have after
    if(PanelMode) count += nr * (stride-offset-depth);
  }

  // copy the remaining columns one at a time (nr==1)
  for(Index j2=packet_cols; j2<cols; ++j2)
  {
    if(PanelMode) count += offset;
    const Scalar* b0 = &rhs[(j2+0)*rhsStride];
    for(Index k=0; k<depth; k++)
    {
      blockB[count] = cj(b0[k]);
      count += 1;
    }
    if(PanelMode) count += (stride-offset-depth);
  }
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq 0x58(%rsp), %rax
orq 0x50(%rsp), %rax
jne 0x3abf8
movq %r8, %r11
movq %rdx, %rdi
pushq $0x4
popq %r8
movq %r9, 0x10(%rsp)
movq %r9, %rax
cqto
idivq %r8
xorl %r9d, %r9d
testq %r11, %r11
cmovleq %r9, %r11
movq %rax, (%rsp)
leaq (,%rax,4), %rdx
movq %rcx, %rbx
shlq $0x5, %rbx
leaq (%rdi,%rcx,8), %r14
movq %rcx, %r15
shlq $0x4, %r15
addq %rdi, %r15
imulq $0x18, %rcx, %r12
addq %rdi, %r12
movq %rsi, 0x8(%rsp)
addq $0x18, %rsi
movq %rdi, %rbp
xorl %r10d, %r10d
cmpq %rdx, %r9
jge 0x3aba2
leaq (%rsi,%r10,8), %rax
xorl %r13d, %r13d
movq %r11, %r8
subq $0x1, %r8
jb 0x3ab8d
movsd (%rbp,%r13,2), %xmm0
movsd %xmm0, -0x18(%rax,%r13,8)
movsd (%r14,%r13,2), %xmm0
movsd %xmm0, -0x10(%rax,%r13,8)
movsd (%r15,%r13,2), %xmm0
movsd %xmm0, -0x8(%rax,%r13,8)
movsd (%r12,%r13,2), %xmm0
movsd %xmm0, (%rax,%r13,8)
addq $0x4, %r13
jmp 0x3ab4d
addq $0x4, %r9
addq %rbx, %rbp
addq %rbx, %r14
addq %rbx, %r15
addq %rbx, %r12
addq %r13, %r10
jmp 0x3ab3e
movq (%rsp), %rax
imulq %rcx, %rax
shlq $0x5, %rax
addq %rax, %rdi
shlq $0x3, %rcx
movq 0x10(%rsp), %r8
movq 0x8(%rsp), %r9
cmpq %r8, %rdx
jge 0x3abe9
leaq (%r9,%r10,8), %rsi
xorl %eax, %eax
cmpq %rax, %r11
je 0x3abde
movsd (%rdi,%rax,8), %xmm0
movsd %xmm0, (%rsi,%rax,8)
incq %rax
jmp 0x3abca
incq %rdx
addq %rax, %r10
addq %rcx, %rdi
jmp 0x3abbf
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0x1c9a9(%rip), %rdi     # 0x575a8
leaq 0x1c9fd(%rip), %rsi     # 0x57603
leaq 0x1ca30(%rip), %rcx     # 0x5763d
movl $0x4c6, %edx            # imm = 0x4C6
callq 0xe380
nop