// File: /workspace/github_c_makefile_star2_O0/PoulinV[P]AxiCLASS/build/../source/primordial.c
// Function: primordial_inflation_one_k
int primordial_inflation_one_k(
                               struct primordial * ppm,
                               struct precision * ppr,
                               double k,
                               double * y,
                               double * dy,
                               double * curvature,
                               double * tensor
                               ) {

  /** Summary: */

  /** - define local variables */
  double tau_start,tau_end,dtau;
  double z,ksi2,ah2;
  double aH;
  double curvature_old;
  double curvature_new;
  double dlnPdN;

  struct primordial_inflation_parameters_and_workspace pipaw;
  struct generic_integrator_workspace gi;

  /** - initialize the generic integrator (same integrator already used
      in background, thermodynamics and perturbation modules) */

  pipaw.ppm = ppm;
  pipaw.N = ppm->in_size;
  pipaw.integrate = forward;
  pipaw.time = conformal;
  pipaw.k = k;

  class_call(initialize_generic_integrator(pipaw.N,&gi),
             gi.error_message,
             ppm->error_message);

  /* initial conditions for the perturbations, Bunch-Davies vacuum */
  y[ppm->index_in_ksi_re]=1./sqrt(2.*k);
  y[ppm->index_in_ksi_im]=0.;
  y[ppm->index_in_dksi_re]=0.;
  y[ppm->index_in_dksi_im]=-k*y[ppm->index_in_ksi_re];

  y[ppm->index_in_ah_re]=1./sqrt(2.*k);
  y[ppm->index_in_ah_im]=0.;
  y[ppm->index_in_dah_re]=0.;
  y[ppm->index_in_dah_im]=-k*y[ppm->index_in_ah_re];

  /** - initialize variable used for deciding when to stop the calculation (= when the curvature remains stable) */
  curvature_new = _HUGE_;

  /** - initialize conformal time to arbitrary value (here, only variations
      of tau matter: the equations that we integrate do not depend
      explicitly on time) */
  tau_end = 0;

  /** - compute derivative of initial vector and infer first value of adaptive time-step */
  class_call(primordial_inflation_derivs(tau_end,
                                         y,
                                         dy,
                                         &pipaw,
                                         ppm->error_message),
             ppm->error_message,
             ppm->error_message);

  dtau = ppr->primordial_inflation_pt_stepsize*2.*_PI_
    /MAX(sqrt(fabs(dy[ppm->index_in_dksi_re]/y[ppm->index_in_ksi_re])),k);

  /** - loop over time */
  do {

    /*  new time interval [tau_start, tau_end] over which equations will be integrated */
    tau_start = tau_end;

    tau_end = tau_start + dtau;

    class_test(dtau/tau_start < ppr->smallest_allowed_variation,
               ppm->error_message,
               "integration step: relative change in time =%e < machine precision : leads either to numerical error or infinite loop",dtau/tau_start);

    /* evolve the system */
    class_call(generic_integrator(primordial_inflation_derivs,
                                  tau_start,
                                  tau_end,
                                  y,
                                  &pipaw,
                                  ppr->primordial_inflation_tol_integration,
                                  ppr->smallest_allowed_variation,
                                  &gi),
               gi.error_message,
               ppm->error_message);

    /* compute derivatives at tau_end, useful to infer new time step and spectra */
    class_call(primordial_inflation_derivs(tau_end,
                                           y,
                                           dy,
                                           &pipaw,
                                           ppm->error_message),
               ppm->error_message,
               ppm->error_message);

    /* new time step */
    dtau = ppr->primordial_inflation_pt_stepsize*2.*_PI_
      /MAX(sqrt(fabs(dy[ppm->index_in_dksi_re]/y[ppm->index_in_ksi_re])),k);

    /* new aH */
    aH = dy[ppm->index_in_a]/y[ppm->index_in_a];

    /* store previous value of curvature (at tau_start) */
    curvature_old =  curvature_new;

    /* new curvature */
    z = y[ppm->index_in_a]*dy[ppm->index_in_phi]/aH;
    ksi2 = y[ppm->index_in_ksi_re]*y[ppm->index_in_ksi_re]+y[ppm->index_in_ksi_im]*y[ppm->index_in_ksi_im];
    curvature_new = k*k*k/2./_PI_/_PI_*ksi2/z/z;

    /* variation of curvature with time (dimensionless) */
    dlnPdN = (curvature_new-curvature_old)/dtau*y[ppm->index_in_a]/dy[ppm->index_in_a]/curvature_new;

    /* stop when (k >> aH) AND curvature is stable */
  } while ((k/aH >= ppr->primordial_inflation_ratio_max) || (fabs(dlnPdN) > ppr->primordial_inflation_tol_curvature));

  /** - clean the generic integrator */
  class_call(cleanup_generic_integrator(&gi),
             gi.error_message,
             ppm->error_message);

  /** - store final value of curvature for this wavenumber */
  *curvature = curvature_new;

  /** - store final value of tensor perturbation for this wavenumber */
  ah2 = y[ppm->index_in_ah_re]*y[ppm->index_in_ah_re]+y[ppm->index_in_ah_im]*y[ppm->index_in_ah_im];
  *tensor = 32.*k*k*k/_PI_*ah2/y[ppm->index_in_a]/y[ppm->index_in_a];

  //fprintf(stdout,"%g %g %g %g %g\n",k,*curvature,*tensor,*tensor/(*curvature),dlnPdN);

  return _SUCCESS_;
}

