// File: /workspace/github_c_makefile_star2_O0/PoulinV[P]AxiCLASS/build/../source/primordial.c
// Function: primordial_inflation_one_wavenumber
int primordial_inflation_one_wavenumber(
                                        struct perturbations * ppt,
                                        struct primordial * ppm,
                                        struct precision * ppr,
                                        double * y_ini,
                                        int index_k
                                        ) {
  double k;
  double curvature,tensors;
  double * y;
  double * dy;

  k = exp(ppm->lnk[index_k]);

  /** Summary */
  /** - allocate vectors for background/perturbed quantities */
  class_alloc(y,ppm->in_size*sizeof(double),ppm->error_message);
  class_alloc(dy,ppm->in_size*sizeof(double),ppm->error_message);

  /** - initialize the background part of the running vector */
  y[ppm->index_in_a] = y_ini[ppm->index_in_a];
  y[ppm->index_in_phi] = y_ini[ppm->index_in_phi];
  if ((ppm->primordial_spec_type == inflation_V) || (ppm->primordial_spec_type == inflation_V_end))
    y[ppm->index_in_dphi] = y_ini[ppm->index_in_dphi];

  /** - evolve the background until the relevant initial time for
      integrating perturbations */
  class_call(primordial_inflation_evolve_background(ppm,
                                                    ppr,
                                                    y,
                                                    dy,
                                                    _aH_,
                                                    k/ppr->primordial_inflation_ratio_min,
                                                    _FALSE_,
                                                    forward,
                                                    conformal),
             ppm->error_message,
             ppm->error_message);

  /** - evolve the background/perturbation equations from this time and
      until some time after Horizon crossing */
  class_call(primordial_inflation_one_k(ppm,
                                        ppr,
                                        k,
                                        y,
                                        dy,
                                        &curvature,
                                        &tensors),
             ppm->error_message,
             ppm->error_message);

  free(y);
  free(dy);

  class_test(curvature<=0.,
             ppm->error_message,
             "negative curvature spectrum");

  class_test(tensors<=0.,
             ppm->error_message,
             "negative tensor spectrum");

  /** - store the obtained result for curvature and tensor perturbations */
  ppm->lnpk[ppt->index_md_scalars][index_k] = log(curvature);
  ppm->lnpk[ppt->index_md_tensors][index_k] = log(tensors);

  /* uncomment if you want to print here the spectra for testing */
  /* fprintf(stderr,"%e %e %e\n", */
  /* 	    ppm->lnk[index_k], */
  /* 	    ppm->lnpk[ppt->index_md_scalars][index_k], */
  /* 	    ppm->lnpk[ppt->index_md_tensors][index_k]); */

  return _SUCCESS_;
}

