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

```asm
<double_exp_matrix>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  mov    %ecx,%r12d
  push   %rbp
  push   %rbx
  mov    %esi,%ebx
  sub    $0xcc8,%rsp
  mov    %edi,0x8(%rsp)
  mov    %esi,0xc(%rsp)
  mov    %r8,(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0xcb8(%rsp)
  xor    %eax,%eax
  test   %ecx,%ecx
  je     L133
  mov    %rdx,%rbp
  test   %edi,%edi
  je     L340
  test   %ebx,%ebx
  je     L340
  lea    -0x1(%rdi),%ecx
  mov    %ebx,%r9d
  mov    %ebx,%edi
  mov    %r8,%rax
  lea    (%rcx,%rcx,4),%rcx
  and    $0xfffffffe,%r9d
  shr    %edi
  lea    -0x1(%rbx),%r10d
  shl    $0x5,%rcx
  lea    0xa0(%r8,%rcx,1),%r11
  mov    %r9d,%ecx
  mov    %ebx,%r8d
L308:
  lea    0x8(%rdx),%rsi
  cmp    %rsi,%rax
  je     L41
  cmp    $0x2,%r10d
  jbe    L41
  movupd (%rdx),%xmm2
  movups %xmm2,(%rax)
  cmp    $0x1,%edi
  jbe    L260
  movupd 0x10(%rdx),%xmm3
  movups %xmm3,0x10(%rax)
  cmp    $0x2,%edi
  je     L260
  movupd 0x20(%rdx),%xmm4
  movups %xmm4,0x20(%rax)
  cmp    $0x3,%edi
  je     L260
  movupd 0x30(%rdx),%xmm5
  movups %xmm5,0x30(%rax)
  cmp    $0x4,%edi
  je     L260
  movupd 0x40(%rdx),%xmm6
  movups %xmm6,0x40(%rax)
  cmp    $0x5,%edi
  je     L260
  movupd 0x50(%rdx),%xmm7
  movups %xmm7,0x50(%rax)
  cmp    $0x6,%edi
  je     L260
  movupd 0x60(%rdx),%xmm2
  movups %xmm2,0x60(%rax)
  cmp    $0x7,%edi
  je     L260
  movupd 0x70(%rdx),%xmm3
  movups %xmm3,0x70(%rax)
  cmp    $0x8,%edi
  je     L260
  movupd 0x80(%rdx),%xmm4
  movups %xmm4,0x80(%rax)
  cmp    $0x9,%edi
  je     L260
  movupd 0x90(%rdx),%xmm5
  movups %xmm5,0x90(%rax)
  cmp    $0xa,%edi
  je     L260
  mov    $0xa0,%esi
  mov    $0xa,%ebx
L90:
  movupd (%rdx,%rsi,1),%xmm6
  add    $0x1,%ebx
  movups %xmm6,(%rax,%rsi,1)
  add    $0x10,%rsi
  cmp    %ebx,%edi
  jne    L90
L260:
  cmp    %r9d,0xc(%rsp)
  je     L36
  movsd  (%rdx,%rcx,8),%xmm0
  movsd  %xmm0,(%rax,%rcx,8)
L36:
  add    $0xa0,%rax
  add    $0xa0,%rdx
  cmp    %r11,%rax
  jne    L308
L340:
  cmp    $0x1,%r12d
  je     L2
  lea    0x30(%rsp),%rax
  mov    (%rsp),%rdi
  mov    %r12d,0x2c(%rsp)
  mov    %rax,0x10(%rsp)
  mov    0x8(%rsp),%eax
  movl   $0x1,0x28(%rsp)
  lea    -0x1(%rax),%edx
  mov    0xc(%rsp),%eax
  lea    (%rdx,%rdx,4),%rcx
  lea    0x5(%rdx,%rdx,4),%rdx
  sub    $0x1,%eax
  shl    $0x5,%rcx
  lea    0xa0(%rdi,%rcx,1),%r14
  lea    0x0(,%rdx,4),%rdi
  lea    (%rax,%rax,4),%rdx
  mov    %rdi,0x20(%rsp)
  lea    0x8(%rbp,%rax,8),%r13
  shl    $0x5,%rdx
  lea    0xd0(%rsp,%rcx,1),%r15
  lea    0x8(,%rax,8),%rbx
  mov    %r13,%r12
  lea    0xa0(%rbp,%rdx,1),%rdi
  mov    %rdi,0x18(%rsp)
L43:
  mov    0x8(%rsp),%edx
  test   %edx,%edx
  je     L255
  mov    0xc(%rsp),%eax
  mov    (%rsp),%r13
  mov    0x10(%rsp),%rcx
  test   %eax,%eax
  je     L255
L228:
  mov    %r13,%rsi
  mov    %rcx,%rdi
  mov    %rbx,%rdx
  add    $0xa0,%r13
  call   <memcpy@plt>
  mov    %rax,%rcx
  add    $0xa0,%rcx
  cmp    %r15,%rcx
  jne    L228
  mov    (%rsp),%rcx
  nopl   0x0(%rax,%rax,1)
L134:
  mov    %rcx,%rdi
  mov    %rbx,%rdx
  xor    %esi,%esi
  call   <memset@plt>
  mov    %rax,%rcx
  add    $0xa0,%rcx
  cmp    %r14,%rcx
  jne    L134
  mov    (%rsp),%r11
  mov    0x10(%rsp),%r9
  xor    %r10d,%r10d
  mov    0x18(%rsp),%r8
  mov    0x20(%rsp),%r13
  nopw   0x0(%rax,%rax,1)
L160:
  mov    %r8,%rsi
  mov    %rbp,%rdi
  mov    %r11,%rcx
  nopl   0x0(%rax)
L187:
  movsd  (%rcx),%xmm1
  mov    %rdi,%rax
  mov    %r9,%rdx
  nopw   0x0(%rax,%rax,1)
L352:
  movsd  (%rdx),%xmm0
  mulsd  (%rax),%xmm0
  add    $0xa0,%rax
  add    $0x8,%rdx
  addsd  %xmm0,%xmm1
  movsd  %xmm1,(%rcx)
  cmp    %rsi,%rax
  jne    L352
  add    $0x8,%rdi
  add    $0x8,%rcx
  lea    0x8(%rax),%rsi
  cmp    %r12,%rdi
  jne    L187
  add    $0x14,%r10
  add    $0xa0,%r9
  add    $0xa0,%r11
  cmp    %r13,%r10
  jne    L160
L255:
  addl   $0x1,0x28(%rsp)
  mov    0x28(%rsp),%eax
  cmp    %eax,0x2c(%rsp)
  ja     L43
L2:
  mov    0xcb8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L264
  add    $0xcc8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L41:
  xor    %esi,%esi
L79:
  movsd  (%rdx,%rsi,8),%xmm0
  movsd  %xmm0,(%rax,%rsi,8)
  add    $0x1,%rsi
  cmp    %r8,%rsi
  jne    L79
  jmp    L36
L133:
  mov    0x8(%rsp),%ecx
  test   %ecx,%ecx
  je     L2
  test   %ebx,%ebx
  je     L2
  movsd  D6(%rip),%xmm0
  mov    %r8,%rdx
  mov    %ebx,%ecx
L61:
  xor    %eax,%eax
L181:
  cmp    %eax,%r12d
  je     L369
  movq   $0x0,(%rdx,%rax,8)
  add    $0x1,%rax
  cmp    %rax,%rcx
  jne    L181
L267:
  add    $0x1,%r12d
  add    $0xa0,%rdx
  cmp    %r12d,0x8(%rsp)
  jne    L61
  jmp    L2
  nopl   (%rax)
L369:
  movsd  %xmm0,(%rdx,%rax,8)
  add    $0x1,%rax
  cmp    %rax,%rcx
  jne    L181
  jmp    L267
L264:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: disassemble_data
arguments: tag: D6
type_infered: f64

tool: D6: 1

assistant: ```c
void double_exp_matrix(unsigned int lines, unsigned int columns, double m1[20][20], unsigned int expNumber, double result[20][20]) {
  unsigned int i, j, k, l;
  double m2[20][20];
  if (expNumber == 0) {
    for (i = 0; i < lines; i++) {
      for (j = 0; j < columns; j++) {
        if (i == j) {
          result[i][j] = 1.0;
        } else {
          result[i][j] = 0.0;
        }
      }
    }
    return;
  }
  for (i = 0; i < lines; i++)
    for (j = 0; j < columns; j++)
      result[i][j] = m1[i][j];
  if (expNumber == 1) {
    return;
  }
  for (l = 1; l < expNumber; l++) {
    for (i = 0; i < lines; i++)
      for (j = 0; j < columns; j++)
        m2[i][j] = result[i][j];
    for (i = 0; i < lines; i++)
      for (j = 0; j < columns; j++)
        result[i][j] = 0;
    for (i = 0; i < lines; i++) {
      for (j = 0; j < columns; j++) {
        for (k = 0; k < columns; k++) {
          result[i][j] = result[i][j] + (m2[i][k] * m1[k][j]);
        }
      }
    }
  }
}
```