user: Please show me the C implementation that matches the assembly code listed below:

```asm
<init_amsr_day>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xd8,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0xc8(%rsp)
  xor    %eax,%eax
  lea    D115(%rip),%rax
  mov    %rax,(%rsp)
  lea    D6(%rip),%rax
  mov    %rax,0x8(%rsp)
  lea    D57(%rip),%rax
  mov    %rax,0x10(%rsp)
  lea    D19(%rip),%rax
  mov    %rax,0x18(%rsp)
  lea    D25(%rip),%rax
  mov    %rax,0x20(%rsp)
  lea    D156(%rip),%rax
  mov    %rax,0x28(%rsp)
  lea    D58(%rip),%rax
  mov    %rax,0x30(%rsp)
  lea    D18(%rip),%rax
  mov    %rax,0x38(%rsp)
  lea    D111(%rip),%rax
  mov    %rax,0x40(%rsp)
  lea    D22(%rip),%rax
  mov    %rax,0x48(%rsp)
  mov    %rax,0x50(%rsp)
  lea    D167(%rip),%rax
  mov    %rax,0x58(%rsp)
  movsd  D44(%rip),%xmm0
  movsd  %xmm0,0x60(%rsp)
  mov    D72(%rip),%rax
  mov    %rax,0x68(%rsp)
  mov    D165(%rip),%rax
  mov    %rax,0x70(%rsp)
  mov    D130(%rip),%rax
  mov    %rax,0x78(%rsp)
  mov    D26(%rip),%rax
  mov    %rax,0x80(%rsp)
  movsd  %xmm0,0x88(%rsp)
  movq   $0x0,0x90(%rsp)
  mov    D12(%rip),%rax
  mov    %rax,0x98(%rsp)
  movq   $0x0,0xa0(%rsp)
  movq   $0x0,0xa8(%rsp)
  movq   $0x0,0xb0(%rsp)
  movq   $0x0,0xb8(%rsp)
  test   %ecx,%ecx
  jle    L17
  mov    %edi,%ebp
  mov    %esi,%r14d
  mov    %edx,%r15d
  mov    %ecx,%ecx
  lea    0x0(,%rcx,8),%r13
  mov    $0x0,%r12d
L25:
  mov    $0x1,%ecx
  mov    %r15d,%edx
  mov    %r14d,%esi
  mov    %ebp,%edi
  call   <vlistDefVar@plt>
  mov    %eax,%ebx
  mov    (%rsp,%r12,1),%rdx
  mov    %eax,%esi
  mov    %ebp,%edi
  call   <vlistDefVarName@plt>
  mov    0x30(%rsp,%r12,1),%rdx
  mov    %ebx,%esi
  mov    %ebp,%edi
  call   <vlistDefVarUnits@plt>
  mov    $0xd8,%edx
  mov    %ebx,%esi
  mov    %ebp,%edi
  call   <vlistDefVarDatatype@plt>
  mov    $0xfe,%edx
  mov    %ebx,%esi
  mov    %ebp,%edi
  call   <vlistDefVarMissval@plt>
  movsd  0x60(%rsp,%r12,1),%xmm0
  mov    %ebx,%esi
  mov    %ebp,%edi
  call   <vlistDefVarScalefactor@plt>
  movsd  0x90(%rsp,%r12,1),%xmm0
  mov    %ebx,%esi
  mov    %ebp,%edi
  call   <vlistDefVarAddoffset@plt>
  add    $0x8,%r12
  cmp    %r13,%r12
  jne    L25
L17:
  mov    0xc8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L22
  add    $0xd8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L22:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: disassemble_data
arguments: tag: D115
data_type: string
name: disassemble_data
arguments: tag: D6
data_type: string
name: disassemble_data
arguments: tag: D57
data_type: string
name: disassemble_data
arguments: tag: D19
data_type: string
name: disassemble_data
arguments: tag: D25
data_type: string
name: disassemble_data
arguments: tag: D156
data_type: string
name: disassemble_data
arguments: tag: D58
data_type: string
name: disassemble_data
arguments: tag: D18
data_type: string
name: disassemble_data
arguments: tag: D111
data_type: string
name: disassemble_data
arguments: tag: D22
data_type: string
name: disassemble_data
arguments: tag: D167
data_type: string
name: disassemble_data
arguments: tag: D44
data_type: f64
name: disassemble_data
arguments: tag: D72
data_type: f64
name: disassemble_data
arguments: tag: D165
data_type: f64
name: disassemble_data
arguments: tag: D130
data_type: f64
name: disassemble_data
arguments: tag: D26
data_type: f64
name: disassemble_data
arguments: tag: D12
data_type: f32[2]

tool: D115: hours

tool: D6: sst

tool: D57: wind

tool: D19: vapor

tool: D25: cloud

tool: D156: rain

tool: D58: h

tool: D18: deg Celcius

tool: D111: m/s

tool: D22: mm

tool: D167: mm/h

tool: D44: 0.1

tool: D72: 0.15

tool: D165: 0.2

tool: D130: 0.3

tool: D26: 0.01

tool: {"D12": [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]);
  }
}
```