user: What is the c source code of the assembly code below:

```asm
<radiativeTransitions>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xa8,%rsp
  mov    %edi,0x6c(%rsp)
  mov    0xf8(%rsp),%r14
  mov    %rsi,0x70(%rsp)
  mov    %rdx,0x78(%rsp)
  mov    %rcx,0x80(%rsp)
  mov    %r8,0x88(%rsp)
  mov    %r9,0x90(%rsp)
  test   %edi,%edi
  jle    L14
  mov    0xe0(%rsp),%rax
  mov    $0x1,%ebp
  lea    0x8(%rax),%rbx
  mov    0xf0(%rsp),%eax
  sub    $0x1,%eax
  lea    0x8(,%rax,8),%rax
  mov    %rax,0x98(%rsp)
  cs nopw 0x0(%rax,%rax,1)
L48:
  mov    0x78(%rsp),%rax
  mov    0x80(%rsp),%rsi
  mov    0x70(%rsp),%rdx
  movsd  D36(%rip),%xmm1
  movslq (%rsi,%rbp,4),%rsi
  movslq (%rax,%rbp,4),%rax
  movsd  (%rdx,%rsi,8),%xmm0
  movsd  (%rdx,%rax,8),%xmm7
  lea    0x0(,%rsi,8),%r13
  lea    0x0(,%rax,8),%r15
  mov    0x88(%rsp),%rdx
  mov    %rsi,0x58(%rsp)
  movsd  %xmm0,0x20(%rsp)
  movsd  (%rdx,%rbp,8),%xmm5
  mov    0x90(%rsp),%rdx
  movsd  %xmm7,0x18(%rsp)
  mov    %rax,0x50(%rsp)
  movsd  (%rdx,%rsi,8),%xmm0
  subsd  (%rdx,%rax,8),%xmm0
  movsd  %xmm5,0x10(%rsp)
  mulsd  D126(%rip),%xmm0
  mov    %r15,0x28(%rsp)
  divsd  D109(%rip),%xmm0
  divsd  %xmm0,%xmm1
  movsd  %xmm0,(%rbx)
  mov    %r13,0x30(%rsp)
  movapd %xmm1,%xmm0
  call   <calc_background_radiation@plt>
  mov    D36(%rip),%rax
  mov    $0x2,%edi
  movsd  %xmm0,0x38(%rsp)
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  (%rbx),%xmm0
  mov    $0x3,%edi
  mov    %eax,%r12d
  call   <pow@plt>
  pxor   %xmm1,%xmm1
  pxor   %xmm0,%xmm0
  movsd  0x10(%rsp),%xmm6
  cvtsi2sd %eax,%xmm1
  mulsd  D103(%rip),%xmm1
  mov    0xf0(%rsp),%eax
  cvtsi2sd %r12d,%xmm0
  divsd  %xmm1,%xmm0
  mulsd  %xmm0,%xmm6
  movsd  0x20(%rsp),%xmm0
  divsd  0x18(%rsp),%xmm0
  mulsd  %xmm6,%xmm0
  movsd  %xmm6,0x40(%rsp)
  movsd  %xmm0,0x48(%rsp)
  test   %eax,%eax
  jle    L27
  mov    0x100(%rsp),%r12
  add    0x100(%rsp),%r15
  mov    %rbp,0x60(%rsp)
  movq   $0x0,(%rsp)
  add    %r13,%r12
  mov    %r15,%r13
  xor    %r15d,%r15d
  mov    %r13,%rbp
  mov    %r12,%r13
  mov    0x98(%rsp),%r12
  nopl   (%rax)
L31:
  mov    D36(%rip),%rax
  mov    $0x3,%edi
  movq   %rax,%xmm0
  call   <pow@plt>
  pxor   %xmm1,%xmm1
  movsd  (%rbx),%xmm0
  mov    $0x3,%edi
  cvtsi2sd %eax,%xmm1
  mulsd  0x10(%rsp),%xmm1
  movsd  %xmm1,0x8(%rsp)
  call   <pow@plt>
  mov    0x0(%r13),%rcx
  pxor   %xmm6,%xmm6
  movsd  0x18(%rsp),%xmm2
  movsd  0x20(%rsp),%xmm0
  movsd  0x8(%rsp),%xmm1
  movsd  (%rcx,%r15,1),%xmm3
  mov    0x0(%rbp),%rcx
  mulsd  %xmm3,%xmm2
  mulsd  (%rcx,%r15,1),%xmm0
  divsd  %xmm2,%xmm0
  pxor   %xmm2,%xmm2
  cvtsi2sd %eax,%xmm2
  mulsd  D6(%rip),%xmm2
  divsd  %xmm2,%xmm1
  subsd  D34(%rip),%xmm0
  mulsd  %xmm3,%xmm1
  mulsd  %xmm1,%xmm0
  pxor   %xmm1,%xmm1
  mulsd  (%r14,%r15,1),%xmm0
  divsd  D30(%rip),%xmm0
  comisd %xmm0,%xmm6
  ja     L23
  mov    D36(%rip),%rax
  mov    $0x3,%edi
  movq   %rax,%xmm0
  call   <pow@plt>
  pxor   %xmm2,%xmm2
  movsd  (%rbx),%xmm0
  mov    $0x3,%edi
  cvtsi2sd %eax,%xmm2
  mulsd  0x10(%rsp),%xmm2
  movsd  %xmm2,0x8(%rsp)
  call   <pow@plt>
  pxor   %xmm3,%xmm3
  mov    0x0(%r13),%rcx
  movsd  0x8(%rsp),%xmm2
  cvtsi2sd %eax,%xmm3
  movsd  0x18(%rsp),%xmm0
  movsd  0x20(%rsp),%xmm1
  mulsd  D6(%rip),%xmm3
  movsd  (%rcx,%r15,1),%xmm4
  mov    0x0(%rbp),%rcx
  mulsd  %xmm4,%xmm0
  mulsd  (%rcx,%r15,1),%xmm1
  divsd  %xmm3,%xmm2
  divsd  %xmm0,%xmm1
  movapd %xmm2,%xmm0
  mulsd  %xmm4,%xmm0
  subsd  D34(%rip),%xmm1
  mulsd  %xmm0,%xmm1
  mulsd  (%r14,%r15,1),%xmm1
  divsd  D30(%rip),%xmm1
L23:
  addsd  (%rsp),%xmm1
  add    $0x8,%r15
  movsd  %xmm1,(%rsp)
  cmp    %r15,%r12
  jne    L31
  mov    0x60(%rsp),%rbp
L44:
  movsd  (%rsp),%xmm0
  call   <beta_tau_finestructure@plt>
  mov    D99(%rip),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  comisd %xmm0,%xmm1
  jbe    L45
L40:
  movsd  0x38(%rsp),%xmm4
  movsd  0x48(%rsp),%xmm1
  add    $0x8,%rbx
  mov    0xe8(%rsp),%rax
  mov    0xe8(%rsp),%rsi
  mulsd  %xmm4,%xmm1
  mov    0x50(%rsp),%rdx
  mov    0x28(%rsp),%rdi
  movsd  %xmm0,(%rax,%rbp,8)
  mov    0x108(%rsp),%rax
  movsd  %xmm4,(%rax,%rbp,8)
  movsd  (%rsi,%rbp,8),%xmm2
  mov    0x30(%rsp),%rsi
  mov    0x110(%rsp),%rax
  mulsd  0x40(%rsp),%xmm4
  mulsd  %xmm1,%xmm2
  mov    (%rax,%rdx,8),%rax
  lea    (%rax,%rdi,1),%rdx
  add    %rsi,%rax
  movsd  (%rdx),%xmm0
  subsd  %xmm2,%xmm0
  movsd  %xmm0,(%rdx)
  movsd  0x10(%rsp),%xmm0
  mov    0xe8(%rsp),%rdx
  addsd  %xmm4,%xmm0
  movsd  (%rdx,%rbp,8),%xmm2
  mov    0x58(%rsp),%rdx
  mulsd  %xmm0,%xmm2
  addsd  (%rax),%xmm2
  movsd  %xmm2,(%rax)
  mov    0x110(%rsp),%rax
  mov    (%rax,%rdx,8),%rdx
  lea    (%rdx,%rdi,1),%rax
  mov    0xe8(%rsp),%rdi
  mulsd  (%rdi,%rbp,8),%xmm1
  addsd  (%rax),%xmm1
  movsd  %xmm1,(%rax)
  mulsd  (%rdi,%rbp,8),%xmm0
  mov    %rsi,%rax
  add    $0x1,%rbp
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm0,%xmm1
  movsd  %xmm1,(%rax)
  cmp    %ebp,0x6c(%rsp)
  jge    L48
L14:
  add    $0xa8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   (%rax)
L45:
  movsd  (%rsp),%xmm0
  call   <beta_tau_finestructure@plt>
  jmp    L40
  nopw   0x0(%rax,%rax,1)
L27:
  movq   $0x0,(%rsp)
  jmp    L44
```

