user: Translate the below assembly code into C programming language:

```asm
<main>:
  endbr64
  push   %rbp
  lea    D47(%rip),%rdi
  lea    D2(%rip),%rbp
  sub    $0x50,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x48(%rsp)
  xor    %eax,%eax
  call   <puts@plt>
  lea    D73(%rip),%rdi
  call   <puts@plt>
  mov    %rsp,%rsi
  mov    %rbp,%rdi
  call   <scanf@plt>
  cmp    $0x1,%eax
  jne    L5
  lea    0x8(%rsp),%rsi
  mov    %rbp,%rdi
  call   <scanf@plt>
  sub    $0x1,%eax
  je     L35
L5:
  lea    D78(%rip),%rdi
  call   <puts@plt>
  mov    $0x1,%eax
L15:
  mov    0x48(%rsp),%rdx
  sub    %fs:0x28,%rdx
  jne    L51
  add    $0x50,%rsp
  pop    %rbp
  ret
L35:
  lea    D88(%rip),%rdi
  call   <puts@plt>
  lea    D102(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D28(%rip),%rdi
  call   <puts@plt>
  lea    0x10(%rsp),%rsi
  mov    %rbp,%rdi
  call   <scanf@plt>
  sub    $0x1,%eax
  jne    L5
  lea    0x18(%rsp),%rsi
  mov    %rbp,%rdi
  call   <scanf@plt>
  sub    $0x1,%eax
  jne    L5
  movsd  0x10(%rsp),%xmm0
  lea    0x38(%rsp),%rcx
  lea    0x30(%rsp),%rdx
  movsd  D116(%rip),%xmm1
  lea    0x28(%rsp),%rsi
  lea    0x40(%rsp),%r8
  mulsd  %xmm1,%xmm0
  lea    0x20(%rsp),%rdi
  mulsd  0x18(%rsp),%xmm1
  call   <exactE@plt>
  lea    D14(%rip),%rdi
  call   <puts@plt>
  movsd  0x28(%rsp),%xmm1
  mov    $0x3,%eax
  movsd  D20(%rip),%xmm3
  movsd  0x30(%rsp),%xmm2
  movsd  0x20(%rsp),%xmm0
  lea    D117(%rip),%rdi
  mulsd  %xmm3,%xmm1
  call   <printf@plt>
  mov    D20(%rip),%rax
  movsd  0x38(%rsp),%xmm0
  lea    D13(%rip),%rdi
  movq   %rax,%xmm3
  mov    $0x2,%eax
  mulsd  %xmm3,%xmm0
  mulsd  0x40(%rsp),%xmm3
  movapd %xmm3,%xmm1
  call   <printf@plt>
  xor    %eax,%eax
  jmp    L15
L51:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: tag: D47
type_guessed: string
name: unpack_data
arguments: tag: D2
type_guessed: string
name: unpack_data
arguments: tag: D73
type_guessed: string
name: unpack_data
arguments: tag: D78
type_guessed: string
name: unpack_data
arguments: tag: D88
type_guessed: string
name: unpack_data
arguments: tag: D102
type_guessed: string
name: unpack_data
arguments: tag: D28
type_guessed: string
name: unpack_data
arguments: tag: D116
type_guessed: f64
name: unpack_data
arguments: tag: D14
type_guessed: string
name: unpack_data
arguments: tag: D20
type_guessed: f64
name: unpack_data
arguments: tag: D117
type_guessed: string
name: unpack_data
arguments: tag: D13
type_guessed: string

tool: D47: Enter  t  and  r  separated by space (or newline)

tool: D2: %lf

tool: D73:     (in yrs and km, resp.; e.g. 15000 500):

tool: D78: ... input error; exiting

tool: D88: exact test E also requires cartesian location ...

tool: D102: Enter  x  and  y  separated by space 

tool: D28: (in km; e.g. 400 200):

tool: D116: 1000

tool: D14: Results for Test E:

tool: D20: 31556926

tool: D117:     H = %12.6f (m)     M = %12.6f (m/a)    mu = %11.5e (m/(Pa s))


tool: D13:     u_b = %10.6f (m/a)   v_b = %10.6f (m/a)


assistant: ```c
int main() {
  const double SperA = 31556926.0;
  double year, r, x, y, HE, ME, muE, ubE, vbE;
  int scanret;
  printf("Enter  t  and  r  separated by space (or newline)\n");
  printf("    (in yrs and km, resp.; e.g. 15000 500):\n");
  scanret = scanf("%lf", &year);
  if (scanret != 1) {
    printf("... input error; exiting\n");
    return 1;
  }
  scanret = scanf("%lf", &r);
  if (scanret != 1) {
    printf("... input error; exiting\n");
    return 1;
  }
  printf("exact test E also requires cartesian location ...\n");
  printf("Enter  x  and  y  separated by space ");
  printf("(in km; e.g. 400 200):\n");
  scanret = scanf("%lf", &x);
  if (scanret != 1) {
    printf("... input error; exiting\n");
    return 1;
  }
  scanret = scanf("%lf", &y);
  if (scanret != 1) {
    printf("... input error; exiting\n");
    return 1;
  }
  exactE(x * 1000.0, y * 1000.0, &HE, &ME, &muE, &ubE, &vbE);
  printf("Results for Test E:\n");
  printf("    H = %12.6f (m)     M = %12.6f (m/a)    mu = %11.5e (m/(Pa s))\n", HE, ME * SperA, muE);
  printf("    u_b = %10.6f (m/a)   v_b = %10.6f (m/a)\n", ubE * SperA, vbE * SperA);
  return 0;
}
```