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

```asm
<qrfac>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xb8,%rsp
  mov    %edi,0xc(%rsp)
  mov    0xf8(%rsp),%r12
  mov    %esi,0x78(%rsp)
  mov    0x100(%rsp),%rbp
  mov    %rdx,0x18(%rsp)
  mov    %ecx,0x28(%rsp)
  mov    %r8d,0x8(%rsp)
  mov    %r9,0x58(%rsp)
  test   %esi,%esi
  jle    L157
  mov    0x78(%rsp),%eax
  mov    0x18(%rsp),%r14
  mov    $0x1,%r13d
  movslq 0x28(%rsp),%rbx
  lea    0x1(%rax),%r15d
  mov    %r14,%rax
  mov    %r13,%r14
  mov    %r15,0x10(%rsp)
  mov    0xc(%rsp),%r15d
  shl    $0x3,%rbx
  mov    %rax,%r13
  nopl   0x0(%rax,%rax,1)
L260:
  mov    %r13,%rsi
  mov    %r15d,%edi
  call   <enorm@plt>
  mov    0x108(%rsp),%rax
  mov    0x8(%rsp),%r8d
  movsd  %xmm0,-0x8(%rbp,%r14,8)
  movsd  %xmm0,-0x8(%r12,%r14,8)
  movsd  %xmm0,-0x8(%rax,%r14,8)
  test   %r8d,%r8d
  je     L16
  mov    0x58(%rsp),%rax
  mov    %r14d,-0x4(%rax,%r14,4)
L16:
  add    $0x1,%r14
  add    %rbx,%r13
  cmp    0x10(%rsp),%r14
  jne    L260
L157:
  movslq 0x78(%rsp),%rcx
  movslq 0xc(%rsp),%rax
  cmp    %eax,%ecx
  cmovle %rcx,%rax
  test   %eax,%eax
  jle    L40
  mov    0xc(%rsp),%ecx
  movslq 0x28(%rsp),%rdi
  xor    %r13d,%r13d
  xor    %r14d,%r14d
  mov    %rax,0x50(%rsp)
  xor    %ebp,%ebp
  xor    %r15d,%r15d
  sub    $0x1,%ecx
  lea    0x1(%rdi),%rbx
  mov    %rdi,0x40(%rsp)
  mov    %ecx,0x7c(%rsp)
  mov    %ecx,0x2c(%rsp)
  lea    0x1(%rdi),%ecx
  mov    %ecx,0x3c(%rsp)
  mov    %ecx,0x38(%rsp)
  mov    %r13,%rcx
  mov    0x18(%rsp),%r13
  mov    %rbx,0x48(%rsp)
  movq   $0x1,0x30(%rsp)
  jmp    L128
  nopl   (%rax)
L22:
  lea    0x0(%r13,%r14,8),%r8
  mov    0xc(%rsp),%edi
  sub    0x10(%rsp),%edi
  mov    %rcx,0x20(%rsp)
  mov    %r8,%rsi
  mov    %r8,0x18(%rsp)
  call   <enorm@plt>
  pxor   %xmm3,%xmm3
  mov    0x18(%rsp),%r8
  mov    0x20(%rsp),%rcx
  ucomisd %xmm3,%xmm0
  movapd %xmm0,%xmm1
  jp     L231
  jne    L231
  mov    0x28(%rsp),%eax
  movapd %xmm0,%xmm4
  xorpd  D28(%rip),%xmm4
  add    %eax,%ebp
L96:
  mov    0x3c(%rsp),%ebx
  movsd  %xmm4,(%r12,%r15,8)
  add    0x40(%rsp),%rcx
  add    $0x1,%r15
  addq   $0x1,0x30(%rsp)
  add    0x48(%rsp),%r14
  subl   $0x1,0x2c(%rsp)
  add    %ebx,0x38(%rsp)
  cmp    0x50(%rsp),%r15
  je     L40
L128:
  mov    0x8(%rsp),%edi
  mov    %r15d,0x10(%rsp)
  mov    %r15d,%edx
  test   %edi,%edi
  je     L22
  mov    0x78(%rsp),%r8d
  mov    %r15d,%edi
  cmp    %r15d,%r8d
  jle    L22
  mov    %r15,%rax
  nopl   (%rax)
L264:
  movslq %edx,%rsi
  movsd  (%r12,%rax,8),%xmm0
  ucomisd (%r12,%rsi,8),%xmm0
  cmova  %eax,%edx
  add    $0x1,%rax
  cmp    %eax,%r8d
  jg     L264
  cmp    %edi,%edx
  je     L22
  mov    0xc(%rsp),%esi
  test   %esi,%esi
  jle    L78
  mov    0x28(%rsp),%esi
  mov    0x7c(%rsp),%edi
  lea    0x0(%r13,%rcx,8),%rax
  imul   %edx,%esi
  add    %rcx,%rdi
  lea    0x8(%r13,%rdi,8),%rdi
  movslq %esi,%rsi
  sub    %rcx,%rsi
  nopl   0x0(%rax)
L343:
  movsd  (%rax),%xmm0
  movsd  (%rax,%rsi,8),%xmm1
  movsd  %xmm1,(%rax)
  movsd  %xmm0,(%rax,%rsi,8)
  add    $0x8,%rax
  cmp    %rdi,%rax
  jne    L343
L78:
  movsd  (%r12,%r15,8),%xmm0
  mov    0x108(%rsp),%rax
  movslq %edx,%rdx
  mov    0x58(%rsp),%rbx
  movsd  %xmm0,(%r12,%rdx,8)
  movsd  (%rax,%r15,8),%xmm0
  mov    (%rbx,%r15,4),%esi
  movsd  %xmm0,(%rax,%rdx,8)
  lea    (%rbx,%rdx,4),%rax
  mov    (%rax),%edx
  mov    %edx,(%rbx,%r15,4)
  mov    %esi,(%rax)
  jmp    L22
  nopw   0x0(%rax,%rax,1)
L231:
  movsd  0x0(%r13,%r14,8),%xmm0
  movapd %xmm1,%xmm4
  xorpd  D28(%rip),%xmm4
  comisd %xmm0,%xmm3
  jbe    L224
  movq   %xmm1,%rax
  movapd %xmm4,%xmm1
  movq   %rax,%xmm4
L224:
  mov    %r15d,0x18(%rsp)
  cmp    %r15d,0xc(%rsp)
  jle    L143
  mov    0x2c(%rsp),%eax
  add    %r14,%rax
  lea    0x8(%r13,%rax,8),%rdx
  mov    %r8,%rax
  jmp    L103
  nopl   0x0(%rax)
L104:
  movsd  (%rax),%xmm0
L103:
  divsd  %xmm1,%xmm0
  add    $0x8,%rax
  movsd  %xmm0,-0x8(%rax)
  cmp    %rax,%rdx
  jne    L104
  movsd  0x0(%r13,%r14,8),%xmm0
L143:
  addsd  D29(%rip),%xmm0
  mov    0x28(%rsp),%eax
  mov    0x30(%rsp),%ebx
  add    %eax,%ebp
  movsd  %xmm0,0x0(%r13,%r14,8)
  cmp    %ebx,0x78(%rsp)
  jle    L96
  mov    0x30(%rsp),%rax
  mov    0x38(%rsp),%edi
  lea    0x8(%r13),%rbx
  mov    %r15,%r10
  mov    %r12,0xf8(%rsp)
  lea    0x0(,%rax,8),%r11
  mov    0x78(%rsp),%eax
  mov    %rbx,0x60(%rsp)
  lea    (%r12,%r11,1),%r9
  mov    %ebp,0xa8(%rsp)
  add    0x108(%rsp),%r11
  sub    $0x2,%eax
  sub    0x10(%rsp),%eax
  add    %r15,%rax
  lea    0x10(%r12,%rax,8),%rax
  mov    %ebp,%r12d
  mov    %r9,%rbp
  mov    0x28(%rsp),%r9d
  mov    %rax,0x20(%rsp)
  mov    0x2c(%rsp),%eax
  lea    (%rax,%r14,1),%rdx
  add    %r15,%rax
  mov    %edi,%r15d
  mov    %rax,0x70(%rsp)
  mov    %r13,%rax
  lea    (%rbx,%rdx,8),%rbx
  mov    %r11,%r13
  mov    %r14,%r11
  mov    %rax,%r14
  cs nopw 0x0(%rax,%rax,1)
L204:
  movslq %r12d,%rdi
  mov    %r8,0x68(%rsp)
  mov    0x18(%rsp),%eax
  movapd %xmm3,%xmm1
  mov    %rdi,%rdx
  sub    %rcx,%rdx
  cmp    %eax,0xc(%rsp)
  jle    L82
  mov    %r8,%rax
  nop
L324:
  movsd  (%rax,%rdx,8),%xmm0
  mulsd  (%rax),%xmm0
  add    $0x8,%rax
  addsd  %xmm0,%xmm1
  cmp    %rax,%rbx
  jne    L324
  mov    0x70(%rsp),%rsi
  movsd  (%r14,%r11,8),%xmm0
  movapd %xmm1,%xmm2
  lea    (%rdi,%r10,1),%rax
  lea    (%r14,%rax,8),%rax
  lea    (%rsi,%rdi,1),%rdx
  mov    0x60(%rsp),%rsi
  divsd  %xmm0,%xmm2
  lea    (%rsi,%rdx,8),%rdx
  mov    %rcx,%rsi
  sub    %rdi,%rsi
  jmp    L9
  cs nopw 0x0(%rax,%rax,1)
L347:
  movsd  (%rax,%rsi,8),%xmm0
L9:
  mulsd  %xmm2,%xmm0
  movsd  (%rax),%xmm1
  add    $0x8,%rax
  subsd  %xmm0,%xmm1
  movsd  %xmm1,-0x8(%rax)
  cmp    %rdx,%rax
  jne    L347
L82:
  mov    0x8(%rsp),%eax
  test   %eax,%eax
  je     L0
  movsd  0x0(%rbp),%xmm1
  ucomisd %xmm3,%xmm1
  jp     L17
  je     L0
L17:
  mov    0x10(%rsp),%eax
  movsd  D29(%rip),%xmm2
  add    %r12d,%eax
  cltq
  movsd  (%r14,%rax,8),%xmm0
  divsd  %xmm1,%xmm0
  mulsd  %xmm0,%xmm0
  subsd  %xmm0,%xmm2
  comisd %xmm2,%xmm3
  jae    L67
  ucomisd %xmm2,%xmm3
  ja     L35
L320:
  sqrtsd %xmm2,%xmm2
L235:
  mulsd  %xmm2,%xmm1
  movsd  D35(%rip),%xmm5
  movsd  %xmm1,0x0(%rbp)
  divsd  0x0(%r13),%xmm1
  mulsd  %xmm1,%xmm1
  mulsd  D23(%rip),%xmm1
  comisd %xmm1,%xmm5
  jae    L118
  nopl   0x0(%rax,%rax,1)
L0:
  add    %r9d,%r15d
  add    $0x8,%rbp
  add    $0x8,%r13
  add    %r9d,%r12d
  cmp    0x20(%rsp),%rbp
  jne    L204
  mov    %r14,%r13
  mov    0xa8(%rsp),%ebp
  mov    %r10,%r15
  mov    %r11,%r14
  mov    0xf8(%rsp),%r12
  jmp    L96
  cs nopw 0x0(%rax,%rax,1)
L40:
  add    $0xb8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopw   0x0(%rax,%rax,1)
L67:
  movapd %xmm3,%xmm2
  jmp    L320
L118:
  movslq %r15d,%rax
  mov    0x2c(%rsp),%edi
  mov    %r9d,0xa0(%rsp)
  lea    (%r14,%rax,8),%rsi
  mov    %r8,0x98(%rsp)
  mov    %r11,0x90(%rsp)
  mov    %rcx,0x88(%rsp)
  mov    %r10,0x80(%rsp)
  movsd  %xmm4,0x68(%rsp)
  call   <enorm@plt>
  mov    0xa0(%rsp),%r9d
  mov    0x98(%rsp),%r8
  pxor   %xmm3,%xmm3
  movsd  %xmm0,0x0(%rbp)
  mov    0x90(%rsp),%r11
  mov    0x88(%rsp),%rcx
  mov    0x80(%rsp),%r10
  movsd  0x68(%rsp),%xmm4
  movsd  %xmm0,0x0(%r13)
  jmp    L0
L35:
  movapd %xmm2,%xmm0
  mov    %r9d,0xac(%rsp)
  mov    %r8,0xa0(%rsp)
  mov    %r11,0x98(%rsp)
  mov    %rcx,0x90(%rsp)
  mov    %r10,0x88(%rsp)
  movsd  %xmm4,0x80(%rsp)
  movsd  %xmm1,0x68(%rsp)
  call   <sqrt@plt>
  mov    0xac(%rsp),%r9d
  mov    0xa0(%rsp),%r8
  pxor   %xmm3,%xmm3
  mov    0x98(%rsp),%r11
  movsd  0x68(%rsp),%xmm1
  movapd %xmm0,%xmm2
  mov    0x90(%rsp),%rcx
  mov    0x88(%rsp),%r10
  movsd  0x80(%rsp),%xmm4
  jmp    L235
```

