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

```asm
<gsw_pt_from_ct>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0xe0,%rsp
  movsd  %xmm0,-0xc8(%rbp)
  movsd  %xmm1,-0xd0(%rbp)
  movsd  D107(%rip),%xmm0
  movsd  %xmm0,-0xb8(%rbp)
  movl   $0x0,-0xc0(%rbp)
  movl   $0x2,-0xbc(%rbp)
  movsd  -0xc8(%rbp),%xmm1
  movsd  D13(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  D15(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0xb0(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0xa8(%rbp)
  movsd  D37(%rip),%xmm0
  movsd  %xmm0,-0xa0(%rbp)
  movsd  D118(%rip),%xmm0
  movsd  %xmm0,-0x98(%rbp)
  movsd  D129(%rip),%xmm0
  movsd  %xmm0,-0x90(%rbp)
  movsd  D120(%rip),%xmm0
  movsd  %xmm0,-0x88(%rbp)
  movsd  D157(%rip),%xmm0
  movsd  %xmm0,-0x80(%rbp)
  movsd  D20(%rip),%xmm0
  movsd  %xmm0,-0x78(%rbp)
  movsd  D38(%rip),%xmm0
  movsd  %xmm0,-0x70(%rbp)
  movsd  D97(%rip),%xmm0
  movsd  %xmm0,-0x68(%rbp)
  movsd  D143(%rip),%xmm0
  movsd  %xmm0,-0x60(%rbp)
  movsd  D88(%rip),%xmm0
  movsd  %xmm0,-0x58(%rbp)
  movsd  -0x78(%rbp),%xmm0
  mulsd  -0xd0(%rbp),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x58(%rbp),%xmm0
  mulsd  -0xd0(%rbp),%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  -0x80(%rbp),%xmm0
  mulsd  -0xb0(%rbp),%xmm0
  addsd  -0x88(%rbp),%xmm0
  movsd  -0x50(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x40(%rbp)
  movsd  -0x90(%rbp),%xmm0
  mulsd  -0xb0(%rbp),%xmm0
  addsd  -0x98(%rbp),%xmm0
  mulsd  -0xb0(%rbp),%xmm0
  movapd %xmm0,%xmm1
  addsd  -0xa0(%rbp),%xmm1
  movsd  -0xd0(%rbp),%xmm0
  mulsd  -0x40(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  -0x68(%rbp),%xmm0
  mulsd  -0xb0(%rbp),%xmm0
  movapd %xmm0,%xmm1
  addsd  -0x70(%rbp),%xmm1
  movsd  -0x60(%rbp),%xmm0
  addsd  -0x48(%rbp),%xmm0
  mulsd  -0xd0(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  -0x38(%rbp),%xmm0
  divsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x40(%rbp),%xmm0
  addsd  -0x50(%rbp),%xmm0
  movsd  -0x60(%rbp),%xmm1
  addsd  -0x48(%rbp),%xmm1
  addsd  -0x48(%rbp),%xmm1
  movapd %xmm1,%xmm2
  mulsd  -0x28(%rbp),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  -0x30(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x28(%rbp),%xmm0
  mov    -0xc8(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <gsw_ct_from_pt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  subsd  -0xd0(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movsd  -0x18(%rbp),%xmm0
  movapd %xmm0,%xmm1
  divsd  -0x20(%rbp),%xmm1
  movsd  -0x10(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x28(%rbp),%xmm0
  movapd %xmm0,%xmm1
  addsd  -0x10(%rbp),%xmm1
  movsd  D8(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x8(%rbp),%xmm1
  movsd  D1(%rip),%xmm0
  addsd  %xmm1,%xmm0
  movq   D31(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movsd  %xmm0,-0xd8(%rbp)
  movsd  -0x8(%rbp),%xmm0
  mov    -0xc8(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <gsw_gibbs_pt0_pt0@plt>
  mulsd  -0xd8(%rbp),%xmm0
  divsd  -0xb8(%rbp),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x18(%rbp),%xmm0
  movapd %xmm0,%xmm1
  divsd  -0x20(%rbp),%xmm1
  movsd  -0x10(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x28(%rbp),%xmm0
  mov    -0xc8(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <gsw_ct_from_pt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  subsd  -0xd0(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movsd  -0x18(%rbp),%xmm0
  movapd %xmm0,%xmm1
  divsd  -0x20(%rbp),%xmm1
  movsd  -0x10(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: parse_data
arguments: tag: D107
datatype: f64
name: parse_data
arguments: tag: D13
datatype: f64
name: parse_data
arguments: tag: D15
datatype: f64
name: parse_data
arguments: tag: D37
datatype: byte[8]
name: parse_data
arguments: tag: D118
datatype: byte[8]
name: parse_data
arguments: tag: D129
datatype: byte[8]
name: parse_data
arguments: tag: D120
datatype: byte[8]
name: parse_data
arguments: tag: D157
datatype: byte[8]
name: parse_data
arguments: tag: D20
datatype: byte[8]
name: parse_data
arguments: tag: D38
datatype: f64
name: parse_data
arguments: tag: D97
datatype: byte[8]
name: parse_data
arguments: tag: D143
datatype: byte[8]
name: parse_data
arguments: tag: D88
datatype: byte[8]
name: parse_data
arguments: tag: D8
datatype: f64
name: parse_data
arguments: tag: D1
datatype: f64
name: parse_data
arguments: tag: D31
datatype: f32[2]

tool: D107: 3991.86795711963

tool: D13: 35

tool: D15: 35.16504

tool: {"D37": [0x32,0x4f,0xa6,0xa9,0x46,0x9d,0x8d,0xbf]}

tool: {"D118": [0x27,0xa7,0x4a,0x41,0xbc,0x13,0x6b,0xbf]}

tool: {"D129": [0xae,0x71,0x0b,0xab,0xc0,0xd9,0x1b,0x3f]}

tool: {"D120": [0xe9,0xbd,0x5e,0xca,0x05,0x54,0xee,0x3f]}

tool: {"D157": [0x0e,0xd5,0xe5,0x31,0xac,0xbf,0x61,0x3f]}

tool: {"D20": [0xb4,0xd3,0xbf,0x68,0xaa,0x5d,0x6f,0x3f]}

tool: D38: 1

tool: {"D97": [0xeb,0x0a,0x81,0xb7,0xb5,0x51,0x45,0x3f]}

tool: {"D143": [0xaa,0x4d,0x91,0x02,0xb3,0x60,0x6f,0x3f]}

tool: {"D88": [0x1d,0x5a,0x30,0x8a,0x4f,0xef,0xb4,0x3e]}

tool: D8: 0.5

tool: D1: 273.15

tool: {"D31": [0.0,-0.0]}

assistant: ```c
double gsw_pt_from_ct(double sa, double ct) {
  int n0, n2;
  double s1, p0, cp0;
  double a0, a1, a2, a3, a4, a5, b0, b1, b2, b3;
  double a5ct, b3ct, ct_factor, pt_num, pt_den, ct_diff;
  double pt, pt_old, ptm, dct_dpt;
  cp0 = 3991.86795711963e0;
  n0 = 0;
  n2 = 2;
  s1 = sa * 35.e0 / 35.16504e0;
  p0 = 0.e0;
  a0 = -1.446013646344788e-2;
  a1 = -3.305308995852924e-3;
  a2 = 1.062415929128982e-4;
  a3 = 9.477566673794488e-1;
  a4 = 2.166591947736613e-3;
  a5 = 3.828842955039902e-3;
  b0 = 1.000000000000000e0;
  b1 = 6.506097115635800e-4;
  b2 = 3.830289486850898e-3;
  b3 = 1.247811760368034e-6;
  a5ct = a5 * ct;
  b3ct = b3 * ct;
  ;
  ct_factor = (a3 + a4 * s1 + a5ct);
  pt_num = a0 + s1 * (a1 + a2 * s1) + ct * ct_factor;
  pt_den = b0 + b1 * s1 + ct * (b2 + b3ct);
  pt = (pt_num) / (pt_den);
  dct_dpt = (pt_den) / (ct_factor + a5ct - (b2 + b3ct + b3ct) * pt);
  ct_diff = gsw_ct_from_pt(sa, pt) - ct;
  pt_old = pt;
  pt = pt_old - (ct_diff) / dct_dpt;
  ptm = 0.5e0 * (pt + pt_old);
  dct_dpt = -(ptm + 273.15e0) * gsw_gibbs_pt0_pt0(sa, ptm) / cp0;
  pt = pt_old - (ct_diff) / dct_dpt;
  ct_diff = gsw_ct_from_pt(sa, pt) - ct;
  pt_old = pt;
  return (pt_old - (ct_diff) / dct_dpt);
}
```