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

```asm
<main>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x130,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movsd  D36(%rip),%xmm0
  movsd  %xmm0,-0x120(%rbp)
  movsd  D47(%rip),%xmm0
  movsd  %xmm0,-0x118(%rbp)
  movsd  D8(%rip),%xmm0
  movsd  %xmm0,-0x110(%rbp)
  lea    D7(%rip),%rax
  mov    %rax,%rdi
  call   <puts@plt>
  movl   $0x0,-0x130(%rbp)
  jmp    L14
L20:
  mov    -0x130(%rbp),%eax
  mov    %eax,%esi
  lea    D56(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  movsd  -0x120(%rbp),%xmm0
  movsd  %xmm0,-0x128(%rbp)
  jmp    L38
L4:
  movsd  -0x128(%rbp),%xmm1
  movsd  D41(%rip),%xmm0
  addsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,-0x12c(%rbp)
  lea    -0x100(%rbp),%rdx
  mov    -0x12c(%rbp),%eax
  mov    %rdx,%rdi
  movd   %eax,%xmm0
  call   <CalcGust86Elem@plt>
  mov    -0x130(%rbp),%edx
  mov    %edx,%eax
  add    %eax,%eax
  add    %edx,%eax
  add    %eax,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  lea    -0x100(%rbp),%rax
  add    %rdx,%rax
  mov    %rax,-0x108(%rbp)
  mov    -0x108(%rbp),%rax
  add    $0x28,%rax
  movsd  (%rax),%xmm5
  mov    -0x108(%rbp),%rax
  add    $0x20,%rax
  movsd  (%rax),%xmm4
  mov    -0x108(%rbp),%rax
  add    $0x18,%rax
  movsd  (%rax),%xmm3
  mov    -0x108(%rbp),%rax
  add    $0x10,%rax
  movsd  (%rax),%xmm2
  mov    -0x108(%rbp),%rax
  add    $0x8,%rax
  movsd  (%rax),%xmm1
  mov    -0x108(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x128(%rbp),%rax
  movapd %xmm5,%xmm6
  movapd %xmm4,%xmm5
  movapd %xmm3,%xmm4
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  lea    D40(%rip),%rax
  mov    %rax,%rdi
  mov    $0x7,%eax
  call   <printf@plt>
  movsd  -0x128(%rbp),%xmm0
  addsd  -0x110(%rbp),%xmm0
  movsd  %xmm0,-0x128(%rbp)
L38:
  movsd  -0x118(%rbp),%xmm0
  comisd -0x128(%rbp),%xmm0
  ja     L4
  lea    D58(%rip),%rax
  mov    %rax,%rdi
  call   <puts@plt>
  addl   $0x1,-0x130(%rbp)
L14:
  cmpl   $0x4,-0x130(%rbp)
  jle    L20
  lea    D87(%rip),%rax
  mov    %rax,%rdi
  call   <puts@plt>
  mov    $0x0,%eax
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L30
  call   <__stack_chk_fail@plt>
L30:
  leave
  ret
```

tool_calls: name: disassemble_data
arguments: tag: D36
type_infered: byte[8]
name: disassemble_data
arguments: tag: D47
type_infered: f64
name: disassemble_data
arguments: tag: D8
type_infered: f64
name: disassemble_data
arguments: tag: D7
type_infered: string
name: disassemble_data
arguments: tag: D56
type_infered: string
name: disassemble_data
arguments: tag: D41
type_infered: f64
name: disassemble_data
arguments: tag: D40
type_infered: string
name: disassemble_data
arguments: tag: D58
type_infered: string
name: disassemble_data
arguments: tag: D87
type_infered: string

tool: {"D36": [0x00,0x00,0x00,0x00,0x00,0x88,0xd3,0xc0]}

tool: D47: 20000

tool: D8: 225

tool: D7: {

tool: D56: 	"%d": [


tool: D41: 7305.5

tool: D40: 		[%.13f, %.13f, %.13f, %.13f, %.13f, %.13f, %.13f],


tool: D58: 	],

tool: D87: }

assistant: ```c
int main() {
  int body;
  double jd2k;
  double start = -20000.0;
  double end = +20000.0;
  double step = 225.0;
  double elems[5 * 6];
  printf("{\n");
  for (body = 0; body < 5; body++) {
    printf("\t\"%d\": [\n", body);
    for (jd2k = start; jd2k < end; jd2k += step) {
      float time = jd2k + 7305.5;
      CalcGust86Elem(time, elems);
      double *elem = elems + 6 * body;
      printf("\t\t[%.13f, %.13f, %.13f, %.13f, %.13f, %.13f, %.13f],\n", jd2k, elem[0], elem[1], elem[2], elem[3], elem[4], elem[5]);
    }
    printf("\t],\n");
  }
  printf("}\n");
  return 0;
}
```