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

```asm
<bessj0>:
  endbr64
  movsd  D105(%rip),%xmm2
  movapd %xmm0,%xmm3
  andpd  D142(%rip),%xmm3
  comisd %xmm3,%xmm2
  jbe    L10
  movapd %xmm0,%xmm1
  movsd  D127(%rip),%xmm2
  mulsd  %xmm0,%xmm1
  movsd  D100(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  addsd  %xmm1,%xmm2
  addsd  D163(%rip),%xmm0
  mulsd  %xmm1,%xmm2
  mulsd  %xmm1,%xmm0
  addsd  D217(%rip),%xmm2
  subsd  D244(%rip),%xmm0
  mulsd  %xmm1,%xmm2
  mulsd  %xmm1,%xmm0
  addsd  D245(%rip),%xmm2
  addsd  D216(%rip),%xmm0
  mulsd  %xmm1,%xmm2
  mulsd  %xmm1,%xmm0
  addsd  D164(%rip),%xmm2
  subsd  D248(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  mulsd  %xmm2,%xmm1
  addsd  D189(%rip),%xmm0
  addsd  D152(%rip),%xmm1
  divsd  %xmm1,%xmm0
  ret
  nop
L10:
  divsd  %xmm3,%xmm2
  push   %rbx
  movapd %xmm3,%xmm5
  sub    $0x30,%rsp
  movsd  D90(%rip),%xmm0
  movsd  D196(%rip),%xmm6
  movsd  D7(%rip),%xmm1
  subsd  D226(%rip),%xmm5
  movapd %xmm2,%xmm4
  mulsd  %xmm2,%xmm4
  mulsd  %xmm4,%xmm0
  subsd  D141(%rip),%xmm0
  mulsd  %xmm4,%xmm6
  mulsd  %xmm4,%xmm0
  addsd  D113(%rip),%xmm0
  subsd  %xmm6,%xmm1
  mulsd  %xmm4,%xmm0
  subsd  D143(%rip),%xmm0
  mulsd  %xmm4,%xmm0
  addsd  D205(%rip),%xmm0
  movq   %xmm0,%rbx
  movapd %xmm1,%xmm0
  pxor   %xmm1,%xmm1
  mulsd  %xmm4,%xmm0
  subsd  D39(%rip),%xmm0
  mulsd  %xmm4,%xmm0
  addsd  D128(%rip),%xmm0
  mulsd  %xmm4,%xmm0
  subsd  D140(%rip),%xmm0
  movsd  %xmm0,0x8(%rsp)
  movsd  D130(%rip),%xmm0
  divsd  %xmm3,%xmm0
  ucomisd %xmm0,%xmm1
  ja     L14
  sqrtsd %xmm0,%xmm0
  movsd  %xmm0,(%rsp)
L17:
  lea    0x28(%rsp),%rdi
  lea    0x20(%rsp),%rsi
  movapd %xmm5,%xmm0
  movsd  %xmm2,0x10(%rsp)
  call   <sincos@plt>
  movsd  0x10(%rsp),%xmm2
  movq   %rbx,%xmm0
  mulsd  0x28(%rsp),%xmm2
  mulsd  0x20(%rsp),%xmm0
  mulsd  0x8(%rsp),%xmm2
  subsd  %xmm2,%xmm0
  mulsd  (%rsp),%xmm0
  add    $0x30,%rsp
  pop    %rbx
  ret
L14:
  movsd  %xmm5,0x18(%rsp)
  movsd  %xmm2,0x10(%rsp)
  call   <sqrt@plt>
  movsd  0x18(%rsp),%xmm5
  movsd  0x10(%rsp),%xmm2
  movsd  %xmm0,(%rsp)
  jmp    L17
```

