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

```asm
<GPS_Math_Swiss_LatLon_To_EN>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r12
  push   %rbx
  sub    $0xe0,%rsp
  movsd  %xmm0,-0x98(%rbp)
  movsd  %xmm1,-0xa0(%rbp)
  mov    %rdi,-0xa8(%rbp)
  mov    %rsi,-0xb0(%rbp)
  movsd  %xmm2,-0xb8(%rbp)
  movsd  %xmm3,-0xc0(%rbp)
  movsd  %xmm4,-0xc8(%rbp)
  movsd  %xmm5,-0xd0(%rbp)
  movsd  %xmm6,-0xd8(%rbp)
  movsd  %xmm7,-0xe0(%rbp)
  mov    -0xc0(%rbp),%rax
  movq   %rax,%xmm0
  call   <GPS_Math_Deg_To_Rad@plt>
  movq   %xmm0,%rax
  mov    %rax,-0xc0(%rbp)
  mov    -0xb8(%rbp),%rax
  movq   %rax,%xmm0
  call   <GPS_Math_Deg_To_Rad@plt>
  movq   %xmm0,%rax
  mov    %rax,-0xb8(%rbp)
  mov    -0xa0(%rbp),%rax
  movq   %rax,%xmm0
  call   <GPS_Math_Deg_To_Rad@plt>
  movq   %xmm0,%rax
  mov    %rax,-0xa0(%rbp)
  mov    -0x98(%rbp),%rax
  movq   %rax,%xmm0
  call   <GPS_Math_Deg_To_Rad@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x98(%rbp)
  movsd  D145(%rip),%xmm0
  movsd  %xmm0,-0x90(%rbp)
  movsd  -0xd8(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  movsd  %xmm0,-0x88(%rbp)
  movsd  -0xe0(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  movsd  %xmm0,-0x80(%rbp)
  movsd  -0x88(%rbp),%xmm0
  subsd  -0x80(%rbp),%xmm0
  divsd  -0x88(%rbp),%xmm0
  movsd  %xmm0,-0x78(%rbp)
  movsd  D100(%rip),%xmm0
  mov    -0x78(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x70(%rbp)
  mov    -0xb8(%rbp),%rax
  movq   %rax,%xmm0
  call   <cos@plt>
  movq   %xmm0,%rax
  movsd  D75(%rip),%xmm0
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  mulsd  -0x78(%rbp),%xmm0
  movsd  D165(%rip),%xmm1
  movapd %xmm1,%xmm2
  subsd  -0x78(%rbp),%xmm2
  movapd %xmm0,%xmm1
  divsd  %xmm2,%xmm1
  movsd  D165(%rip),%xmm0
  addsd  %xmm0,%xmm1
  movq   %xmm1,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x68(%rbp)
  mov    -0xb8(%rbp),%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm7
  divsd  -0x68(%rbp),%xmm7
  movq   %xmm7,%rax
  movq   %rax,%xmm0
  call   <asin@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x60(%rbp)
  movsd  -0x60(%rbp),%xmm0
  movsd  D156(%rip),%xmm1
  divsd  %xmm1,%xmm0
  addsd  -0x90(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <tan@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movq   %xmm0,%rbx
  movsd  -0xb8(%rbp),%xmm0
  movsd  D156(%rip),%xmm1
  divsd  %xmm1,%xmm0
  addsd  -0x90(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <tan@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movq   %xmm0,%r12
  movsd  -0x70(%rbp),%xmm0
  movsd  D156(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0xe8(%rbp)
  mov    -0xb8(%rbp),%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm3
  mulsd  -0x70(%rbp),%xmm3
  movapd %xmm3,%xmm1
  movsd  D165(%rip),%xmm0
  movapd %xmm1,%xmm3
  addsd  %xmm0,%xmm3
  movsd  %xmm3,-0xf0(%rbp)
  mov    -0xb8(%rbp),%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm4
  mulsd  -0x70(%rbp),%xmm4
  movapd %xmm4,%xmm1
  movsd  D165(%rip),%xmm0
  subsd  %xmm1,%xmm0
  movsd  -0xf0(%rbp),%xmm3
  divsd  %xmm0,%xmm3
  movq   %xmm3,%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movsd  -0xe8(%rbp),%xmm1
  mulsd  %xmm0,%xmm1
  movq   %r12,%xmm0
  subsd  %xmm1,%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x68(%rbp),%xmm1
  movq   %rbx,%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x58(%rbp)
  movsd  -0xa0(%rbp),%xmm0
  subsd  -0xc0(%rbp),%xmm0
  movsd  -0x68(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x98(%rbp),%xmm0
  movsd  D156(%rip),%xmm1
  divsd  %xmm1,%xmm0
  addsd  -0x90(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <tan@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movq   %xmm0,%rbx
  movsd  -0x70(%rbp),%xmm0
  movsd  D156(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0xe8(%rbp)
  mov    -0x98(%rbp),%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm5
  mulsd  -0x70(%rbp),%xmm5
  movapd %xmm5,%xmm1
  movsd  D165(%rip),%xmm0
  movapd %xmm1,%xmm4
  addsd  %xmm0,%xmm4
  movsd  %xmm4,-0xf0(%rbp)
  mov    -0x98(%rbp),%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm6
  mulsd  -0x70(%rbp),%xmm6
  movapd %xmm6,%xmm1
  movsd  D165(%rip),%xmm0
  subsd  %xmm1,%xmm0
  movsd  -0xf0(%rbp),%xmm4
  divsd  %xmm0,%xmm4
  movq   %xmm4,%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movsd  -0xe8(%rbp),%xmm1
  mulsd  %xmm0,%xmm1
  movq   %rbx,%xmm0
  subsd  %xmm1,%xmm0
  mulsd  -0x68(%rbp),%xmm0
  movsd  -0x58(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  mov    -0x48(%rbp),%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  mov    %eax,%edi
  call   <atan@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  subsd  -0x90(%rbp),%xmm0
  addsd  %xmm0,%xmm0
  movsd  %xmm0,-0x40(%rbp)
  mov    -0x60(%rbp),%rax
  movq   %rax,%xmm0
  call   <cos@plt>
  movsd  %xmm0,-0xe8(%rbp)
  mov    -0x40(%rbp),%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movapd %xmm0,%xmm5
  mulsd  -0xe8(%rbp),%xmm5
  movsd  %xmm5,-0xe8(%rbp)
  mov    -0x60(%rbp),%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movsd  %xmm0,-0xf0(%rbp)
  mov    -0x40(%rbp),%rax
  movq   %rax,%xmm0
  call   <cos@plt>
  movapd %xmm0,%xmm6
  mulsd  -0xf0(%rbp),%xmm6
  movsd  %xmm6,-0xf0(%rbp)
  mov    -0x50(%rbp),%rax
  movq   %rax,%xmm0
  call   <cos@plt>
  movsd  -0xf0(%rbp),%xmm1
  mulsd  %xmm0,%xmm1
  movsd  -0xe8(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  mov    -0x38(%rbp),%rax
  movq   %rax,%xmm0
  call   <asin@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x30(%rbp)
  mov    -0x40(%rbp),%rax
  movq   %rax,%xmm0
  call   <cos@plt>
  movsd  %xmm0,-0xe8(%rbp)
  mov    -0x50(%rbp),%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movapd %xmm0,%xmm7
  mulsd  -0xe8(%rbp),%xmm7
  movsd  %xmm7,-0xe8(%rbp)
  mov    -0x30(%rbp),%rax
  movq   %rax,%xmm0
  call   <cos@plt>
  movapd %xmm0,%xmm1
  movsd  -0xe8(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  mov    -0x28(%rbp),%rax
  movq   %rax,%xmm0
  call   <asin@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x20(%rbp)
  movsd  D165(%rip),%xmm0
  subsd  -0x78(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm5
  mulsd  -0xd8(%rbp),%xmm5
  movsd  %xmm5,-0xe8(%rbp)
  mov    -0xb8(%rbp),%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm6
  mulsd  -0x78(%rbp),%xmm6
  movsd  %xmm6,-0xf0(%rbp)
  mov    -0xb8(%rbp),%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movsd  -0xf0(%rbp),%xmm2
  mulsd  %xmm0,%xmm2
  movsd  D165(%rip),%xmm0
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  -0xe8(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x30(%rbp),%xmm0
  movsd  D156(%rip),%xmm1
  divsd  %xmm1,%xmm0
  addsd  -0x90(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <tan@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  mulsd  -0x18(%rbp),%xmm0
  addsd  -0xd0(%rbp),%xmm0
  mov    -0xb0(%rbp),%rax
  movsd  %xmm0,(%rax)
  movsd  -0x18(%rbp),%xmm0
  mulsd  -0x20(%rbp),%xmm0
  addsd  -0xc8(%rbp),%xmm0
  mov    -0xa8(%rbp),%rax
  movsd  %xmm0,(%rax)
  nop
  add    $0xe0,%rsp
  pop    %rbx
  pop    %r12
  pop    %rbp
  ret
```