tool_calls: name: parse_data
arguments: label: D28
data_type: f32[4]
name: parse_data
arguments: label: D29
data_type: f64
name: parse_data
arguments: label: D35
data_type: f32[2]
name: parse_data
arguments: label: D23
data_type: byte[8]

tool: {"D28": [0.0,-0.0,0.0,0.0]}

tool: D29: 1

tool: {"D35": [0.0,0.021484375]}

tool: {"D23": [0x9a,0x99,0x99,0x99,0x99,0x99,0xa9,0x3f]}

assistant: ```c
void qrfac(int m, int n, double *a, int lda, int pivot, int *ipvt, int lipvt, double *rdiag, double *acnorm, double *wa) {
  double d1;
  int i, j, k, jp1;
  double sum;
  double temp;
  int minmn;
  double epsmch;
  double ajnorm;
  (void)lipvt;
  epsmch = 2.2204460492503131e-16;
  for (j = 0; j < n; ++j) {
    acnorm[j] = enorm(m, &a[j * lda + 0]);
    rdiag[j] = acnorm[j];
    wa[j] = rdiag[j];
    if (pivot) {
      ipvt[j] = j + 1;
    }
  }
  minmn = ((m) <= (n) ? (m) : (n));
  for (j = 0; j < minmn; ++j) {
    if (pivot) {
      int kmax = j;
      for (k = j; k < n; ++k) {
        if (rdiag[k] > rdiag[kmax]) {
          kmax = k;
        }
      }
      if (kmax != j) {
        for (i = 0; i < m; ++i) {
          temp = a[i + j * lda];
          a[i + j * lda] = a[i + kmax * lda];
          a[i + kmax * lda] = temp;
        }
        rdiag[kmax] = rdiag[j];
        wa[kmax] = wa[j];
        k = ipvt[j];
        ipvt[j] = ipvt[kmax];
        ipvt[kmax] = k;
      }
    }
    ajnorm = enorm(m - (j + 1) + 1, &a[j + j * lda]);
    if (ajnorm != 0.) {
      if (a[j + j * lda] < 0.) {
        ajnorm = -ajnorm;
      }
      for (i = j; i < m; ++i) {
        a[i + j * lda] /= ajnorm;
      }
      a[j + j * lda] += 1.;
      jp1 = j + 1;
      if (n > jp1) {
        for (k = jp1; k < n; ++k) {
          sum = 0.;
          for (i = j; i < m; ++i) {
            sum += a[i + j * lda] * a[i + k * lda];
          }
          temp = sum / a[j + j * lda];
          for (i = j; i < m; ++i) {
            a[i + k * lda] -= temp * a[i + j * lda];
          }
          if (pivot && rdiag[k] != 0.) {
            temp = a[j + k * lda] / rdiag[k];
            d1 = 1. - temp * temp;
            rdiag[k] *= sqrt(((((double)0.) >= (d1) ? ((double)0.) : (d1))));
            d1 = rdiag[k] / wa[k];
            if (.05 * (d1 * d1) <= epsmch) {
              rdiag[k] = enorm(m - (j + 1), &a[jp1 + k * lda]);
              wa[k] = rdiag[k];
            }
          }
        }
      }
    }
    rdiag[j] = -ajnorm;
  }
}
```