// Assembly:
subq $0x4088, %rsp           # imm = 0x4088
movq %rdi, 0x4078(%rsp)
movq %rsi, 0x4070(%rsp)
movq %rdx, 0x4068(%rsp)
movq %rcx, 0x4060(%rsp)
movl %r8d, 0x405c(%rsp)
movq 0x4070(%rsp), %rax
movq 0x298(%rax), %rax
movslq 0x405c(%rsp), %rcx
movsd (%rax,%rcx,8), %xmm0
callq 0x8670
movsd %xmm0, 0x4050(%rsp)
movq 0x4070(%rsp), %rax
movslq 0x300(%rax), %rdi
shlq $0x3, %rdi
callq 0x8460
movq %rax, 0x4038(%rsp)
cmpq $0x0, 0x4038(%rsp)
jne 0x11e683
movq 0x4070(%rsp), %rax
movslq 0x300(%rax), %rax
shlq $0x3, %rax
movl %eax, 0x402c(%rsp)
leaq 0x3820(%rsp), %rdi
movl 0x402c(%rsp), %ecx
leaq 0xb39d0(%rip), %rsi     # 0x1d2004
leaq 0xb6deb(%rip), %rdx     # 0x1d5426
movb $0x0, %al
callq 0x5b9c0
movq 0x4070(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x3820(%rsp), %r8
leaq 0xb39d4(%rip), %rsi     # 0x1d2034
leaq 0xdf7eb(%rip), %rdx     # 0x1fde52
movl $0x6a7, %ecx            # imm = 0x6A7
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x4084(%rsp)
jmp 0x11eb13
movq 0x4070(%rsp), %rax
movslq 0x300(%rax), %rdi
shlq $0x3, %rdi
callq 0x8460
movq %rax, 0x4030(%rsp)
cmpq $0x0, 0x4030(%rsp)
jne 0x11e72d
movq 0x4070(%rsp), %rax
movslq 0x300(%rax), %rax
shlq $0x3, %rax
movl %eax, 0x381c(%rsp)
leaq 0x3010(%rsp), %rdi
movl 0x381c(%rsp), %ecx
leaq 0xb3926(%rip), %rsi     # 0x1d2004
leaq 0xdc3d0(%rip), %rdx     # 0x1faab5
movb $0x0, %al
callq 0x5b9c0
movq 0x4070(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x3010(%rsp), %r8
leaq 0xb392a(%rip), %rsi     # 0x1d2034
leaq 0xdf741(%rip), %rdx     # 0x1fde52
movl $0x6a8, %ecx            # imm = 0x6A8
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x4084(%rsp)
jmp 0x11eb13
movq 0x4060(%rsp), %rax
movq 0x4070(%rsp), %rcx
movslq 0x2d0(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x4038(%rsp), %rax
movq 0x4070(%rsp), %rcx
movslq 0x2d0(%rcx), %rcx
movsd %xmm0, (%rax,%rcx,8)
movq 0x4060(%rsp), %rax
movq 0x4070(%rsp), %rcx
movslq 0x2d4(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x4038(%rsp), %rax
movq 0x4070(%rsp), %rcx
movslq 0x2d4(%rcx), %rcx
movsd %xmm0, (%rax,%rcx,8)
movq 0x4070(%rsp), %rax
cmpl $0x2, 0x18(%rax)
je 0x11e7b9
movq 0x4070(%rsp), %rax
cmpl $0x4, 0x18(%rax)
jne 0x11e7f1
movq 0x4060(%rsp), %rax
movq 0x4070(%rsp), %rcx
movslq 0x2d8(%rcx), %rcx
movsd (%rax,%rcx,8), %xmm0
movq 0x4038(%rsp), %rax
movq 0x4070(%rsp), %rcx
movslq 0x2d8(%rcx), %rcx
movsd %xmm0, (%rax,%rcx,8)
movq 0x4070(%rsp), %rdi
movq 0x4068(%rsp), %rsi
movq 0x4038(%rsp), %rdx
movq 0x4030(%rsp), %rcx
movsd 0x4050(%rsp), %xmm0
movq 0x4068(%rsp), %rax
divsd 0x688(%rax), %xmm0
xorl %r9d, %r9d
movl %r9d, %r8d
movl $0x1, (%rsp)
movl $0x0, 0x8(%rsp)
callq 0x11c060
cmpl $0x1, %eax
jne 0x11e8b6
leaq 0x2810(%rsp), %rdi
movq 0x4070(%rsp), %rcx
addq $0x32a, %rcx            # imm = 0x32A
leaq 0xb3b71(%rip), %rsi     # 0x1d23d8
leaq 0xdf608(%rip), %rdx     # 0x1fde76
movb $0x0, %al
callq 0x5b9c0
movq 0x4070(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x2810(%rsp), %r8
leaq 0xb37a1(%rip), %rsi     # 0x1d2034
leaq 0xdf5b8(%rip), %rdx     # 0x1fde52
movl $0x6bc, %ecx            # imm = 0x6BC
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x4084(%rsp)
jmp 0x11eb13
movq 0x4070(%rsp), %rdi
movq 0x4068(%rsp), %rsi
movsd 0x4050(%rsp), %xmm0
movq 0x4038(%rsp), %rdx
movq 0x4030(%rsp), %rcx
leaq 0x4048(%rsp), %r8
leaq 0x4040(%rsp), %r9
callq 0x11eb30
cmpl $0x1, %eax
jne 0x11e966
leaq 0x2010(%rsp), %rdi
movq 0x4070(%rsp), %rcx
addq $0x32a, %rcx            # imm = 0x32A
leaq 0xb3ac1(%rip), %rsi     # 0x1d23d8
leaq 0xdf5d4(%rip), %rdx     # 0x1fdef2
movb $0x0, %al
callq 0x5b9c0
movq 0x4070(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x2010(%rsp), %r8
leaq 0xb36f1(%rip), %rsi     # 0x1d2034
leaq 0xdf508(%rip), %rdx     # 0x1fde52
movl $0x6c8, %ecx            # imm = 0x6C8
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x4084(%rsp)
jmp 0x11eb13
movq 0x4038(%rsp), %rdi
callq 0x8420
movq 0x4030(%rsp), %rdi
callq 0x8420
xorps %xmm0, %xmm0
ucomisd 0x4048(%rsp), %xmm0
jb 0x11ea0a
leaq 0x1810(%rsp), %rdi
leaq 0xdf59a(%rip), %rsi     # 0x1fdf37
movb $0x0, %al
callq 0x5b9c0
leaq 0x1010(%rsp), %rdi
leaq 0x1810(%rsp), %rcx
leaq 0xb36c7(%rip), %rsi     # 0x1d2082
leaq 0xdf591(%rip), %rdx     # 0x1fdf53
movb $0x0, %al
callq 0x5b9c0
movq 0x4070(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x1010(%rsp), %r8
leaq 0xb364d(%rip), %rsi     # 0x1d2034
leaq 0xdf464(%rip), %rdx     # 0x1fde52
movl $0x6cf, %ecx            # imm = 0x6CF
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x4084(%rsp)
jmp 0x11eb13
xorps %xmm0, %xmm0
ucomisd 0x4040(%rsp), %xmm0
jb 0x11ea8e
leaq 0x810(%rsp), %rdi
leaq 0xdf53a(%rip), %rsi     # 0x1fdf61
movb $0x0, %al
callq 0x5b9c0
leaq 0x10(%rsp), %rdi
leaq 0x810(%rsp), %rcx
leaq 0xb3640(%rip), %rsi     # 0x1d2082
leaq 0xdf531(%rip), %rdx     # 0x1fdf7a
movb $0x0, %al
callq 0x5b9c0
movq 0x4070(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x10(%rsp), %r8
leaq 0xb35c9(%rip), %rsi     # 0x1d2034
leaq 0xdf3e0(%rip), %rdx     # 0x1fde52
movl $0x6d3, %ecx            # imm = 0x6D3
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x4084(%rsp)
jmp 0x11eb13
movsd 0x4048(%rsp), %xmm0
callq 0x82f0
movq 0x4070(%rsp), %rax
movq 0x2a0(%rax), %rax
movq 0x4078(%rsp), %rcx
movslq 0x848(%rcx), %rcx
movq (%rax,%rcx,8), %rax
movslq 0x405c(%rsp), %rcx
movsd %xmm0, (%rax,%rcx,8)
movsd 0x4040(%rsp), %xmm0
callq 0x82f0
movq 0x4070(%rsp), %rax
movq 0x2a0(%rax), %rax
movq 0x4078(%rsp), %rcx
movslq 0x84c(%rcx), %rcx
movq (%rax,%rcx,8), %rax
movslq 0x405c(%rsp), %rcx
movsd %xmm0, (%rax,%rcx,8)
movl $0x0, 0x4084(%rsp)
movl 0x4084(%rsp), %eax
addq $0x4088, %rsp           # imm = 0x4088
retq
nopw %cs:(%rax,%rax)