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

```asm
<dymosimmessagedoublesSev_>:
  endbr64
  push   %r15
  xor    %r15d,%r15d
  push   %r14
  lea    D49(%rip),%r14
  push   %r13
  mov    %rdx,%r13
  push   %r12
  push   %rbp
  push   %rbx
  xor    %ebx,%ebx
  sub    $0xe8,%rsp
  mov    %edi,0xc(%rsp)
  lea    0x10(%rsp),%rbp
  mov    %rsi,%rdi
  movslq %r8d,%rsi
  mov    %rcx,(%rsp)
  mov    %rbp,%rdx
  mov    $0xc8,%ecx
  mov    %fs:0x28,%rax
  mov    %rax,0xd8(%rsp)
  xor    %eax,%eax
  call   <CopyString@plt>
  mov    $0xc8,%ecx
  mov    $0x1,%esi
  lea    D26(%rip),%rdi
  movslq %eax,%rdx
  mov    %rdx,%r12
  sub    %edx,%ecx
  add    %rbp,%rdx
  call   <CopyString@plt>
  add    %eax,%r12d
  mov    (%rsp),%rax
  mov    (%rax),%eax
  test   %eax,%eax
  jle    L30
  nopl   0x0(%rax)
L20:
  movslq %r12d,%rdx
  lea    0x0(%rbp,%rdx,1),%rdi
  cmp    $0xb3,%r12d
  jg     L54
  movsd  0x0(%r13,%r15,8),%xmm0
  mov    %r14,%rsi
  add    $0x1,%ebx
  add    $0x1,%r15
  call   <sprintf@plt>
  add    %eax,%r12d
  mov    (%rsp),%rax
  cmp    %r15d,(%rax)
  jle    L30
  movslq %r12d,%rdx
  mov    $0xc8,%ecx
  mov    $0x1,%esi
  sub    %r12d,%ecx
  add    %rbp,%rdx
  lea    D40(%rip),%rdi
  call   <CopyString@plt>
  add    %eax,%r12d
  cmp    $0x5,%ebx
  jne    L20
  mov    0xc(%rsp),%edi
  mov    %rbp,%rsi
  xor    %ebx,%ebx
  call   <DymosimMessageSeverity@plt>
  mov    $0xc8,%ecx
  mov    %rbp,%rdx
  mov    $0x1,%esi
  lea    D2(%rip),%rdi
  call   <CopyString@plt>
  mov    %eax,%r12d
  jmp    L20
  nopl   (%rax)
L30:
  movslq %r12d,%rdx
L54:
  mov    $0xc8,%ecx
  add    %rbp,%rdx
  mov    $0x2,%esi
  sub    %r12d,%ecx
  lea    D1(%rip),%rdi
  call   <CopyString@plt>
  mov    0xc(%rsp),%edi
  mov    %rbp,%rsi
  call   <DymosimMessageSeverity@plt>
  mov    0xd8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L33
  add    $0xe8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L33:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: data_label: D49
type_guessed: string
name: unpack_data
arguments: data_label: D26
type_guessed: string
name: unpack_data
arguments: data_label: D40
type_guessed: string
name: unpack_data
arguments: data_label: D2
type_guessed: string
name: unpack_data
arguments: data_label: D1
type_guessed: string

tool: D49:  %G

tool: D26: {

tool: D40: ,

tool: D2:  

tool: D1:  }

assistant: ```c
void dymosimmessagedoublesSev_(int severity, const char message[], const double d[], const int *nd, int lstr) {
  char textline[200];
  int ic, i;
  int onLine = 0;
  ic = CopyString(message, lstr, textline, 200);
  ic = ic + CopyString("{", 1L, textline + ic, 200 - ic);
  for (i = 0; i < *nd; i++) {
    if (i > 0)
      ic = ic + CopyString(",", 1L, textline + ic, 200 - ic);
    if (onLine >= 5) {
      DymosimMessageSeverity(severity, textline);
      ic = 0;
      ic = ic + CopyString(" ", 1L, textline, 200);
      onLine = 0;
    }
    if (ic + 20 >= 200) {
      break;
    }
    ic = ic + sprintf(&textline[ic], " %G", d[i]);
    ++onLine;
  }
  ic = ic + CopyString(" }", 2L, textline + ic, 200 - ic);
  DymosimMessageSeverity(severity, textline);
}
```