tool_calls: name: read_data
arguments: label: D145
type_guessed: byte[8]
name: read_data
arguments: label: D100
type_guessed: f64
name: read_data
arguments: label: D75
type_guessed: f64
name: read_data
arguments: label: D165
type_guessed: f64
name: read_data
arguments: label: D156
type_guessed: f64

tool: {"D145": [0x1e,0x26,0x44,0x54,0xfb,0x21,0xe9,0x3f]}

tool: D100: 0.5

tool: D75: 4

tool: D165: 1

tool: D156: 2

assistant: ```c
void GPS_Math_Swiss_LatLon_To_EN(double phi, double lambda, double *E, double *N, double phi0, double lambda0, double E0, double N0, double a, double b) {
  double a2;
  double b2;
  double esq;
  double e;
  double c;
  double ephi0p;
  double phip;
  double sphip;
  double phid;
  double slambda2;
  double lambda1;
  double lambda2;
  double K;
  double po4;
  double w;
  double R;
  lambda0 = GPS_Math_Deg_To_Rad(lambda0);
  phi0 = GPS_Math_Deg_To_Rad(phi0);
  lambda = GPS_Math_Deg_To_Rad(lambda);
  phi = GPS_Math_Deg_To_Rad(phi);
  po4 = 3.141592653589 / (double)4.0;
  a2 = a * a;
  b2 = b * b;
  esq = (a2 - b2) / a2;
  e = pow(esq, (double)0.5);
  c = sqrt(1 + ((esq * pow(cos(phi0), (double)4.)) / ((double)1. - esq)));
  ephi0p = asin(sin(phi0) / c);
  K = log(tan(po4 + ephi0p / (double)2.)) - c * (log(tan(po4 + phi0 / (double)2.)) - e / (double)2. * log(((double)1. + e * sin(phi0)) / ((double)1. - e * sin(phi0))));
  lambda1 = c * (lambda - lambda0);
  w = c * (log(tan(po4 + phi / (double)2.)) - e / (double)2. * log(((double)1. + e * sin(phi)) / ((double)1. - e * sin(phi)))) + K;
  phip = (double)2. * (atan(exp(w)) - po4);
  sphip = cos(ephi0p) * sin(phip) - sin(ephi0p) * cos(phip) * cos(lambda1);
  phid = asin(sphip);
  slambda2 = cos(phip) * sin(lambda1) / cos(phid);
  lambda2 = asin(slambda2);
  R = a * sqrt((double)1. - esq) / ((double)1. - esq * sin(phi0) * sin(phi0));
  *N = R * log(tan(po4 + phid / (double)2.)) + N0;
  *E = R * lambda2 + E0;
  return;
}
```