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

```asm
<init_amsr_day>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xf8,%rsp
  movsd  D31(%rip),%xmm0
  mov    %esi,0x8(%rsp)
  mov    %edx,0xc(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0xe8(%rsp)
  lea    D107(%rip),%rax
  movsd  %xmm0,0x80(%rsp)
  mov    %rax,0x20(%rsp)
  lea    D162(%rip),%rax
  mov    %rax,0x28(%rsp)
  lea    D60(%rip),%rax
  mov    %rax,0x30(%rsp)
  lea    D39(%rip),%rax
  mov    %rax,0x38(%rsp)
  lea    D28(%rip),%rax
  mov    %rax,0x40(%rsp)
  lea    D42(%rip),%rax
  mov    %rax,0x48(%rsp)
  lea    D94(%rip),%rax
  mov    %rax,0x50(%rsp)
  lea    D158(%rip),%rax
  mov    %rax,0x58(%rsp)
  lea    D34(%rip),%rax
  mov    %rax,0x60(%rsp)
  lea    D36(%rip),%rax
  mov    %rax,0x68(%rsp)
  mov    %rax,0x70(%rsp)
  lea    D154(%rip),%rax
  mov    %rax,0x78(%rsp)
  mov    D73(%rip),%rax
  mov    %rax,0x88(%rsp)
  mov    D127(%rip),%rax
  mov    %rax,0x90(%rsp)
  mov    D32(%rip),%rax
  mov    %rax,0x98(%rsp)
  mov    D18(%rip),%rax
  mov    %rax,0xa0(%rsp)
  mov    D29(%rip),%rax
  movq   $0x0,0xb0(%rsp)
  mov    %rax,0xb8(%rsp)
  movq   $0x0,0xc0(%rsp)
  movq   $0x0,0xc8(%rsp)
  movq   $0x0,0xd0(%rsp)
  movq   $0x0,0xd8(%rsp)
  movsd  %xmm0,0xa8(%rsp)
  test   %ecx,%ecx
  jle    L7
  movslq %ecx,%rcx
  mov    %edi,%ebx
  lea    0x20(%rsp),%r15
  xor    %ebp,%ebp
  lea    0x0(,%rcx,8),%rax
  lea    0x50(%rsp),%r14
  mov    %rax,0x10(%rsp)
  lea    0xb0(%rsp),%rax
  lea    0x80(%rsp),%r13
  mov    %rax,0x18(%rsp)
  nopl   0x0(%rax,%rax,1)
L10:
  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    0x10(%rsp),%rbp
  jne    L10
L7:
  mov    0xe8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L27
  add    $0xf8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L27:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: data_label: D31
data_type: f64
name: parse_data
arguments: data_label: D107
data_type: string
name: parse_data
arguments: data_label: D162
data_type: string
name: parse_data
arguments: data_label: D60
data_type: string
name: parse_data
arguments: data_label: D39
data_type: string
name: parse_data
arguments: data_label: D28
data_type: string
name: parse_data
arguments: data_label: D42
data_type: string
name: parse_data
arguments: data_label: D94
data_type: string
name: parse_data
arguments: data_label: D158
data_type: string
name: parse_data
arguments: data_label: D34
data_type: string
name: parse_data
arguments: data_label: D36
data_type: string
name: parse_data
arguments: data_label: D154
data_type: string
name: parse_data
arguments: data_label: D73
data_type: f64
name: parse_data
arguments: data_label: D127
data_type: f64
name: parse_data
arguments: data_label: D32
data_type: f64
name: parse_data
arguments: data_label: D18
data_type: f64
name: parse_data
arguments: data_label: D29
data_type: f32[2]

tool: D31: 0.1

tool: D107: hours

tool: D162: sst

tool: D60: wind

tool: D39: vapor

tool: D28: cloud

tool: D42: rain

tool: D94: h

tool: D158: deg Celcius

tool: D34: m/s

tool: D36: mm

tool: D154: mm/h

tool: D73: 0.15

tool: D127: 0.2

tool: D32: 0.3

tool: D18: 0.01

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

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]);
  }
}
```