user: Please show me the C implementation that matches the assembly code listed below:

```asm
<potm>:
  endbr64
  sub    $0x68,%rsp
  movsd  %xmm0,(%rsp)
  lea    0x28(%rsp),%rdi
  mulsd  D138(%rip),%xmm0
  divsd  D120(%rip),%xmm0
  mov    %fs:0x28,%rax
  mov    %rax,0x58(%rsp)
  xor    %eax,%eax
  movsd  %xmm0,0x28(%rsp)
  call   <adj360@plt>
  movsd  D97(%rip),%xmm5
  addsd  0x28(%rsp),%xmm5
  lea    0x30(%rsp),%rdi
  movapd %xmm5,%xmm0
  subsd  D129(%rip),%xmm0
  movsd  %xmm0,0x30(%rsp)
  call   <adj360@plt>
  movsd  0x30(%rsp),%xmm0
  call   <dtor@plt>
  mov    %eax,%edi
  call   <sin@plt>
  mulsd  D133(%rip),%xmm0
  lea    0x38(%rsp),%rdi
  addsd  0x28(%rsp),%xmm0
  addsd  D97(%rip),%xmm0
  movsd  %xmm0,0x38(%rsp)
  call   <adj360@plt>
  movsd  (%rsp),%xmm0
  lea    0x40(%rsp),%rdi
  mulsd  D56(%rip),%xmm0
  addsd  D115(%rip),%xmm0
  movsd  %xmm0,0x40(%rsp)
  call   <adj360@plt>
  movsd  (%rsp),%xmm1
  movsd  0x40(%rsp),%xmm0
  lea    0x48(%rsp),%rdi
  mulsd  D103(%rip),%xmm1
  subsd  %xmm1,%xmm0
  subsd  D135(%rip),%xmm0
  movsd  %xmm0,0x48(%rsp)
  call   <adj360@plt>
  movsd  (%rsp),%xmm0
  lea    0x50(%rsp),%rdi
  mulsd  D40(%rip),%xmm0
  movsd  D178(%rip),%xmm1
  subsd  %xmm0,%xmm1
  movsd  %xmm1,0x50(%rsp)
  call   <adj360@plt>
  movsd  0x40(%rsp),%xmm0
  subsd  0x38(%rsp),%xmm0
  addsd  %xmm0,%xmm0
  subsd  0x48(%rsp),%xmm0
  call   <dtor@plt>
  mov    %eax,%edi
  call   <sin@plt>
  mulsd  D176(%rip),%xmm0
  movsd  %xmm0,(%rsp)
  movsd  0x30(%rsp),%xmm0
  call   <dtor@plt>
  mov    %eax,%edi
  call   <sin@plt>
  movsd  D121(%rip),%xmm4
  mulsd  %xmm0,%xmm4
  movsd  0x30(%rsp),%xmm0
  movsd  %xmm4,0x8(%rsp)
  call   <dtor@plt>
  mov    %eax,%edi
  call   <sin@plt>
  mulsd  D17(%rip),%xmm0
  movsd  (%rsp),%xmm1
  addsd  0x48(%rsp),%xmm1
  subsd  0x8(%rsp),%xmm1
  subsd  %xmm0,%xmm1
  movapd %xmm1,%xmm0
  movsd  %xmm1,0x18(%rsp)
  call   <dtor@plt>
  mov    %eax,%edi
  call   <sin@plt>
  movsd  0x18(%rsp),%xmm1
  movsd  %xmm0,0x10(%rsp)
  addsd  %xmm1,%xmm1
  movapd %xmm1,%xmm0
  call   <dtor@plt>
  mov    %eax,%edi
  call   <sin@plt>
  movsd  0x10(%rsp),%xmm2
  movsd  (%rsp),%xmm1
  mulsd  D71(%rip),%xmm2
  addsd  0x40(%rsp),%xmm1
  movapd %xmm0,%xmm3
  mulsd  D61(%rip),%xmm3
  addsd  %xmm2,%xmm1
  subsd  0x8(%rsp),%xmm1
  addsd  %xmm3,%xmm1
  movapd %xmm1,%xmm0
  subsd  0x38(%rsp),%xmm0
  movsd  %xmm1,(%rsp)
  addsd  %xmm0,%xmm0
  call   <dtor@plt>
  mov    %eax,%edi
  call   <sin@plt>
  mulsd  D160(%rip),%xmm0
  movsd  (%rsp),%xmm1
  addsd  %xmm1,%xmm0
  subsd  0x38(%rsp),%xmm0
  call   <dtor@plt>
  mov    %eax,%edi
  call   <cos@plt>
  pxor   %xmm0,%xmm0
  mov    %eax,%r8d
  mov    $0x1,%eax
  sub    %r8d,%eax
  imul   $0x32,%eax,%eax
  cvtsi2sd %eax,%xmm0
  mov    0x58(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L0
  add    $0x68,%rsp
  ret
L0:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: label: D138
type_guessed: byte[8]
name: extract_symbolic_data
arguments: label: D120
type_guessed: f64
name: extract_symbolic_data
arguments: label: D97
type_guessed: f64
name: extract_symbolic_data
arguments: label: D129
type_guessed: f64
name: extract_symbolic_data
arguments: label: D133
type_guessed: byte[8]
name: extract_symbolic_data
arguments: label: D56
type_guessed: f64
name: extract_symbolic_data
arguments: label: D115
type_guessed: f64
name: extract_symbolic_data
arguments: label: D103
type_guessed: f64
name: extract_symbolic_data
arguments: label: D135
type_guessed: f64
name: extract_symbolic_data
arguments: label: D40
type_guessed: f64
name: extract_symbolic_data
arguments: label: D178
type_guessed: f64
name: extract_symbolic_data
arguments: label: D176
type_guessed: f64
name: extract_symbolic_data
arguments: label: D121
type_guessed: f64
name: extract_symbolic_data
arguments: label: D17
type_guessed: f64
name: extract_symbolic_data
arguments: label: D71
type_guessed: f64
name: extract_symbolic_data
arguments: label: D61
type_guessed: f64
name: extract_symbolic_data
arguments: label: D160
type_guessed: f64

tool: {"D138": [0x00,0x00,0x00,0x00,0x00,0x80,0x76,0x40]}

tool: D120: 365.2422

tool: D97: 279.611371

tool: D129: 282.680403

tool: {"D133": [0x5e,0x58,0x8a,0xbe,0xaa,0xa5,0xfe,0x3f]}

tool: D56: 13.1763966

tool: D115: 18.251907

tool: D103: 0.1114041

tool: D135: 192.917585

tool: D40: 0.0529539

tool: D178: 55.204723

tool: D176: 1.2739

tool: D121: 0.1858

tool: D17: 0.37

tool: D71: 6.2886

tool: D61: 0.214

tool: D160: 0.6583

assistant: ```c
double potm(double days) {
  double N, Msol, Ec, LambdaSol, l, Mm, Ev, Ac, A3, Mmprime;
  double A4, lprime, V, ldprime, D, Nm;
  N = 360 * days / 365.2422;
  adj360(&N);
  Msol = N + 279.611371 - 282.680403;
  adj360(&Msol);
  Ec = 360 / 3.14159265358979323846 * 0.01671542 * sin(dtor(Msol));
  LambdaSol = N + Ec + 279.611371;
  adj360(&LambdaSol);
  l = 13.1763966 * days + 18.251907;
  adj360(&l);
  Mm = l - (0.1114041 * days) - 192.917585;
  adj360(&Mm);
  Nm = 55.204723 - (0.0529539 * days);
  adj360(&Nm);
  Ev = 1.2739 * sin(dtor(2 * (l - LambdaSol) - Mm));
  Ac = 0.1858 * sin(dtor(Msol));
  A3 = 0.37 * sin(dtor(Msol));
  Mmprime = Mm + Ev - Ac - A3;
  Ec = 6.2886 * sin(dtor(Mmprime));
  A4 = 0.214 * sin(dtor(2 * Mmprime));
  lprime = l + Ev + Ec - Ac + A4;
  V = 0.6583 * sin(dtor(2 * (lprime - LambdaSol)));
  ldprime = lprime + V;
  D = ldprime - LambdaSol;
  return (50 * (1 - cos(dtor(D))));
}
```