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

```asm
<potm>:
  endbr64
  sub    $0x68,%rsp
  movsd  %xmm0,(%rsp)
  lea    0x28(%rsp),%rdi
  mulsd  D133(%rip),%xmm0
  divsd  D172(%rip),%xmm0
  mov    %fs:0x28,%rax
  mov    %rax,0x58(%rsp)
  xor    %eax,%eax
  movsd  %xmm0,0x28(%rsp)
  call   <adj360@plt>
  movsd  D129(%rip),%xmm5
  addsd  0x28(%rsp),%xmm5
  lea    0x30(%rsp),%rdi
  movapd %xmm5,%xmm0
  subsd  D173(%rip),%xmm0
  movsd  %xmm0,0x30(%rsp)
  call   <adj360@plt>
  movsd  0x30(%rsp),%xmm0
  call   <dtor@plt>
  mov    %eax,%edi
  call   <sin@plt>
  mulsd  D181(%rip),%xmm0
  lea    0x38(%rsp),%rdi
  addsd  0x28(%rsp),%xmm0
  addsd  D129(%rip),%xmm0
  movsd  %xmm0,0x38(%rsp)
  call   <adj360@plt>
  movsd  (%rsp),%xmm0
  lea    0x40(%rsp),%rdi
  mulsd  D127(%rip),%xmm0
  addsd  D123(%rip),%xmm0
  movsd  %xmm0,0x40(%rsp)
  call   <adj360@plt>
  movsd  (%rsp),%xmm1
  movsd  0x40(%rsp),%xmm0
  lea    0x48(%rsp),%rdi
  mulsd  D24(%rip),%xmm1
  subsd  %xmm1,%xmm0
  subsd  D3(%rip),%xmm0
  movsd  %xmm0,0x48(%rsp)
  call   <adj360@plt>
  movsd  (%rsp),%xmm0
  lea    0x50(%rsp),%rdi
  mulsd  D104(%rip),%xmm0
  movsd  D122(%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  D65(%rip),%xmm0
  movsd  %xmm0,(%rsp)
  movsd  0x30(%rsp),%xmm0
  call   <dtor@plt>
  mov    %eax,%edi
  call   <sin@plt>
  movsd  D82(%rip),%xmm4
  mulsd  %xmm0,%xmm4
  movsd  0x30(%rsp),%xmm0
  movsd  %xmm4,0x8(%rsp)
  call   <dtor@plt>
  mov    %eax,%edi
  call   <sin@plt>
  mulsd  D56(%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  D76(%rip),%xmm2
  addsd  0x40(%rsp),%xmm1
  movapd %xmm0,%xmm3
  mulsd  D139(%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  D38(%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
  cvtsi2sd %eax,%xmm0
  mulsd  D86(%rip),%xmm0
  mov    0x58(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L9
  add    $0x68,%rsp
  ret
L9:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: data_label: D133
data_type: byte[8]
name: read_data
arguments: data_label: D172
data_type: f64
name: read_data
arguments: data_label: D129
data_type: f64
name: read_data
arguments: data_label: D173
data_type: f64
name: read_data
arguments: data_label: D181
data_type: byte[8]
name: read_data
arguments: data_label: D127
data_type: f64
name: read_data
arguments: data_label: D123
data_type: f64
name: read_data
arguments: data_label: D24
data_type: f64
name: read_data
arguments: data_label: D3
data_type: f64
name: read_data
arguments: data_label: D104
data_type: f64
name: read_data
arguments: data_label: D122
data_type: f64
name: read_data
arguments: data_label: D65
data_type: f64
name: read_data
arguments: data_label: D82
data_type: f64
name: read_data
arguments: data_label: D56
data_type: f64
name: read_data
arguments: data_label: D76
data_type: f64
name: read_data
arguments: data_label: D139
data_type: f64
name: read_data
arguments: data_label: D38
data_type: f64
name: read_data
arguments: data_label: D86
data_type: f64

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

tool: D172: 365.242191

tool: D129: 279.403303

tool: D173: 282.768422

tool: {"D181": [0xa2,0x2a,0x48,0xf6,0x87,0xa4,0xfe,0x3f]}

tool: D127: 13.1763966

tool: D123: 318.351648

tool: D24: 0.1114041

tool: D3: 36.34041

tool: D104: 0.0529539

tool: D122: 318.510107

tool: D65: 1.2739

tool: D82: 0.1858

tool: D56: 0.37

tool: D76: 6.2886

tool: D139: 0.214

tool: D38: 0.6583

tool: D86: 50

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.242191;
  adj360(&N);
  Msol = N + 279.403303 - 282.768422;
  adj360(&Msol);
  Ec = 360 / 3.14159265358979323846 * 0.016713 * sin(dtor(Msol));
  LambdaSol = N + Ec + 279.403303;
  adj360(&LambdaSol);
  l = 13.1763966 * days + 318.351648;
  adj360(&l);
  Mm = l - (0.1114041 * days) - 36.340410;
  adj360(&Mm);
  Nm = 318.510107 - (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.0 * (1 - cos(dtor(D))));
}
```