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

```asm
<dgemm>:
  endbr64
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x10,%rsp
  mov    %rdx,%r10
  mov    %rcx,%rax
  mov    %r8,%rdx
  mov    %r9,%r14
  mov    0x40(%rsp),%r8
  mov    0x48(%rsp),%rcx
  mov    0x50(%rsp),%r12
  mov    0x58(%rsp),%rbx
  mov    0x60(%rsp),%r13
  mov    0x68(%rsp),%r9
  mov    0x70(%rsp),%rbp
  mov    %fs:0x28,%r11
  mov    %r11,0x8(%rsp)
  xor    %r11d,%r11d
  movl   $0x0,0x4(%rsp)
  mov    (%r10),%r10d
  test   %r10d,%r10d
  js     L203
  mov    (%rax),%r11d
  test   %r11d,%r11d
  js     L473
  mov    (%rdx),%eax
  test   %eax,%eax
  js     L581
  movzbl (%rdi),%edx
  and    $0xffffffdf,%edx
  cmp    $0x4e,%dl
  jne    L200
  movzbl (%rsi),%edx
  and    $0xffffffdf,%edx
  cmp    $0x4e,%dl
  jne    L470
  mov    (%rcx),%esi
  test   %r10d,%r10d
  mov    $0x1,%edx
  cmovg  %r10d,%edx
  cmp    %edx,%esi
  jl     L538
  mov    (%rbx),%edi
  test   %eax,%eax
  mov    $0x1,%ecx
  cmovg  %eax,%ecx
  cmp    %ecx,%edi
  jl     L95
  mov    0x0(%rbp),%ecx
  cmp    %ecx,%edx
  jg     L606
  movsd  (%r14),%xmm0
  ucomisd D21(%rip),%xmm0
  jp     L335
  jne    L335
  sub    $0x8,%rsp
  push   %rcx
  push   %rsi
  push   %rdi
  movsd  0x0(%r13),%xmm0
  mov    %r12,%rcx
  mov    %r10d,%edx
  mov    %eax,%esi
  mov    %r11d,%edi
  mov    $0x1,%eax
  call   <mm_double_NN_1@plt>
  add    $0x20,%rsp
  jmp    L180
L203:
  movl   $0x3,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
L180:
  mov    0x8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L557
  add    $0x10,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
L473:
  movl   $0x4,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L581:
  movl   $0x5,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L538:
  movl   $0x8,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L95:
  movl   $0xa,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L606:
  movl   $0xd,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L335:
  sub    $0x8,%rsp
  push   %rcx
  push   %rsi
  push   %rdi
  movsd  0x0(%r13),%xmm1
  mov    %r12,%rcx
  mov    %r10d,%edx
  mov    %eax,%esi
  mov    %r11d,%edi
  mov    $0x2,%eax
  call   <mm_double_NN_c@plt>
  add    $0x20,%rsp
  jmp    L180
L470:
  cmp    $0x43,%dl
  je     L111
  cmp    $0x54,%dl
  jne    L107
L111:
  mov    (%rcx),%esi
  test   %r10d,%r10d
  mov    $0x1,%edx
  cmovg  %r10d,%edx
  cmp    %edx,%esi
  jl     L93
  mov    (%rbx),%edi
  test   %r11d,%r11d
  mov    $0x1,%ecx
  cmovg  %r11d,%ecx
  cmp    %ecx,%edi
  jl     L300
  mov    0x0(%rbp),%ecx
  cmp    %ecx,%edx
  jg     L418
  movsd  (%r14),%xmm0
  ucomisd D21(%rip),%xmm0
  jp     L458
  jne    L458
  sub    $0x8,%rsp
  push   %rcx
  push   %rsi
  push   %rdi
  movsd  0x0(%r13),%xmm0
  mov    %r12,%rcx
  mov    %r10d,%edx
  mov    %eax,%esi
  mov    %r11d,%edi
  mov    $0x1,%eax
  call   <mm_double_TN_1@plt>
  add    $0x20,%rsp
  jmp    L180
L107:
  movl   $0x2,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L93:
  movl   $0x8,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L300:
  movl   $0xa,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L418:
  movl   $0xd,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L458:
  sub    $0x8,%rsp
  push   %rcx
  push   %rsi
  push   %rdi
  movsd  0x0(%r13),%xmm1
  mov    %r12,%rcx
  mov    %r10d,%edx
  mov    %eax,%esi
  mov    %r11d,%edi
  mov    $0x2,%eax
  call   <mm_double_TN_c@plt>
  add    $0x20,%rsp
  jmp    L180
L200:
  movzbl (%rsi),%esi
  and    $0xffffffdf,%esi
  cmp    $0x4e,%sil
  jne    L33
  cmp    $0x43,%dl
  je     L81
  cmp    $0x54,%dl
  jne    L165
L81:
  mov    (%rcx),%ecx
  test   %eax,%eax
  mov    $0x1,%edx
  cmovg  %eax,%edx
  cmp    %edx,%ecx
  jl     L217
  mov    (%rbx),%esi
  cmp    %esi,%edx
  jg     L267
  mov    0x0(%rbp),%edi
  test   %r10d,%r10d
  mov    $0x1,%edx
  cmovg  %r10d,%edx
  cmp    %edx,%edi
  jl     L124
  movsd  (%r14),%xmm0
  ucomisd D21(%rip),%xmm0
  jp     L528
  jne    L528
  sub    $0x8,%rsp
  push   %rdi
  push   %rcx
  push   %rsi
  movsd  0x0(%r13),%xmm0
  mov    %r12,%rcx
  mov    %r10d,%edx
  mov    %eax,%esi
  mov    %r11d,%edi
  mov    $0x1,%eax
  call   <mm_double_NT_1@plt>
  add    $0x20,%rsp
  jmp    L180
L165:
  movl   $0x1,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L217:
  movl   $0x8,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L267:
  movl   $0xa,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L124:
  movl   $0xd,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L528:
  sub    $0x8,%rsp
  push   %rdi
  push   %rcx
  push   %rsi
  movsd  0x0(%r13),%xmm1
  mov    %r12,%rcx
  mov    %r10d,%edx
  mov    %eax,%esi
  mov    %r11d,%edi
  mov    $0x2,%eax
  call   <mm_double_NT_c@plt>
  add    $0x20,%rsp
  jmp    L180
L33:
  cmp    $0x43,%dl
  je     L466
  cmp    $0x54,%dl
  jne    L462
L466:
  cmp    $0x43,%sil
  je     L270
  cmp    $0x54,%sil
  jne    L371
L270:
  mov    (%rcx),%ecx
  test   %eax,%eax
  mov    $0x1,%edx
  cmovg  %eax,%edx
  cmp    %edx,%ecx
  jl     L446
  mov    (%rbx),%esi
  test   %r11d,%r11d
  mov    $0x1,%edx
  cmovg  %r11d,%edx
  cmp    %edx,%esi
  jl     L434
  mov    0x0(%rbp),%edi
  test   %r10d,%r10d
  mov    $0x1,%edx
  cmovg  %r10d,%edx
  cmp    %edx,%edi
  jl     L566
  movsd  (%r14),%xmm0
  ucomisd D21(%rip),%xmm0
  jp     L433
  jne    L433
  sub    $0x8,%rsp
  push   %rdi
  push   %rcx
  push   %rsi
  movsd  0x0(%r13),%xmm0
  mov    %r12,%rcx
  mov    %r10d,%edx
  mov    %eax,%esi
  mov    %r11d,%edi
  mov    $0x1,%eax
  call   <mm_double_TT_1@plt>
  add    $0x20,%rsp
  jmp    L180
L462:
  movl   $0x1,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L371:
  movl   $0x2,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L446:
  movl   $0x8,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L434:
  movl   $0xa,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L566:
  movl   $0xd,0x4(%rsp)
  lea    0x4(%rsp),%rsi
  lea    D171(%rip),%rdi
  mov    $0x0,%eax
  call   <xerbla@plt>
  jmp    L180
L433:
  sub    $0x8,%rsp
  push   %rdi
  push   %rcx
  push   %rsi
  movsd  0x0(%r13),%xmm1
  mov    %r12,%rcx
  mov    %r10d,%edx
  mov    %eax,%esi
  mov    %r11d,%edi
  mov    $0x2,%eax
  call   <mm_double_TT_c@plt>
  add    $0x20,%rsp
  jmp    L180
L557:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: data_label: D21
data_type: byte[8]
name: parse_data
arguments: data_label: D171
data_type: string

tool: {"D21": [0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x3f]}

tool: D171: DGEMM 

assistant: ```c
void dgemm(char *transA, char *transB, int *M, int *N, int *K, double *alpha, double *A, int *Astride, double *B, int *Bstride, double *beta, double *C, int *Cstride) {
  int info = 0;
  if (*M < 0) {
    info = 3;
    xerbla("DGEMM ", &info);
    return;
  } else if (*N < 0) {
    info = 4;
    xerbla("DGEMM ", &info);
    return;
  } else if (*K < 0) {
    info = 5;
    xerbla("DGEMM ", &info);
    return;
  }
  if (*transA == 'n' || *transA == 'N') {
    if (*transB == 'n' || *transB == 'N') {
      if (*Astride < (((1) > (*M)) ? (1) : (*M))) {
        info = 8;
        xerbla("DGEMM ", &info);
      } else if (*Bstride < (((1) > (*K)) ? (1) : (*K))) {
        info = 10;
        xerbla("DGEMM ", &info);
      } else if (*Cstride < (((1) > (*M)) ? (1) : (*M))) {
        info = 13;
        xerbla("DGEMM ", &info);
      } else if (*alpha == 1) {
        mm_double_NN_1(*N, *K, *M, B, A, C, *Bstride, *Astride, *Cstride, *beta);
      } else {
        mm_double_NN_c(*N, *K, *M, B, A, C, *Bstride, *Astride, *Cstride, *alpha, *beta);
      }
    } else {
      if (*transB != 'c' && *transB != 'C' && *transB != 't' && *transB != 'T') {
        info = 2;
        xerbla("DGEMM ", &info);
      } else if (*Astride < (((1) > (*M)) ? (1) : (*M))) {
        info = 8;
        xerbla("DGEMM ", &info);
      } else if (*Bstride < (((1) > (*N)) ? (1) : (*N))) {
        info = 10;
        xerbla("DGEMM ", &info);
      } else if (*Cstride < (((1) > (*M)) ? (1) : (*M))) {
        info = 13;
        xerbla("DGEMM ", &info);
      } else if (*alpha == 1) {
        mm_double_TN_1(*N, *K, *M, B, A, C, *Bstride, *Astride, *Cstride, *beta);
      } else {
        mm_double_TN_c(*N, *K, *M, B, A, C, *Bstride, *Astride, *Cstride, *alpha, *beta);
      }
    }
  } else {
    if (*transB == 'n' || *transB == 'N') {
      if (*transA != 'c' && *transA != 'C' && *transA != 't' && *transA != 'T') {
        info = 1;
        xerbla("DGEMM ", &info);
      } else if (*Astride < (((1) > (*K)) ? (1) : (*K))) {
        info = 8;
        xerbla("DGEMM ", &info);
      } else if (*Bstride < (((1) > (*K)) ? (1) : (*K))) {
        info = 10;
        xerbla("DGEMM ", &info);
      } else if (*Cstride < (((1) > (*M)) ? (1) : (*M))) {
        info = 13;
        xerbla("DGEMM ", &info);
      } else if (*alpha == 1) {
        mm_double_NT_1(*N, *K, *M, B, A, C, *Bstride, *Astride, *Cstride, *beta);
      } else {
        mm_double_NT_c(*N, *K, *M, B, A, C, *Bstride, *Astride, *Cstride, *alpha, *beta);
      }
    } else {
      if (*transA != 'c' && *transA != 'C' && *transA != 't' && *transA != 'T') {
        info = 1;
        xerbla("DGEMM ", &info);
      } else if (*transB != 'c' && *transB != 'C' && *transB != 't' && *transB != 'T') {
        info = 2;
        xerbla("DGEMM ", &info);
      } else if (*Astride < (((1) > (*K)) ? (1) : (*K))) {
        info = 8;
        xerbla("DGEMM ", &info);
      } else if (*Bstride < (((1) > (*N)) ? (1) : (*N))) {
        info = 10;
        xerbla("DGEMM ", &info);
      } else if (*Cstride < (((1) > (*M)) ? (1) : (*M))) {
        info = 13;
        xerbla("DGEMM ", &info);
      } else if (*alpha == 1) {
        mm_double_TT_1(*N, *K, *M, B, A, C, *Bstride, *Astride, *Cstride, *beta);
      } else {
        mm_double_TT_c(*N, *K, *M, B, A, C, *Bstride, *Astride, *Cstride, *alpha, *beta);
      }
    }
  }
}
```