tool_calls: name: disassemble_data
arguments: data_label: D105
data_type: f64
name: disassemble_data
arguments: data_label: D142
data_type: qword[2]
name: disassemble_data
arguments: data_label: D127
data_type: f64
name: disassemble_data
arguments: data_label: D100
data_type: byte[8]
name: disassemble_data
arguments: data_label: D163
data_type: f64
name: disassemble_data
arguments: data_label: D217
data_type: f64
name: disassemble_data
arguments: data_label: D244
data_type: f64
name: disassemble_data
arguments: data_label: D245
data_type: f64
name: disassemble_data
arguments: data_label: D216
data_type: f64
name: disassemble_data
arguments: data_label: D164
data_type: f64
name: disassemble_data
arguments: data_label: D248
data_type: f64
name: disassemble_data
arguments: data_label: D189
data_type: f64
name: disassemble_data
arguments: data_label: D152
data_type: f64
name: disassemble_data
arguments: data_label: D90
data_type: byte[8]
name: disassemble_data
arguments: data_label: D196
data_type: byte[8]
name: disassemble_data
arguments: data_label: D7
data_type: byte[8]
name: disassemble_data
arguments: data_label: D226
data_type: f64
name: disassemble_data
arguments: data_label: D141
data_type: byte[8]
name: disassemble_data
arguments: data_label: D113
data_type: byte[8]
name: disassemble_data
arguments: data_label: D143
data_type: byte[8]
name: disassemble_data
arguments: data_label: D205
data_type: f64
name: disassemble_data
arguments: data_label: D39
data_type: byte[8]
name: disassemble_data
arguments: data_label: D128
data_type: byte[8]
name: disassemble_data
arguments: data_label: D140
data_type: byte[8]
name: disassemble_data
arguments: data_label: D130
data_type: f64

tool: D105: 8

tool: {"D142": [0x7fffffffffffffff,0x0000000000000000]}

tool: D127: 267.8532712

tool: {"D100": [0x22,0xdb,0x9e,0xc5,0xf7,0x1c,0x67,0xc0]}

tool: D163: 77392.33017

tool: D217: 59272.64853

tool: D244: 11214424.18

tool: D245: 9494680.718

tool: D216: 651619640.7

tool: D164: 1029532985

tool: D248: 13362590354

tool: D189: 57568490574

tool: D152: 57568490411

tool: {"D90": [0x61,0x28,0x29,0xab,0x8a,0x1a,0x8c,0x3e]}

tool: {"D196": [0xfb,0x5d,0x37,0x50,0xd3,0x18,0x79,0x3e]}

tool: {"D7": [0xa9,0x26,0x97,0x8c,0x78,0x92,0xa9,0x3e]}

tool: D226: 0.785398164

tool: {"D141": [0x51,0x9c,0x29,0x90,0x87,0x64,0xc1,0x3e]}

tool: {"D113": [0x37,0x0f,0x34,0x3e,0x65,0xac,0xfc,0x3e]}

tool: {"D143": [0x0a,0x9f,0x7f,0x81,0xfb,0xff,0x51,0x3f]}

tool: D205: 1

tool: {"D39": [0xfc,0xfb,0x06,0xcd,0xc9,0xfc,0xdc,0x3e]}

tool: {"D128": [0x61,0xa5,0x1a,0x7e,0xec,0xbf,0x22,0x3f]}

tool: {"D140": [0x02,0x32,0x48,0xfe,0xff,0xff,0x8f,0x3f]}

tool: D130: 0.636619772

assistant: ```c
double bessj0(double x) {
  double ax, z;
  double xx, y, ans, ans1, ans2;
  if ((ax = fabs(x)) < 8.0) {
    y = x * x;
    ans1 = 57568490574.0 + y * (-13362590354.0 + y * (651619640.7 + y * (-11214424.18 + y * (77392.33017 + y * (-184.9052456)))));
    ans2 = 57568490411.0 + y * (1029532985.0 + y * (9494680.718 + y * (59272.64853 + y * (267.8532712 + y * 1.0))));
    ans = ans1 / ans2;
  } else {
    z = 8.0 / ax;
    y = z * z;
    xx = ax - 0.785398164;
    ans1 = 1.0 + y * (-0.1098628627e-2 + y * (0.2734510407e-4 + y * (-0.2073370639e-5 + y * 0.2093887211e-6)));
    ans2 = -0.1562499995e-1 + y * (0.1430488765e-3 + y * (-0.6911147651e-5 + y * (0.7621095161e-6 - y * 0.934935152e-7)));
    ans = sqrt(0.636619772 / ax) * (cos(xx) * ans1 - z * sin(xx) * ans2);
  }
  return ans;
}
```