user: 请显示与下面列出的汇编代码相匹配的C语言实现:

```asm
<init_amsr_day>:
  endbr64
  push   %r15
  movslq %ecx,%rax
  lea    D49(%rip),%rcx
  push   %r14
  movq   %rcx,%xmm0
  lea    D11(%rip),%rcx
  push   %r13
  movq   %rcx,%xmm1
  lea    D14(%rip),%rcx
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xf8,%rsp
  mov    %esi,0x8(%rsp)
  mov    %edx,0xc(%rsp)
  mov    %fs:0x28,%rdx
  mov    %rdx,0xe8(%rsp)
  xor    %edx,%edx
  lea    D37(%rip),%rdx
  movq   %rdx,%xmm2
  lea    D42(%rip),%rdx
  punpcklqdq %xmm2,%xmm1
  movq   %rdx,%xmm3
  lea    D92(%rip),%rdx
  movaps %xmm1,0x20(%rsp)
  movq   %rcx,%xmm1
  movq   %rdx,%xmm4
  lea    D66(%rip),%rcx
  punpcklqdq %xmm3,%xmm1
  lea    D36(%rip),%rdx
  movaps %xmm1,0x30(%rsp)
  movq   %rcx,%xmm1
  movq   %rdx,%xmm5
  lea    D138(%rip),%rcx
  punpcklqdq %xmm4,%xmm1
  lea    D25(%rip),%rdx
  movaps %xmm1,0x40(%rsp)
  movq   %rcx,%xmm1
  movq   %rdx,%xmm6
  lea    D51(%rip),%rcx
  punpcklqdq %xmm5,%xmm1
  movaps %xmm1,0x50(%rsp)
  movq   %rcx,%xmm1
  punpcklqdq %xmm0,%xmm1
  punpcklqdq %xmm6,%xmm0
  movaps %xmm0,0x70(%rsp)
  movapd D24(%rip),%xmm0
  movaps %xmm1,0x60(%rsp)
  movaps %xmm0,0x80(%rsp)
  movapd D73(%rip),%xmm0
  movaps %xmm0,0x90(%rsp)
  movapd D122(%rip),%xmm0
  movaps %xmm0,0xa0(%rsp)
  movapd D84(%rip),%xmm0
  movaps %xmm0,0xb0(%rsp)
  pxor   %xmm0,%xmm0
  movaps %xmm0,0xc0(%rsp)
  movaps %xmm0,0xd0(%rsp)
  test   %eax,%eax
  jle    L16
  shl    $0x3,%rax
  mov    %edi,%ebx
  lea    0x20(%rsp),%r15
  xor    %ebp,%ebp
  mov    %rax,0x10(%rsp)
  lea    0xb0(%rsp),%rax
  lea    0x50(%rsp),%r14
  mov    %rax,0x18(%rsp)
  lea    0x80(%rsp),%r13
  nopl   (%rax)
L28:
  mov    0xc(%rsp),%edx
  mov    0x8(%rsp),%esi
  mov    $0x1,%ecx
  mov    %ebx,%edi
  call   <vlistDefVar@plt>
  mov    (%r15,%rbp,1),%rdx
  mov    %ebx,%edi
  mov    %eax,%esi
  mov    %eax,%r12d
  call   <vlistDefVarName@plt>
  mov    (%r14,%rbp,1),%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,1),%xmm0
  mov    %r12d,%esi
  mov    %ebx,%edi
  call   <vlistDefVarScalefactor@plt>
  mov    0x18(%rsp),%rax
  mov    %r12d,%esi
  mov    %ebx,%edi
  movsd  (%rax,%rbp,1),%xmm0
  add    $0x8,%rbp
  call   <vlistDefVarAddoffset@plt>
  cmp    %rbp,0x10(%rsp)
  jne    L28
L16:
  mov    0xe8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L5
  add    $0xf8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L5:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: data_label: D49
type_guessed: string
name: unpack_data
arguments: data_label: D11
type_guessed: string
name: unpack_data
arguments: data_label: D14
type_guessed: string
name: unpack_data
arguments: data_label: D37
type_guessed: string
name: unpack_data
arguments: data_label: D42
type_guessed: string
name: unpack_data
arguments: data_label: D92
type_guessed: string
name: unpack_data
arguments: data_label: D66
type_guessed: string
name: unpack_data
arguments: data_label: D36
type_guessed: string
name: unpack_data
arguments: data_label: D138
type_guessed: string
name: unpack_data
arguments: data_label: D25
type_guessed: string
name: unpack_data
arguments: data_label: D51
type_guessed: string
name: unpack_data
arguments: data_label: D24
type_guessed: f64[2]
name: unpack_data
arguments: data_label: D73
type_guessed: f64[2]
name: unpack_data
arguments: data_label: D122
type_guessed: f64[2]
name: unpack_data
arguments: data_label: D84
type_guessed: f64[2]

tool: D49: mm

tool: D11: hours

tool: D14: wind

tool: D37: sst

tool: D42: vapor

tool: D92: rain

tool: D66: cloud

tool: D36: deg Celcius

tool: D138: h

tool: D25: mm/h

tool: D51: m/s

tool: {"D24": [0.1,0.15]}

tool: {"D73": [0.2,0.3]}

tool: {"D122": [0.01,0.1]}

tool: {"D84": [0.0,-3.0]}

assistant: ```c
void init_amsr_day(int vlistID, int gridID, int zaxisID, int nvars) {
  char *name[] = {"hours", "sst", "wind", "vapor", "cloud", "rain"};
  char *units[] = {"h", "deg Celcius", "m/s", "mm", "mm", "mm/h"};
  double xscale[] = {0.1, 0.15, 0.2, 0.3, 0.01, 0.1};
  double xminval[] = {0., -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]);
  }
}
```