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

```asm
<gauss_jordan>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  mov    %rdi,-0x28(%rbp)
  mov    %rsi,-0x30(%rbp)
  mov    %rdx,-0x38(%rbp)
  movl   $0x0,-0x14(%rbp)
  movl   $0x0,-0x10(%rbp)
  jmp    L0
L35:
  mov    -0x14(%rbp),%eax
  cltq
  imul   -0x38(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x10(%rbp),%eax
  cltq
  add    %rdx,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  ucomisd %xmm1,%xmm0
  jp     L27
  pxor   %xmm1,%xmm1
  ucomisd %xmm1,%xmm0
  je     L33
L27:
  mov    -0x38(%rbp),%rax
  sub    $0x1,%eax
  mov    %eax,-0xc(%rbp)
  jmp    L26
L14:
  mov    -0x14(%rbp),%eax
  cltq
  imul   -0x38(%rbp),%rax
  mov    %rax,%rdx
  mov    -0xc(%rbp),%eax
  cltq
  add    %rdx,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x14(%rbp),%eax
  cltq
  imul   -0x38(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x10(%rbp),%eax
  cltq
  add    %rdx,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x14(%rbp),%eax
  cltq
  imul   -0x38(%rbp),%rax
  mov    %rax,%rdx
  mov    -0xc(%rbp),%eax
  cltq
  add    %rdx,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  divsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  subl   $0x1,-0xc(%rbp)
L26:
  mov    -0x10(%rbp),%eax
  cmp    -0xc(%rbp),%eax
  jle    L14
  movl   $0x0,-0x8(%rbp)
  jmp    L85
L54:
  mov    -0x38(%rbp),%rax
  sub    $0x1,%eax
  mov    %eax,-0x4(%rbp)
  jmp    L81
L83:
  mov    -0x8(%rbp),%eax
  cltq
  imul   -0x38(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x4(%rbp),%eax
  cltq
  add    %rdx,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x8(%rbp),%eax
  cltq
  imul   -0x38(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x10(%rbp),%eax
  cltq
  add    %rdx,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm2
  mov    -0x14(%rbp),%eax
  cltq
  imul   -0x38(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x4(%rbp),%eax
  cltq
  add    %rdx,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mulsd  %xmm2,%xmm1
  mov    -0x8(%rbp),%eax
  cltq
  imul   -0x38(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x4(%rbp),%eax
  cltq
  add    %rdx,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  subl   $0x1,-0x4(%rbp)
L81:
  mov    -0x10(%rbp),%eax
  cmp    -0x4(%rbp),%eax
  jle    L83
  addl   $0x1,-0x8(%rbp)
L85:
  mov    -0x8(%rbp),%eax
  cmp    -0x14(%rbp),%eax
  jl     L54
  addl   $0x1,-0x14(%rbp)
L33:
  addl   $0x1,-0x10(%rbp)
L0:
  mov    -0x10(%rbp),%eax
  cltq
  mov    -0x38(%rbp),%rdx
  sub    $0x1,%rdx
  cmp    %rdx,%rax
  jb     L35
  nop
  nop
  pop    %rbp
  ret
```

assistant: ```c
void gauss_jordan(double *a, const size_t rows, const size_t cols) {
  int row = 0;
  for (int col = 0; col < cols - 1; ++col) {
    if (a[row * cols + col] != 0) {
      for (int i = cols - 1; i > col - 1; --i) {
        a[row * cols + i] /= a[row * cols + col];
      }
      for (int i = 0; i < row; ++i) {
        for (int j = cols - 1; j > col - 1; --j) {
          a[i * cols + j] -= a[i * cols + col] * a[row * cols + j];
        }
      }
      row++;
    }
  }
}
```