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

```asm
<init_amsr_averaged>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    %edi,%ebx
  lea    D86(%rip),%rdi
  sub    $0xe8,%rsp
  mov    %esi,0x8(%rsp)
  lea    D68(%rip),%rsi
  mov    %edx,0xc(%rsp)
  movq   %rsi,%xmm0
  lea    D83(%rip),%rsi
  mov    %fs:0x28,%rax
  mov    %rax,0xd8(%rsp)
  lea    D64(%rip),%rax
  movq   $0x0,0xd0(%rsp)
  movq   %rax,%xmm1
  lea    D41(%rip),%rax
  punpcklqdq %xmm1,%xmm0
  movq   %rax,%xmm2
  lea    D118(%rip),%rax
  movaps %xmm0,0x20(%rsp)
  movq   %rdi,%xmm0
  punpcklqdq %xmm2,%xmm0
  mov    %rax,0x40(%rsp)
  lea    D1(%rip),%rax
  movq   %rax,%xmm3
  movaps %xmm0,0x30(%rsp)
  movq   %rsi,%xmm0
  lea    D90(%rip),%rax
  punpcklqdq %xmm3,%xmm0
  movaps %xmm0,0x50(%rsp)
  movq   %rax,%xmm0
  lea    D120(%rip),%rax
  punpcklqdq %xmm0,%xmm0
  mov    %rax,0x70(%rsp)
  mov    D95(%rip),%rax
  movaps %xmm0,0x60(%rsp)
  movapd D80(%rip),%xmm0
  mov    %rax,0xa0(%rsp)
  movaps %xmm0,0x80(%rsp)
  movapd D125(%rip),%xmm0
  movaps %xmm0,0x90(%rsp)
  movq   D102(%rip),%xmm0
  movaps %xmm0,0xb0(%rsp)
  pxor   %xmm0,%xmm0
  movaps %xmm0,0xc0(%rsp)
  test   %ecx,%ecx
  jle    L22
  movslq %ecx,%rax
  lea    0x20(%rsp),%r15
  lea    0x50(%rsp),%r14
  xor    %ebp,%ebp
  mov    %rax,0x10(%rsp)
  lea    0xb0(%rsp),%rax
  lea    0x80(%rsp),%r13
  mov    %rax,0x18(%rsp)
  nopl   0x0(%rax,%rax,1)
L20:
  mov    0xc(%rsp),%edx
  mov    0x8(%rsp),%esi
  mov    $0x1,%ecx
  mov    %ebx,%edi
  call   <vlistDefVar@plt>
  mov    (%r15,%rbp,8),%rdx
  mov    %ebx,%edi
  mov    %eax,%esi
  mov    %eax,%r12d
  call   <vlistDefVarName@plt>
  mov    (%r14,%rbp,8),%rdx
  mov    %r12d,%esi
  mov    %ebx,%edi
  call   <vlistDefVarUnits@plt>
  mov    $0xd8,%edx
  mov    %r12d,%esi
  mov    %ebx,%edi
  call   <vlistDefVarDatatype@plt>
  mov    $0xfe,%edx
  mov    %r12d,%esi
  mov    %ebx,%edi
  call   <vlistDefVarMissval@plt>
  movsd  0x0(%r13,%rbp,8),%xmm0
  mov    %r12d,%esi
  mov    %ebx,%edi
  call   <vlistDefVarScalefactor@plt>
  mov    0x18(%rsp),%rax
  mov    %r12d,%esi
  mov    %ebx,%edi
  movsd  (%rax,%rbp,8),%xmm0
  add    $0x1,%rbp
  call   <vlistDefVarAddoffset@plt>
  cmp    %rbp,0x10(%rsp)
  jne    L20
L22:
  mov    0xd8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L13
  add    $0xe8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L13:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: data_tag: D86
datatype: string
name: retrieve_data
arguments: data_tag: D68
datatype: string
name: retrieve_data
arguments: data_tag: D83
datatype: string
name: retrieve_data
arguments: data_tag: D64
datatype: string
name: retrieve_data
arguments: data_tag: D41
datatype: string
name: retrieve_data
arguments: data_tag: D118
datatype: string
name: retrieve_data
arguments: data_tag: D1
datatype: string
name: retrieve_data
arguments: data_tag: D90
datatype: string
name: retrieve_data
arguments: data_tag: D120
datatype: string
name: retrieve_data
arguments: data_tag: D95
datatype: f64
name: retrieve_data
arguments: data_tag: D80
datatype: f64[2]
name: retrieve_data
arguments: data_tag: D125
datatype: f64[2]
name: retrieve_data
arguments: data_tag: D102
datatype: f32[2]

tool: D86: vapor

tool: D68: sst

tool: D83: deg Celcius

tool: D64: wind

tool: D41: cloud

tool: D118: rain

tool: D1: m/s

tool: D90: mm

tool: D120: mm/h

tool: D95: 0.1

tool: {"D80": [0.15,0.2]}

tool: {"D125": [0.3,0.01]}

tool: {"D102": [0.0,-2.125]}

assistant: ```c
void init_amsr_averaged(int vlistID, int gridID, int zaxisID, int nvars) {
  char *name[] = {"sst", "wind", "vapor", "cloud", "rain"};
  char *units[] = {"deg Celcius", "m/s", "mm", "mm", "mm/h"};
  double xscale[] = {0.15, 0.2, 0.3, 0.01, 0.1};
  double xminval[] = {-3., 0., 0., 0., 0.};
  int i, varID;
  for (i = 0; i < nvars; ++i) {
    varID = vlistDefVar(vlistID, gridID, zaxisID, 1);
    vlistDefVarName(vlistID, varID, name[i]);
    vlistDefVarUnits(vlistID, varID, units[i]);
    vlistDefVarDatatype(vlistID, varID, 216);
    vlistDefVarMissval(vlistID, varID, 254);
    vlistDefVarScalefactor(vlistID, varID, xscale[i]);
    vlistDefVarAddoffset(vlistID, varID, xminval[i]);
  }
}
```