user: 请显示与下面列出的汇编代码相匹配的C语言实现:

```asm
<pluto_ell>:
  endbr64
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x40,%rsp
  movq   %xmm0,%rbx
  mov    %rdi,%rbp
  mov    %fs:0x28,%rax
  mov    %rax,0x38(%rsp)
  xor    %eax,%eax
  lea    0x18(%rsp),%rdx
  lea    0x20(%rsp),%rsi
  lea    0x10(%rsp),%rdi
  movsd  D109(%rip),%xmm4
  movsd  D35(%rip),%xmm3
  movsd  D27(%rip),%xmm2
  movapd %xmm0,%xmm1
  movsd  D39(%rip),%xmm0
  mov    $0x5,%eax
  call   <reduce_elements@plt>
  lea    0x28(%rsp),%rsi
  lea    0x30(%rsp),%rdi
  movq   %rbx,%xmm0
  subsd  D90(%rip),%xmm0
  mulsd  D81(%rip),%xmm0
  mulsd  D60(%rip),%xmm0
  divsd  D30(%rip),%xmm0
  mov    D62(%rip),%rax
  movq   %rax,%xmm1
  mov    $0x2,%eax
  call   <anomaly@plt>
  movsd  0x28(%rsp),%xmm0
  call   <cos@plt>
  mulsd  D62(%rip),%xmm0
  movsd  D93(%rip),%xmm1
  subsd  %xmm0,%xmm1
  mulsd  D115(%rip),%xmm1
  movsd  %xmm1,0x10(%rbp)
  lea    0x8(%rsp),%rbx
  mov    %rsp,%r14
  movsd  0x20(%rsp),%xmm0
  addsd  0x30(%rsp),%xmm0
  mov    %r14,%rsi
  mov    %rbx,%rdi
  call   <sincos@plt>
  mov    (%rsp),%r13
  mov    0x8(%rsp),%r12
  mov    %r14,%rsi
  mov    %rbx,%rdi
  movsd  0x10(%rsp),%xmm0
  call   <sincos@plt>
  mov    (%rsp),%rbx
  movq   %r12,%xmm0
  mulsd  0x8(%rsp),%xmm0
  call   <asin@plt>
  movsd  %xmm0,0x8(%rbp)
  movq   %rbx,%xmm0
  movq   %r12,%xmm5
  mulsd  %xmm5,%xmm0
  movq   %r13,%xmm1
  call   <atan2@plt>
  addsd  0x18(%rsp),%xmm0
  movsd  %xmm0,0x0(%rbp)
  mov    0x38(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L8
  add    $0x40,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
L8:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: tag: D109
datatype: byte[8]
name: unpack_data
arguments: tag: D35
datatype: byte[8]
name: unpack_data
arguments: tag: D27
datatype: byte[8]
name: unpack_data
arguments: tag: D39
datatype: f64
name: unpack_data
arguments: tag: D90
datatype: byte[8]
name: unpack_data
arguments: tag: D81
datatype: byte[8]
name: unpack_data
arguments: tag: D60
datatype: f64
name: unpack_data
arguments: tag: D30
datatype: f64
name: unpack_data
arguments: tag: D62
datatype: f64
name: unpack_data
arguments: tag: D93
datatype: f64
name: unpack_data
arguments: tag: D115
datatype: f64

tool: {"D109": [0x73,0xaf,0x54,0xd7,0xb3,0xcd,0xfe,0x3f]}

tool: {"D35": [0x36,0x29,0xfd,0xf5,0x1f,0xc5,0xff,0x3f]}

tool: {"D27": [0x30,0x2e,0xb0,0xaa,0x43,0x25,0xd3,0x3f]}

tool: D39: 36525

tool: {"D90": [0x80,0xed,0x7c,0x3f,0x31,0x20,0xe0,0x40]}

tool: {"D81": [0x21,0x00,0x11,0x8d,0x93,0x41,0x70,0x3f]}

tool: D60: 3.141592653589793

tool: D30: 180

tool: D62: 0.249

tool: D93: 1

tool: D115: 39.543

assistant: ```c
void pluto_ell(double mj, double *ret) {
  double a = 39.543, e = 0.2490, inc0 = 17.140, Om0 = 110.307, omeg0 = 113.768, mjp = 2448045.539 - 2415020.0, mjeq = (2451545.0 - 2415020.0), n = 144.9600 / 36525.;
  double inc, Om, omeg;
  double ma, ea, nu;
  double lo, slo, clo;
  reduce_elements(mjeq, mj, ((inc0)*3.141592653589793 / 180.), ((omeg0)*3.141592653589793 / 180.), ((Om0)*3.141592653589793 / 180.), &inc, &omeg, &Om);
  ma = (((mj - mjp) * n) * 3.141592653589793 / 180.);
  anomaly(ma, e, &nu, &ea);
  ret[2] = a * (1.0 - e * cos(ea));
  lo = omeg + nu;
  slo = sin(lo);
  clo = cos(lo);
  ret[1] = asin(slo * sin(inc));
  ret[0] = atan2(slo * cos(inc), clo) + Om;
}
```