tool_calls: name: retrieve_data
arguments: tag: D36
type: f64
name: retrieve_data
arguments: tag: D126
type: byte[8]
name: retrieve_data
arguments: tag: D109
type: byte[8]
name: retrieve_data
arguments: tag: D103
type: byte[8]
name: retrieve_data
arguments: tag: D6
type: byte[8]
name: retrieve_data
arguments: tag: D34
type: f64
name: retrieve_data
arguments: tag: D30
type: f64
name: retrieve_data
arguments: tag: D99
type: f64

tool: D36: 29979250000

tool: {"D126": [0xcf,0xa7,0x60,0x9f,0xfd,0xe6,0xa3,0x3c]}

tool: {"D109": [0x79,0xe1,0xc8,0x2c,0xd7,0x67,0x80,0x3a]}

tool: {"D103": [0x79,0xe1,0xc8,0x2c,0xd7,0x67,0x90,0x3a]}

tool: {"D6": [0xe0,0x86,0x44,0x54,0xfb,0x21,0x39,0x40]}

tool: D34: 1

tool: D30: 100000

tool: D99: 0.5

assistant: ```c
void radiativeTransitions(const int transitions, const double *weights, const int *lower, const int *upper, const double *EinsA, const double *energy, double *nu, double *betatau, const int slabInd, const double *dx, double **popDensThis, double *Pnu, double **DFDX) {
  int i, k;
  double lw, uw;
  int li, ui;
  double Aul, lambda, background, Bul, Blu, tau;
  for (i = 1; i <= transitions; i++) {
    li = lower[i];
    lw = weights[li];
    ui = upper[i];
    uw = weights[ui];
    Aul = EinsA[i];
    nu[i] = 1.381e-16 * (energy[ui] - energy[li]) / 6.62618e-27;
    lambda = 2.997925e10 / nu[i];
    background = calc_background_radiation(lambda);
    Bul = pow(2.997925e10, 2e0) / (2e0 * 6.62618e-27 * pow(nu[i], 3e0)) * Aul;
    Blu = uw / lw * Bul;
    tau = 0e0;
    for (k = 0; k < slabInd; k++) {
      tau += ((0e0) > ((Aul * pow(2.997925e10, 3e0)) / (8e0 * 3.1415926536 * pow(nu[i], 3e0)) * popDensThis[ui][k] * ((popDensThis[li][k] * uw) / (popDensThis[ui][k] * lw) - 1e0) * dx[k] / (1.0e0 * 1e5)) ? (0e0) : ((Aul * pow(2.997925e10, 3e0)) / (8e0 * 3.1415926536 * pow(nu[i], 3e0)) * popDensThis[ui][k] * ((popDensThis[li][k] * uw) / (popDensThis[ui][k] * lw) - 1e0) * dx[k] / (1.0e0 * 1e5)));
    }
    betatau[i] = ((0.5) < (beta_tau_finestructure(tau)) ? (0.5) : (beta_tau_finestructure(tau)));
    Pnu[i] = background;
    DFDX[li][li] -= Blu * background * betatau[i];
    DFDX[li][ui] += (Aul + Bul * background) * betatau[i];
    DFDX[ui][li] += Blu * background * betatau[i];
    DFDX[ui][ui] -= (Aul + Bul * background) * betatau[i];
  }
}
```