// File: /workspace/github_c_makefile_star2_O2/PoulinV[P]AxiCLASS/build/../source/thermodynamics.c
// Function: thermodynamics_vector_init
int thermodynamics_vector_init(
                               struct precision * ppr,
                               struct background * pba,
                               struct thermodynamics * pth,
                               double mz,
                               struct thermo_workspace * ptw
                               ) {

  /** Summary: */

  /** Define local variables */
  int index_ti;
  /* ptdw->ptv unallocated if ap_current == index_ap_brec, allocated and filled otherwise */
  struct thermo_vector * ptv;
  struct thermo_diffeq_workspace * ptdw = ptw->ptdw;
  double z;

  class_alloc(ptv,sizeof(struct thermo_vector),pth->error_message);

  /* mz = Minus z is inverted*/
  z = -mz;

  /* Start from no component */
  index_ti = 0;

  /* Add common indices (Have to be added before) */
  class_define_index(ptv->index_ti_D_Tmat,_TRUE_,index_ti,1);

  /* Add all components that should be evolved */
  if (ptdw->ap_current == ptdw->index_ap_brec) {
    /* Nothing else to add */
  }
  else if (ptdw->ap_current == ptdw->index_ap_He1) {
    /* Nothing else to add */
  }
  else if (ptdw->ap_current == ptdw->index_ap_He1f) {
    /* Nothing else to add */
  }
  else if (ptdw->ap_current == ptdw->index_ap_He2) {
    /* Nothing else to add */
  }
  else if (ptdw->ap_current == ptdw->index_ap_H) {
    class_define_index(ptv->index_ti_x_He,_TRUE_,index_ti,1);
  }
  else if (ptdw->ap_current == ptdw->index_ap_frec) {
    class_define_index(ptv->index_ti_x_He,_TRUE_,index_ti,1);
    class_define_index(ptv->index_ti_x_H,_TRUE_,index_ti,1);
  }
  else if (ptdw->ap_current == ptdw->index_ap_reio) {
    class_define_index(ptv->index_ti_x_He,_TRUE_,index_ti,1);
    class_define_index(ptv->index_ti_x_H,_TRUE_,index_ti,1);
  }

  /* Only in the case where we in idm case but not idm TCA define T_idm */
  if (pba->has_idm == _TRUE_){
    class_define_index(ptv->index_ti_T_idm,(ptw->has_ap_idmtca == _FALSE_ || ptdw->ap_current != ptdw->index_ap_idmtca),index_ti,1);
  }

  /* We have now obtained the full size */
  ptv->ti_size = index_ti;

  /* Allocate all arrays used during the evolution */
  class_calloc(ptv->y,ptv->ti_size,sizeof(double),pth->error_message);
  class_alloc(ptv->dy,ptv->ti_size*sizeof(double),pth->error_message);
  class_alloc(ptv->used_in_output,ptv->ti_size*sizeof(int),pth->error_message);

  for (index_ti=0; index_ti<ptv->ti_size; index_ti++) {
    ptv->used_in_output[index_ti] = _TRUE_;
  }

  if (ptw->has_ap_idmtca == _TRUE_ && ptdw->ap_current == ptdw->index_ap_idmtca) {
    /* Store Tmat in workspace for later use */
    ptdw->Tmat = ptw->Tcmb*(1.+z);

    /* Set the new vector and its indices */
    ptdw->ptv = ptv;

    ptdw->ptv->y[ptdw->ptv->index_ti_D_Tmat] = 0.;

    /* set other initial conditions */
    ptdw->require_H = _FALSE_;
    ptdw->require_He = _FALSE_;
  }
  else if (ptw->has_ap_idmtca == _TRUE_ && ptdw->ap_current == ptdw->index_ap_brec) {
    /* Copy old values */
    ptv->y[ptv->index_ti_D_Tmat] = ptdw->ptv->y[ptdw->ptv->index_ti_D_Tmat];
    ptv->dy[ptv->index_ti_D_Tmat] = ptdw->ptv->dy[ptdw->ptv->index_ti_D_Tmat];

    /* Set initial conditions */
    ptv->y[ptv->index_ti_T_idm] = pba->T_cmb * (1.+z);
    /* If we instead have idr tight coupling, we choose instead */
    if ((pth->has_idm_dr == _TRUE_) && pth->n_index_idm_dr > 0)
      ptv->y[ptv->index_ti_T_idm] = pba->T_idr * (1.+z);

    /* Free the old vector and its indices */
    class_call(thermodynamics_vector_free(ptdw->ptv),
               pth->error_message,
               pth->error_message);

    /* Copy the new vector into the position of the old one */
    ptdw->ptv = ptv;
    ptdw->require_H = _FALSE_;
    ptdw->require_He = _FALSE_;
  }
  else if (ptdw->ap_current == ptdw->index_ap_brec) {

    /* Store Tmat in workspace for later use */
    ptdw->Tmat = ptw->Tcmb*(1.+z);

    /* Set the new vector and its indices */
    ptdw->ptv = ptv;

    ptdw->ptv->y[ptdw->ptv->index_ti_D_Tmat] = 0.;

    ptdw->require_H = _FALSE_;
    ptdw->require_He = _FALSE_;

    /* Set idm initial temperature if not coupled */
    if (pba->has_idm == _TRUE_) {
      class_call(thermodynamics_idm_initial_temperature(pba,
                                                        pth,
                                                        z,
                                                        ptdw),
                 pth->error_message,
                 pth->error_message);
      ptv->y[ptv->index_ti_T_idm] = ptdw->T_idm;
    }
  }
  /* - in this scheme we start to evolve Helium and thus need to set its initial condition via the analytic function */
  else if (ptdw->ap_current == ptdw->index_ap_H) {
    /* Store Tmat in workspace for later use */
    ptdw->Tmat = ptdw->ptv->y[ptdw->ptv->index_ti_D_Tmat] + ptw->Tcmb*(1.+z);

    /* Obtain initial contents of new vector analytically, especially x_He */
    class_call(thermodynamics_ionization_fractions(z,ptdw->ptv->y,pba,pth,ptw,ptdw->ap_current-1),
               pth->error_message,
               pth->error_message);

    /* Set the new vector and its indices */
    ptv->y[ptv->index_ti_D_Tmat] = ptdw->ptv->y[ptdw->ptv->index_ti_D_Tmat];
    ptv->y[ptv->index_ti_x_He] = ptdw->x_He;
    if (pba->has_idm == _TRUE_)
      ptv->y[ptv->index_ti_T_idm] = ptdw->ptv->y[ptdw->ptv->index_ti_T_idm];

    /* Free the old vector and its indices */
    class_call(thermodynamics_vector_free(ptdw->ptv),
               pth->error_message,
               pth->error_message);

    /* Copy the new vector into the position of the old one*/
    ptdw->ptv = ptv;

    ptdw->require_H = _FALSE_;
    ptdw->require_He = _TRUE_;
  }
  /* - in the scheme of full recombination (=frec) we evolve all quantities and thus need to set their initial conditions.
     Tmat and x_He are solely taken from the previous scheme, x_H is set via the analytic function */
  else if (ptdw->ap_current == ptdw->index_ap_frec) {
    /* Store Tmat in workspace for later use */
    ptdw->Tmat = ptdw->ptv->y[ptdw->ptv->index_ti_D_Tmat] + ptw->Tcmb*(1.+z);

    /* Obtain initial contents of new vector analytically, especially x_H */
    class_call(thermodynamics_ionization_fractions(z,ptdw->ptv->y,pba,pth,ptw,ptdw->ap_current-1),
               pth->error_message,
               pth->error_message);

    /* Set the new vector and its indices */
    ptv->y[ptv->index_ti_D_Tmat] = ptdw->ptv->y[ptdw->ptv->index_ti_D_Tmat];
    ptv->y[ptv->index_ti_x_H] = ptdw->x_H;
    ptv->y[ptv->index_ti_x_He] = ptdw->ptv->y[ptdw->ptv->index_ti_x_He];
    if (pba->has_idm == _TRUE_)
      ptv->y[ptv->index_ti_T_idm] = ptdw->ptv->y[ptdw->ptv->index_ti_T_idm];

    /* Free the old vector and its indices */
    class_call(thermodynamics_vector_free(ptdw->ptv),
               pth->error_message,
               pth->error_message);

    /* Copy the new vector into the position of the old one*/

    ptdw->ptv = ptv;

    ptdw->require_H = _TRUE_;
    ptdw->require_He = _TRUE_;
  }
  /* - during reionization we continue to evolve all quantities. Now all three intial conditions are just taken from the previous scheme */
  else if (ptdw->ap_current == ptdw->index_ap_reio) {

    /* Set the new vector and its indices */
    ptv->y[ptv->index_ti_D_Tmat] = ptdw->ptv->y[ptdw->ptv->index_ti_D_Tmat];
    ptv->y[ptv->index_ti_x_H] = ptdw->ptv->y[ptdw->ptv->index_ti_x_H];
    ptv->y[ptv->index_ti_x_He] = ptdw->ptv->y[ptdw->ptv->index_ti_x_He];
    if (pba->has_idm == _TRUE_)
      ptv->y[ptv->index_ti_T_idm] = ptdw->ptv->y[ptdw->ptv->index_ti_T_idm];

    /* Free the old vector and its indices */
    class_call(thermodynamics_vector_free(ptdw->ptv),
               pth->error_message,
               pth->error_message);

    /* Copy the new vector into the position of the old one*/

    ptdw->ptv = ptv;

    ptdw->require_H = _TRUE_;
    ptdw->require_He = _TRUE_;
  }
  /* - in all other approximations we only evolve Tmat and set its initial conditions from the previous scheme */
  else{
    /* Store Tmat in workspace for later use */
    ptdw->Tmat = ptdw->ptv->y[ptdw->ptv->index_ti_D_Tmat] + ptw->Tcmb*(1.+z);

    /* Set the new vector and its indices */
    ptv->y[ptv->index_ti_D_Tmat] = ptdw->ptv->y[ptdw->ptv->index_ti_D_Tmat];
    if (pba->has_idm == _TRUE_)
      ptv->y[ptv->index_ti_T_idm] = ptdw->ptv->y[ptdw->ptv->index_ti_T_idm];

    /* Free the old vector and its indices */
    class_call(thermodynamics_vector_free(ptdw->ptv),
               pth->error_message,
               pth->error_message);

    /* Copy the new vector into the position of the old one*/
    ptdw->ptv = ptv;

    ptdw->require_H = _FALSE_;
    ptdw->require_He = _FALSE_;
  }

  return _SUCCESS_;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x848, %rsp            # imm = 0x848
movq %rcx, %r13
movapd %xmm0, 0x30(%rsp)
movq %rdx, %r14
movq %rsi, %r12
movq 0x80(%rcx), %rbx
pushq $0x30
popq %rdi
callq 0x8490
testq %rax, %rax
je 0x67063
movq %rax, %r15
andl $0x0, 0xc(%rax)
pushq $0x1
popq %rdx
movl 0x74(%rbx), %eax
movl 0x90(%rbx), %ebp
cmpl %eax, %ebp
movl %eax, 0x24(%rsp)
je 0x670c8
cmpl 0x78(%rbx), %ebp
je 0x670c8
cmpl 0x7c(%rbx), %ebp
je 0x670c8
cmpl 0x80(%rbx), %ebp
je 0x670c8
cmpl 0x84(%rbx), %ebp
jne 0x670a5
movl $0x1, 0x8(%r15)
pushq $0x2
popq %rdx
jmp 0x670c8
leaq 0x7df9a(%rip), %rsi     # 0xe5004
leaq 0x9f85f(%rip), %rdx     # 0x1068d0
leaq 0x40(%rsp), %rbx
pushq $0x30
popq %rcx
movq %rbx, %rdi
xorl %eax, %eax
callq 0x2e014
addq $0x1064, %r14           # imm = 0x1064
leaq 0x7dfa3(%rip), %rsi     # 0xe5034
leaq 0x9f83c(%rip), %rdx     # 0x1068d4
movq %r14, %rdi
movl $0x794, %ecx            # imm = 0x794
jmp 0x67283
movabsq $0x100000002, %rcx      # imm = 0x100000002
pushq $0x3
popq %rax
cmpl 0x88(%rbx), %ebp
je 0x670c2
cmpl 0x8c(%rbx), %ebp
jne 0x670c8
movq %rcx, 0x4(%r15)
movl %eax, %edx
movq %r14, 0x8(%rsp)
movq %r12, 0x18(%rsp)
movzwl 0x4b6(%r12), %ecx
movl %edx, %eax
movw %cx, 0x6(%rsp)
cmpw $0x1, %cx
jne 0x670fe
cmpw $0x0, 0x60(%r13)
je 0x670f7
movl %edx, %eax
cmpl 0x70(%rbx), %ebp
je 0x670fe
movl %edx, 0x10(%r15)
leal 0x1(%rdx), %eax
movq %rdx, 0x28(%rsp)
movl %eax, (%r15)
movl %eax, %r14d
pushq $0x8
popq %rsi
movq %r14, %rdi
callq 0x8270
movq %rax, 0x18(%r15)
testq %rax, %rax
je 0x67181
movq %rax, %r12
movq %rbx, 0x10(%rsp)
leal (,%r14,8), %edi
callq 0x8490
movq %rax, 0x20(%r15)
testq %rax, %rax
je 0x671fb
movq %rax, %rbx
leal (,%r14,4), %edi
callq 0x8490
movq %rax, 0x28(%r15)
testq %rax, %rax
je 0x67240
movapd 0x7e0cc(%rip), %xmm0    # 0xe5230
movapd 0x30(%rsp), %xmm2
xorpd %xmm2, %xmm0
xorl %ecx, %ecx
cmpq %rcx, %r14
je 0x671c5
movl $0x1, (%rax,%rcx,4)
incq %rcx
jmp 0x67170
leaq 0x7de7c(%rip), %rsi     # 0xe5004
leaq 0x9f760(%rip), %rdx     # 0x1068ef
leaq 0x40(%rsp), %rbx
pushq $0x8
popq %rcx
movq %rbx, %rdi
xorl %eax, %eax
callq 0x2e014
movq 0x8(%rsp), %rdi
addq $0x1064, %rdi           # imm = 0x1064
leaq 0x7de80(%rip), %rsi     # 0xe5034
leaq 0x9f719(%rip), %rdx     # 0x1068d4
movl $0x7c1, %ecx            # imm = 0x7C1
jmp 0x67283
cmpw $0x1, 0x60(%r13)
jne 0x672a4
movq 0x10(%rsp), %rax
cmpl 0x70(%rax), %ebp
jne 0x67342
movsd 0x7e079(%rip), %xmm0    # 0xe5260
subsd %xmm2, %xmm0
mulsd 0x38(%r13), %xmm0
movsd %xmm0, 0x28(%rax)
jmp 0x673d7
shll $0x3, %r14d
leaq 0x7ddfe(%rip), %rsi     # 0xe5004
leaq 0x9f6e9(%rip), %rdx     # 0x1068f6
leaq 0x40(%rsp), %rbx
movq %rbx, %rdi
movl %r14d, %ecx
xorl %eax, %eax
callq 0x2e014
movq 0x8(%rsp), %rdi
addq $0x1064, %rdi           # imm = 0x1064
leaq 0x7de02(%rip), %rsi     # 0xe5034
leaq 0x9f69b(%rip), %rdx     # 0x1068d4
movl $0x7c2, %ecx            # imm = 0x7C2
jmp 0x67283
shll $0x2, %r14d
leaq 0x7ddb9(%rip), %rsi     # 0xe5004
leaq 0x9f6ac(%rip), %rdx     # 0x1068fe
leaq 0x40(%rsp), %rbx
movq %rbx, %rdi
movl %r14d, %ecx
xorl %eax, %eax
callq 0x2e014
movq 0x8(%rsp), %rdi
addq $0x1064, %rdi           # imm = 0x1064
leaq 0x7ddbd(%rip), %rsi     # 0xe5034
leaq 0x9f656(%rip), %rdx     # 0x1068d4
movl $0x7c3, %ecx            # imm = 0x7C3
movq %rbx, %r8
xorl %eax, %eax
callq 0x2e014
pushq $0x1
popq %rbp
movl %ebp, %eax
addq $0x848, %rsp            # imm = 0x848
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
cmpl 0x24(%rsp), %ebp
jne 0x673eb
movsd 0x7dfaa(%rip), %xmm1    # 0xe5260
subsd %xmm2, %xmm1
mulsd 0x38(%r13), %xmm1
movq 0x10(%rsp), %rbx
andq $0x0, 0xb0(%rbx)
xorl %ebp, %ebp
movsd %xmm1, 0x28(%rbx)
movq %r15, 0xb8(%rbx)
cmpw $0x1, 0x6(%rsp)
jne 0x67290
movq 0x18(%rsp), %rdi
movq 0x8(%rsp), %r14
movq %r14, %rsi
movq %rbx, %rdx
callq 0x6b47e
testl %eax, %eax
je 0x675fe
addq $0x1064, %r14           # imm = 0x1064
leaq 0x7e0e2(%rip), %rsi     # 0xe53f0
leaq 0x9f5fd(%rip), %rdx     # 0x106912
leaq 0x40(%rsp), %rbx
movq %rbx, %rdi
movq %r14, %rcx
xorl %eax, %eax
callq 0x2e014
leaq 0x7dd06(%rip), %rsi     # 0xe5034
leaq 0x9f59f(%rip), %rdx     # 0x1068d4
movq %r14, %rdi
movl $0x7ff, %ecx            # imm = 0x7FF
jmp 0x67283
cmpl 0x24(%rsp), %ebp
jne 0x673eb
movq 0x10(%rsp), %rax
movq 0xb8(%rax), %rdi
movq 0x18(%rdi), %rax
movslq 0xc(%rdi), %rcx
movsd (%rax,%rcx,8), %xmm0
movsd %xmm0, (%r12)
movq 0x20(%rdi), %rax
movsd (%rax,%rcx,8), %xmm0
movsd %xmm0, (%rbx)
movsd 0x7dee0(%rip), %xmm0    # 0xe5260
subsd %xmm2, %xmm0
movq 0x18(%rsp), %rax
movsd 0x18(%rax), %xmm1
mulsd %xmm0, %xmm1
movl 0x28(%rsp), %eax
movsd %xmm1, (%r12,%rax,8)
movq 0x8(%rsp), %rcx
cmpw $0x1, 0x38(%rcx)
jne 0x673cd
movsd 0x1028(%rcx), %xmm1
xorpd %xmm2, %xmm2
ucomisd %xmm2, %xmm1
jbe 0x673cd
movq 0x18(%rsp), %rcx
mulsd 0x100(%rcx), %xmm0
movsd %xmm0, (%r12,%rax,8)
callq 0x695be
movq 0x10(%rsp), %rax
movq %r15, 0xb8(%rax)
andq $0x0, 0xb0(%rax)
jmp 0x676e7
movq 0x10(%rsp), %rbx
cmpl 0x84(%rbx), %ebp
jne 0x6748e
movq 0xb8(%rbx), %rax
movq 0x18(%rax), %rdi
movslq 0xc(%rax), %rax
movsd 0x7de4d(%rip), %xmm1    # 0xe5260
subsd %xmm2, %xmm1
mulsd 0x38(%r13), %xmm1
addsd (%rdi,%rax,8), %xmm1
movsd %xmm1, 0x28(%rbx)
decl %ebp
movq 0x18(%rsp), %r12
movq %r12, %rsi
movq 0x8(%rsp), %r14
movq %r14, %rdx
movq %r13, %rcx
movl %ebp, %r8d
callq 0x6b829
testl %eax, %eax
je 0x67596
addq $0x1064, %r14           # imm = 0x1064
leaq 0x7df96(%rip), %rsi     # 0xe53f0
leaq 0x9f4eb(%rip), %rdx     # 0x10694c
leaq 0x40(%rsp), %rbx
movq %rbx, %rdi
movq %r14, %rcx
xorl %eax, %eax
callq 0x2e014
leaq 0x7dbba(%rip), %rsi     # 0xe5034
leaq 0x9f453(%rip), %rdx     # 0x1068d4
movq %r14, %rdi
movl $0x80b, %ecx            # imm = 0x80B
jmp 0x67283
cmpl 0x88(%rbx), %ebp
jne 0x6752c
movq 0xb8(%rbx), %rax
movq 0x18(%rax), %rdi
movslq 0xc(%rax), %rax
movsd 0x7ddaf(%rip), %xmm1    # 0xe5260
subsd %xmm2, %xmm1
mulsd 0x38(%r13), %xmm1
addsd (%rdi,%rax,8), %xmm1
movsd %xmm1, 0x28(%rbx)
decl %ebp
movq 0x18(%rsp), %r12
movq %r12, %rsi
movq 0x8(%rsp), %r14
movq %r14, %rdx
movq %r13, %rcx
movl %ebp, %r8d
callq 0x6b829
testl %eax, %eax
je 0x6766c
addq $0x1064, %r14           # imm = 0x1064
leaq 0x7def8(%rip), %rsi     # 0xe53f0
leaq 0x9f44d(%rip), %rdx     # 0x10694c
leaq 0x40(%rsp), %rbx
movq %rbx, %rdi
movq %r14, %rcx
xorl %eax, %eax
callq 0x2e014
leaq 0x7db1c(%rip), %rsi     # 0xe5034
leaq 0x9f3b5(%rip), %rdx     # 0x1068d4
movq %r14, %rdi
movl $0x827, %ecx            # imm = 0x827
jmp 0x67283
movq 0xb8(%rbx), %rdi
movq 0x18(%rdi), %rax
movslq 0xc(%rdi), %rcx
movsd (%rax,%rcx,8), %xmm0
cmpl 0x8c(%rbx), %ebp
jne 0x67615
movsd %xmm0, (%r12)
movslq 0x4(%rdi), %rcx
movsd (%rax,%rcx,8), %xmm0
movsd %xmm0, 0x10(%r12)
movslq 0x8(%rdi), %rcx
movsd (%rax,%rcx,8), %xmm0
movsd %xmm0, 0x8(%r12)
cmpw $0x1, 0x6(%rsp)
jne 0x676ca
movslq 0x10(%rdi), %rcx
movsd (%rax,%rcx,8), %xmm0
movl 0x28(%rsp), %eax
movsd %xmm0, (%r12,%rax,8)
jmp 0x676ca
movq 0xb8(%rbx), %rdi
movq 0x18(%rdi), %rax
movslq 0xc(%rdi), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x18(%r15), %rcx
movslq 0xc(%r15), %rdx
movsd %xmm0, (%rcx,%rdx,8)
movsd 0x8(%rbx), %xmm0
movslq 0x8(%r15), %rdx
movsd %xmm0, (%rcx,%rdx,8)
cmpw $0x1, 0x4b6(%r12)
jne 0x675e3
movslq 0x10(%rdi), %rdx
movsd (%rax,%rdx,8), %xmm0
movslq 0x10(%r15), %rax
movsd %xmm0, (%rcx,%rax,8)
callq 0x695be
movq %r15, 0xb8(%rbx)
movabsq $0x100000000, %rax      # imm = 0x100000000
jmp 0x676e0
movsd 0x38(%rbx), %xmm0
movq 0x18(%r15), %rax
movslq 0x10(%r15), %rcx
movsd %xmm0, (%rax,%rcx,8)
jmp 0x67290
movsd 0x7dc43(%rip), %xmm1    # 0xe5260
subsd %xmm2, %xmm1
mulsd 0x38(%r13), %xmm1
addsd %xmm0, %xmm1
movsd %xmm1, 0x28(%rbx)
movsd (%rax,%rcx,8), %xmm0
movsd %xmm0, (%r12)
cmpw $0x1, 0x6(%rsp)
jne 0x67656
movslq 0x10(%rdi), %rcx
movsd (%rax,%rcx,8), %xmm0
movl 0x28(%rsp), %eax
movsd %xmm0, (%r12,%rax,8)
callq 0x695be
movq %r15, 0xb8(%rbx)
andq $0x0, 0xb0(%rbx)
jmp 0x676e7
movq 0xb8(%rbx), %rdi
movq 0x18(%rdi), %rax
movslq 0xc(%rdi), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x18(%r15), %rcx
movslq 0xc(%r15), %rdx
movsd %xmm0, (%rcx,%rdx,8)
movsd (%rbx), %xmm0
movslq 0x4(%r15), %rdx
movsd %xmm0, (%rcx,%rdx,8)
movslq 0x8(%rdi), %rdx
movsd (%rax,%rdx,8), %xmm0
movslq 0x8(%r15), %rdx
movsd %xmm0, (%rcx,%rdx,8)
cmpw $0x1, 0x4b6(%r12)
jne 0x676ca
movslq 0x10(%rdi), %rdx
movsd (%rax,%rdx,8), %xmm0
movslq 0x10(%r15), %rax
movsd %xmm0, (%rcx,%rax,8)
callq 0x695be
movq %r15, 0xb8(%rbx)
movabsq $0x100000001, %rax      # imm = 0x100000001
movq %rax, 0xb0(%rbx)
xorl %ebp, %ebp
jmp 0x67290