user: Translate the below assembly code into C programming language:

```asm
<bessi>:
  endbr64
  push   %rbp
  push   %rbx
  mov    %edi,%ebx
  sub    $0x28,%rsp
  movss  %xmm0,0x1c(%rsp)
  cmp    $0x1,%edi
  jle    L21
L71:
  movss  0x1c(%rsp),%xmm5
  pxor   %xmm6,%xmm6
  ucomiss %xmm6,%xmm5
  jp     L73
  pxor   %xmm0,%xmm0
  jne    L73
L54:
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  ret
  nopw   0x0(%rax,%rax,1)
L73:
  movss  0x1c(%rsp),%xmm0
  call   <fabs@plt>
  pxor   %xmm7,%xmm7
  movapd %xmm0,%xmm1
  movsd  D15(%rip),%xmm0
  divsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm7
  pxor   %xmm0,%xmm0
  movss  %xmm7,0x18(%rsp)
  cvtsi2sd %ebx,%xmm0
  mulsd  D19(%rip),%xmm0
  call   <sqrt@plt>
  movl   $0x0,0x14(%rsp)
  lea    (%rbx,%rax,1),%ebp
  add    %ebp,%ebp
  test   %ebp,%ebp
  jle    L75
  movss  D58(%rip),%xmm2
  pxor   %xmm0,%xmm0
  jmp    L22
  nopl   0x0(%rax)
L59:
  sub    $0x1,%ebp
  je     L35
L114:
  movaps %xmm2,%xmm0
  movaps %xmm1,%xmm2
L22:
  pxor   %xmm1,%xmm1
  movss  %xmm2,0x10(%rsp)
  cvtsi2ss %ebp,%xmm1
  mulss  0x18(%rsp),%xmm1
  mulss  %xmm2,%xmm1
  addss  %xmm0,%xmm1
  movaps %xmm1,%xmm0
  movss  %xmm1,0xc(%rsp)
  call   <fabs@plt>
  comisd D32(%rip),%xmm0
  movss  0xc(%rsp),%xmm1
  movss  0x10(%rsp),%xmm2
  jbe    L9
  pxor   %xmm0,%xmm0
  cvtss2sd %xmm1,%xmm1
  cvtss2sd %xmm2,%xmm2
  pxor   %xmm4,%xmm4
  cvtss2sd 0x14(%rsp),%xmm0
  mulsd  D54(%rip),%xmm0
  mulsd  D54(%rip),%xmm1
  mulsd  D54(%rip),%xmm2
  cvtsd2ss %xmm0,%xmm4
  movss  %xmm4,0x14(%rsp)
  cvtsd2ss %xmm1,%xmm1
  cvtsd2ss %xmm2,%xmm2
L9:
  cmp    %ebp,%ebx
  jne    L59
  mov    %ebx,%ebp
  movss  %xmm2,0x14(%rsp)
  sub    $0x1,%ebp
  jne    L114
L35:
  movss  0x1c(%rsp),%xmm0
  movss  %xmm1,0xc(%rsp)
  call   <bessi0@plt>
  movss  0xc(%rsp),%xmm1
  pxor   %xmm6,%xmm6
  comiss 0x1c(%rsp),%xmm6
  divss  %xmm1,%xmm0
  mulss  0x14(%rsp),%xmm0
  jbe    L54
  and    $0x1,%ebx
  je     L54
  xorps  D96(%rip),%xmm0
  jmp    L54
  nopl   (%rax)
L21:
  lea    D81(%rip),%rdi
  call   <nrerror@plt>
  jmp    L71
  nopl   0x0(%rax)
L75:
  movss  D58(%rip),%xmm1
  jmp    L35
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D15
data_type: f64
name: extract_symbolic_data
arguments: data_tag: D19
data_type: f64
name: extract_symbolic_data
arguments: data_tag: D58
data_type: f32
name: extract_symbolic_data
arguments: data_tag: D32
data_type: f64[2]
name: extract_symbolic_data
arguments: data_tag: D54
data_type: byte[8]
name: extract_symbolic_data
arguments: data_tag: D96
data_type: byte[16]
name: extract_symbolic_data
arguments: data_tag: D81
data_type: string

tool: D15: 2

tool: D19: 40

tool: D58: 1

tool: {"D32": [10000000000.0,1e-10]}

tool: {"D54": [0xbb,0xbd,0xd7,0xd9,0xdf,0x7c,0xdb,0x3d]}

tool: {"D96": [0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

tool: D81: Index n less than 2 in bessi

assistant: ```c
float bessi(int n, float x) {
  float bessi0(float x);
  void nrerror(char error_text[]);
  int j;
  float bi, bim, bip, tox, ans;
  if (n < 2)
    nrerror("Index n less than 2 in bessi");
  if (x == 0.0)
    return 0.0;
  else {
    tox = 2.0 / fabs(x);
    bip = ans = 0.0;
    bi = 1.0;
    for (j = 2 * (n + (int)sqrt(40.0 * n)); j > 0; j--) {
      bim = bip + j * tox * bi;
      bip = bi;
      bi = bim;
      if (fabs(bi) > 1.0e10) {
        ans *= 1.0e-10;
        bi *= 1.0e-10;
        bip *= 1.0e-10;
      }
      if (j == n)
        ans = bip;
    }
    ans *= bessi0(x) / bi;
    return x < 0.0 && (n & 1) ? -ans : ans;
  }
}
```