// Assembly:
subq $0x41a8, %rsp           # imm = 0x41A8
movq %rdi, 0x4198(%rsp)
movq %rsi, 0x4190(%rsp)
movsd %xmm0, 0x4188(%rsp)
movq %rdx, 0x4180(%rsp)
movq %rcx, 0x4178(%rsp)
movq %r8, 0x4170(%rsp)
movq %r9, 0x4168(%rsp)
movq 0x4198(%rsp), %rax
movq %rax, 0x40a0(%rsp)
movq 0x4198(%rsp), %rax
cvtsi2sdl 0x300(%rax), %xmm0
movsd %xmm0, 0x40a8(%rsp)
movl $0x1, 0x4110(%rsp)
movl $0x0, 0x4114(%rsp)
movsd 0x4188(%rsp), %xmm0
movsd %xmm0, 0x4108(%rsp)
cvttsd2si 0x40a8(%rsp), %edi
leaq 0x3838(%rsp), %rsi
callq 0x8ff0
cmpl $0x1, %eax
jne 0x11ec46
leaq 0x3030(%rsp), %rdi
leaq 0x3838(%rsp), %rcx
addq $0x68, %rcx
leaq 0xb37e1(%rip), %rsi     # 0x1d23d8
leaq 0xdf388(%rip), %rdx     # 0x1fdf86
movb $0x0, %al
callq 0x5b9c0
movq 0x4198(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x3030(%rsp), %r8
leaq 0xb3411(%rip), %rsi     # 0x1d2034
leaq 0xdf387(%rip), %rdx     # 0x1fdfb1
movl $0x712, %ecx            # imm = 0x712
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x41a4(%rsp)
jmp 0x11f6dd
movsd 0xb4032(%rip), %xmm0    # 0x1d2c80
mulsd 0x4188(%rsp), %xmm0
callq 0x82e0
movaps %xmm0, %xmm1
movsd 0xb35e1(%rip), %xmm0    # 0x1d2248
divsd %xmm1, %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2dc(%rcx), %rcx
movsd %xmm0, (%rax,%rcx,8)
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2e0(%rcx), %rcx
xorps %xmm0, %xmm0
movsd %xmm0, (%rax,%rcx,8)
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2e4(%rcx), %rcx
xorps %xmm0, %xmm0
movsd %xmm0, (%rax,%rcx,8)
movsd 0x4188(%rsp), %xmm0
movq %xmm0, %rax
movabsq $-0x8000000000000000, %rcx # imm = 0x8000000000000000
xorq %rcx, %rax
movq %rax, %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2dc(%rcx), %rcx
mulsd (%rax,%rcx,8), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2e8(%rcx), %rcx
movsd %xmm0, (%rax,%rcx,8)
movsd 0xb3f5b(%rip), %xmm0    # 0x1d2c80
mulsd 0x4188(%rsp), %xmm0
callq 0x82e0
movaps %xmm0, %xmm1
movsd 0xb350a(%rip), %xmm0    # 0x1d2248
divsd %xmm1, %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2ec(%rcx), %rcx
movsd %xmm0, (%rax,%rcx,8)
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2f0(%rcx), %rcx
xorps %xmm0, %xmm0
movsd %xmm0, (%rax,%rcx,8)
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2f4(%rcx), %rcx
xorps %xmm0, %xmm0
movsd %xmm0, (%rax,%rcx,8)
movsd 0x4188(%rsp), %xmm0
movq %xmm0, %rax
movabsq $-0x8000000000000000, %rcx # imm = 0x8000000000000000
xorq %rcx, %rax
movq %rax, %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2ec(%rcx), %rcx
mulsd (%rax,%rcx,8), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2f8(%rcx), %rcx
movsd %xmm0, (%rax,%rcx,8)
movsd 0xd26f4(%rip), %xmm0    # 0x1f14f0
movsd %xmm0, 0x4120(%rsp)
xorps %xmm0, %xmm0
movsd %xmm0, 0x4158(%rsp)
movsd 0x4158(%rsp), %xmm0
movq 0x4180(%rsp), %rdi
movq 0x4178(%rsp), %rsi
movq 0x4198(%rsp), %rcx
addq $0x32a, %rcx            # imm = 0x32A
leaq 0x40a0(%rsp), %rdx
callq 0x11f6f0
cmpl $0x1, %eax
jne 0x11eeb8
leaq 0x2830(%rsp), %rdi
movq 0x4198(%rsp), %rcx
addq $0x32a, %rcx            # imm = 0x32A
leaq 0xb356f(%rip), %rsi     # 0x1d23d8
leaq 0xdf15c(%rip), %rdx     # 0x1fdfcc
movb $0x0, %al
callq 0x5b9c0
movq 0x4198(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x2830(%rsp), %r8
leaq 0xb319f(%rip), %rsi     # 0x1d2034
leaq 0xdf115(%rip), %rdx     # 0x1fdfb1
movl $0x72e, %ecx            # imm = 0x72E
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x41a4(%rsp)
jmp 0x11f6dd
movq 0x4190(%rsp), %rax
movsd 0xb3db8(%rip), %xmm0    # 0x1d2c80
mulsd 0x6a0(%rax), %xmm0
movsd 0xb6108(%rip), %xmm1    # 0x1d4fe0
mulsd %xmm1, %xmm0
movsd %xmm0, 0x28(%rsp)
movq 0x4178(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2e4(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2dc(%rcx), %rcx
divsd (%rax,%rcx,8), %xmm0
movaps 0xb330f(%rip), %xmm1    # 0x1d2230
pand %xmm1, %xmm0
callq 0x82e0
movaps %xmm0, %xmm1
movsd 0x4188(%rsp), %xmm0
ucomisd %xmm1, %xmm0
jbe 0x11ef4d
movsd 0x4188(%rsp), %xmm0
movsd %xmm0, 0x20(%rsp)
jmp 0x11ef9b
movq 0x4178(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2e4(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2dc(%rcx), %rcx
divsd (%rax,%rcx,8), %xmm0
movaps 0xb32a4(%rip), %xmm1    # 0x1d2230
pand %xmm1, %xmm0
callq 0x82e0
movsd %xmm0, 0x20(%rsp)
movsd 0x28(%rsp), %xmm0
movsd 0x20(%rsp), %xmm1
divsd %xmm1, %xmm0
movsd %xmm0, 0x4150(%rsp)
movsd 0x4158(%rsp), %xmm0
movsd %xmm0, 0x4160(%rsp)
movsd 0x4160(%rsp), %xmm0
addsd 0x4150(%rsp), %xmm0
movsd %xmm0, 0x4158(%rsp)
movsd 0x4150(%rsp), %xmm1
divsd 0x4160(%rsp), %xmm1
movq 0x4190(%rsp), %rax
movsd 0xa28(%rax), %xmm0
ucomisd %xmm1, %xmm0
jbe 0x11f09b
leaq 0x2030(%rsp), %rdi
movsd 0x4150(%rsp), %xmm0
divsd 0x4160(%rsp), %xmm0
leaq 0xdefe6(%rip), %rsi     # 0x1fe014
movb $0x1, %al
callq 0x5b9c0
leaq 0x1830(%rsp), %rdi
leaq 0x2030(%rsp), %rcx
leaq 0xb3036(%rip), %rsi     # 0x1d2082
leaq 0xdf036(%rip), %rdx     # 0x1fe089
movb $0x0, %al
callq 0x5b9c0
movq 0x4198(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x1830(%rsp), %r8
leaq 0xb2fbc(%rip), %rsi     # 0x1d2034
leaq 0xdef32(%rip), %rdx     # 0x1fdfb1
movl $0x73d, %ecx            # imm = 0x73D
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x41a4(%rsp)
jmp 0x11f6dd
movsd 0x4160(%rsp), %xmm0
movsd 0x4158(%rsp), %xmm1
movq 0x4180(%rsp), %rsi
movq 0x4190(%rsp), %rax
movsd 0x6b0(%rax), %xmm2
movq 0x4190(%rsp), %rax
movsd 0xa28(%rax), %xmm3
leaq 0x614(%rip), %rdi       # 0x11f6f0
leaq 0x40a0(%rsp), %rdx
leaq 0x3838(%rsp), %rcx
callq 0x97d0
cmpl $0x1, %eax
jne 0x11f160
leaq 0x1030(%rsp), %rdi
leaq 0x3838(%rsp), %rcx
addq $0x68, %rcx
leaq 0xb32c7(%rip), %rsi     # 0x1d23d8
leaq 0xdefa2(%rip), %rdx     # 0x1fe0ba
movb $0x0, %al
callq 0x5b9c0
movq 0x4198(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x1030(%rsp), %r8
leaq 0xb2ef7(%rip), %rsi     # 0x1d2034
leaq 0xdee6d(%rip), %rdx     # 0x1fdfb1
movl $0x749, %ecx            # imm = 0x749
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x41a4(%rsp)
jmp 0x11f6dd
movsd 0x4158(%rsp), %xmm0
movq 0x4180(%rsp), %rdi
movq 0x4178(%rsp), %rsi
movq 0x4198(%rsp), %rcx
addq $0x32a, %rcx            # imm = 0x32A
leaq 0x40a0(%rsp), %rdx
callq 0x11f6f0
cmpl $0x1, %eax
jne 0x11f207
leaq 0x830(%rsp), %rdi
movq 0x4198(%rsp), %rcx
addq $0x32a, %rcx            # imm = 0x32A
leaq 0xb3220(%rip), %rsi     # 0x1d23d8
leaq 0xdee0d(%rip), %rdx     # 0x1fdfcc
movb $0x0, %al
callq 0x5b9c0
movq 0x4198(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x830(%rsp), %r8
leaq 0xb2e50(%rip), %rsi     # 0x1d2034
leaq 0xdedc6(%rip), %rdx     # 0x1fdfb1
movl $0x752, %ecx            # imm = 0x752
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x41a4(%rsp)
jmp 0x11f6dd
movq 0x4190(%rsp), %rax
movsd 0xb3a69(%rip), %xmm0    # 0x1d2c80
mulsd 0x6a0(%rax), %xmm0
movsd 0xb5db9(%rip), %xmm1    # 0x1d4fe0
mulsd %xmm1, %xmm0
movsd %xmm0, 0x18(%rsp)
movq 0x4178(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2e4(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2dc(%rcx), %rcx
divsd (%rax,%rcx,8), %xmm0
movaps 0xb2fc0(%rip), %xmm1    # 0x1d2230
pand %xmm1, %xmm0
callq 0x82e0
movaps %xmm0, %xmm1
movsd 0x4188(%rsp), %xmm0
ucomisd %xmm1, %xmm0
jbe 0x11f29c
movsd 0x4188(%rsp), %xmm0
movsd %xmm0, 0x10(%rsp)
jmp 0x11f2ea
movq 0x4178(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2e4(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2dc(%rcx), %rcx
divsd (%rax,%rcx,8), %xmm0
movaps 0xb2f55(%rip), %xmm1    # 0x1d2230
pand %xmm1, %xmm0
callq 0x82e0
movsd %xmm0, 0x10(%rsp)
movsd 0x18(%rsp), %xmm0
movsd 0x10(%rsp), %xmm1
divsd %xmm1, %xmm0
movsd %xmm0, 0x4150(%rsp)
movq 0x4178(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2d0(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2d0(%rcx), %rcx
divsd (%rax,%rcx,8), %xmm0
movsd %xmm0, 0x4130(%rsp)
movsd 0x4120(%rsp), %xmm0
movsd %xmm0, 0x4128(%rsp)
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2d0(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x4178(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2d4(%rcx), %rcx
mulsd (%rax,%rcx,8), %xmm0
divsd 0x4130(%rsp), %xmm0
movsd %xmm0, 0x4148(%rsp)
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2dc(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2dc(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm2
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2e0(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm1
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2e0(%rcx), %rcx
mulsd (%rax,%rcx,8), %xmm1
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
movsd %xmm0, 0x4140(%rsp)
movsd 0x4188(%rsp), %xmm0
mulsd 0x4188(%rsp), %xmm0
mulsd 0x4188(%rsp), %xmm0
movsd 0xb383c(%rip), %xmm1    # 0x1d2c80
divsd %xmm1, %xmm0
movsd 0xb5b90(%rip), %xmm1    # 0x1d4fe0
divsd %xmm1, %xmm0
movsd 0xb5b84(%rip), %xmm1    # 0x1d4fe0
divsd %xmm1, %xmm0
mulsd 0x4140(%rsp), %xmm0
divsd 0x4148(%rsp), %xmm0
divsd 0x4148(%rsp), %xmm0
movsd %xmm0, 0x4120(%rsp)
movsd 0x4120(%rsp), %xmm0
subsd 0x4128(%rsp), %xmm0
divsd 0x4150(%rsp), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2d0(%rcx), %rcx
mulsd (%rax,%rcx,8), %xmm0
movq 0x4178(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2d0(%rcx), %rcx
divsd (%rax,%rcx,8), %xmm0
divsd 0x4120(%rsp), %xmm0
movsd %xmm0, 0x4118(%rsp)
movsd 0x4188(%rsp), %xmm0
divsd 0x4130(%rsp), %xmm0
movq 0x4190(%rsp), %rcx
movb $0x1, %al
ucomisd 0x690(%rcx), %xmm0
movb %al, 0xf(%rsp)
jae 0x11f53e
movsd 0x4118(%rsp), %xmm0
movaps 0xb2d0d(%rip), %xmm1    # 0x1d2230
pand %xmm1, %xmm0
movq 0x4190(%rsp), %rax
ucomisd 0x6d0(%rax), %xmm0
seta %al
movb %al, 0xf(%rsp)
movb 0xf(%rsp), %al
testb $0x1, %al
jne 0x11efb4
leaq 0x3838(%rsp), %rdi
callq 0x9730
cmpl $0x1, %eax
jne 0x11f5c0
leaq 0x30(%rsp), %rdi
leaq 0x3838(%rsp), %rcx
addq $0x68, %rcx
leaq 0xb2e64(%rip), %rsi     # 0x1d23d8
leaq 0xb3666(%rip), %rdx     # 0x1d2be1
movb $0x0, %al
callq 0x5b9c0
movq 0x4198(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x30(%rsp), %r8
leaq 0xb2a97(%rip), %rsi     # 0x1d2034
leaq 0xdea0d(%rip), %rdx     # 0x1fdfb1
movl $0x76c, %ecx            # imm = 0x76C
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x41a4(%rsp)
jmp 0x11f6dd
movsd 0x4120(%rsp), %xmm0
movq 0x4170(%rsp), %rax
movsd %xmm0, (%rax)
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2ec(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2ec(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm2
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2f0(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm1
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2f0(%rcx), %rcx
mulsd (%rax,%rcx,8), %xmm1
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
movsd %xmm0, 0x4138(%rsp)
movsd 0xd6cfa(%rip), %xmm0    # 0x1f6358
mulsd 0x4188(%rsp), %xmm0
mulsd 0x4188(%rsp), %xmm0
mulsd 0x4188(%rsp), %xmm0
movsd 0xb595f(%rip), %xmm1    # 0x1d4fe0
divsd %xmm1, %xmm0
mulsd 0x4138(%rsp), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2d0(%rcx), %rcx
divsd (%rax,%rcx,8), %xmm0
movq 0x4180(%rsp), %rax
movq 0x4198(%rsp), %rcx
movslq 0x2d0(%rcx), %rcx
divsd (%rax,%rcx,8), %xmm0
movq 0x4168(%rsp), %rax
movsd %xmm0, (%rax)
movl $0x0, 0x41a4(%rsp)
movl 0x41a4(%rsp), %eax
addq $0x41a8, %rsp           # imm = 0x41A8
retq
nopl (%rax)