// File: /workspace/github_c_makefile_star2_O0/PoulinV[P]AxiCLASS/build/../source/primordial.c
// Function: primordial_get_lnk_list
int primordial_get_lnk_list(
                            struct primordial * ppm,
                            double kmin,
                            double kmax,
                            double k_per_decade
                            ) {

  int i;

  class_test((kmin <= 0.) || (kmax <= kmin),
             ppm->error_message,
             "inconsistent values of kmin=%e, kmax=%e",kmin,kmax);

  ppm->lnk_size = (int)(log(kmax/kmin)/log(10.)*k_per_decade) + 2;

  class_alloc(ppm->lnk,ppm->lnk_size*sizeof(double),ppm->error_message);

  for (i=0; i<ppm->lnk_size; i++)
    ppm->lnk[i]=log(kmin)+i*log(10.)/k_per_decade;

  return _SUCCESS_;

}

// Assembly:
subq $0x1868, %rsp           # imm = 0x1868
movq %rdi, 0x1858(%rsp)
movsd %xmm0, 0x1850(%rsp)
movsd %xmm1, 0x1848(%rsp)
movsd %xmm2, 0x1840(%rsp)
xorps %xmm0, %xmm0
ucomisd 0x1850(%rsp), %xmm0
jae 0x113ab4
movsd 0x1848(%rsp), %xmm1
movsd 0x1850(%rsp), %xmm0
ucomisd %xmm1, %xmm0
jb 0x113b42
leaq 0x1030(%rsp), %rdi
movsd 0x1850(%rsp), %xmm0
movsd 0x1848(%rsp), %xmm1
leaq 0xe99bf(%rip), %rsi     # 0x1fd494
movb $0x2, %al
callq 0x5b9c0
leaq 0x830(%rsp), %rdi
leaq 0x1030(%rsp), %rcx
leaq 0xbe58f(%rip), %rsi     # 0x1d2082
leaq 0xe99c2(%rip), %rdx     # 0x1fd4bc
movb $0x0, %al
callq 0x5b9c0
movq 0x1858(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x830(%rsp), %r8
leaq 0xbe515(%rip), %rsi     # 0x1d2034
leaq 0xe99b5(%rip), %rdx     # 0x1fd4db
movl $0x2ca, %ecx            # imm = 0x2CA
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x1864(%rsp)
jmp 0x113cff
movsd 0x1848(%rsp), %xmm0
divsd 0x1850(%rsp), %xmm0
callq 0x82f0
movsd %xmm0, 0x18(%rsp)
movsd 0xbec79(%rip), %xmm0    # 0x1d27e0
callq 0x82f0
movaps %xmm0, %xmm1
movsd 0x18(%rsp), %xmm0
divsd %xmm1, %xmm0
mulsd 0x1840(%rsp), %xmm0
cvttsd2si %xmm0, %ecx
addl $0x2, %ecx
movq 0x1858(%rsp), %rax
movl %ecx, 0x290(%rax)
movq 0x1858(%rsp), %rax
movslq 0x290(%rax), %rdi
shlq $0x3, %rdi
callq 0x8460
movq %rax, %rcx
movq 0x1858(%rsp), %rax
movq %rcx, 0x298(%rax)
movq 0x1858(%rsp), %rax
cmpq $0x0, 0x298(%rax)
jne 0x113c4c
movq 0x1858(%rsp), %rax
movslq 0x290(%rax), %rax
shlq $0x3, %rax
movl %eax, 0x82c(%rsp)
leaq 0x20(%rsp), %rdi
movl 0x82c(%rsp), %ecx
leaq 0xbe404(%rip), %rsi     # 0x1d2004
leaq 0xe98ec(%rip), %rdx     # 0x1fd4f3
movb $0x0, %al
callq 0x5b9c0
movq 0x1858(%rsp), %rdi
addq $0x32a, %rdi            # imm = 0x32A
leaq 0x20(%rsp), %r8
leaq 0xbe40b(%rip), %rsi     # 0x1d2034
leaq 0xe98ab(%rip), %rdx     # 0x1fd4db
movl $0x2ce, %ecx            # imm = 0x2CE
movb $0x0, %al
callq 0x5b9c0
movl $0x1, 0x1864(%rsp)
jmp 0x113cff
movl $0x0, 0x183c(%rsp)
movl 0x183c(%rsp), %eax
movq 0x1858(%rsp), %rcx
cmpl 0x290(%rcx), %eax
jge 0x113cf4
movsd 0x1850(%rsp), %xmm0
callq 0x82f0
movsd %xmm0, 0x10(%rsp)
cvtsi2sdl 0x183c(%rsp), %xmm0
movsd %xmm0, 0x8(%rsp)
movsd 0xbeb43(%rip), %xmm0    # 0x1d27e0
callq 0x82f0
movsd 0x8(%rsp), %xmm1
movaps %xmm0, %xmm2
movsd 0x10(%rsp), %xmm0
mulsd %xmm2, %xmm1
divsd 0x1840(%rsp), %xmm1
addsd %xmm1, %xmm0
movq 0x1858(%rsp), %rax
movq 0x298(%rax), %rax
movslq 0x183c(%rsp), %rcx
movsd %xmm0, (%rax,%rcx,8)
movl 0x183c(%rsp), %eax
addl $0x1, %eax
movl %eax, 0x183c(%rsp)
jmp 0x113c57
movl $0x0, 0x1864(%rsp)
movl 0x1864(%rsp), %eax
addq $0x1868, %rsp           # imm = 0x1868
retq
nop