user: 请将这段汇编代码片段转换成等效的C代码:

```asm
<xorgqr>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x70,%rsp
  mov    %edi,-0x44(%rbp)
  mov    %esi,-0x48(%rbp)
  mov    %rdx,-0x50(%rbp)
  mov    %ecx,-0x54(%rbp)
  mov    %r8,-0x60(%rbp)
  mov    %r9,-0x68(%rbp)
  mov    -0x44(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x18(%rbp)
  mov    -0x48(%rbp),%eax
  mov    %eax,-0x3c(%rbp)
  jmp    L65
L73:
  mov    -0x3c(%rbp),%eax
  imul   -0x54(%rbp),%eax
  mov    %eax,-0x30(%rbp)
  mov    -0x44(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0xc(%rbp)
  mov    -0xc(%rbp),%eax
  add    $0x1,%eax
  cltq
  shl    $0x3,%eax
  mov    %eax,%edx
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x50(%rbp),%rax
  add    %rcx,%rax
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <memset@plt>
  mov    -0x30(%rbp),%edx
  mov    -0x3c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  D8(%rip),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x3c(%rbp)
L65:
  mov    -0x3c(%rbp),%eax
  cmp    -0x18(%rbp),%eax
  jle    L73
  mov    -0x48(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x28(%rbp)
  mov    -0x48(%rbp),%eax
  mov    %eax,-0x38(%rbp)
  jmp    L84
L318:
  mov    -0x38(%rbp),%eax
  sub    $0x1,%eax
  imul   -0x54(%rbp),%eax
  mov    %eax,%edx
  mov    -0x38(%rbp),%eax
  add    %edx,%eax
  mov    %eax,-0x14(%rbp)
  mov    -0x38(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jge    L258
  mov    -0x14(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  D8(%rip),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x14(%rbp),%edx
  mov    -0x54(%rbp),%eax
  add    %edx,%eax
  mov    %eax,-0x10(%rbp)
  mov    -0x28(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x60(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  ucomisd %xmm1,%xmm0
  jp     L92
  pxor   %xmm1,%xmm1
  ucomisd %xmm1,%xmm0
  je     L107
L92:
  mov    -0x44(%rbp),%eax
  sub    -0x38(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x1c(%rbp)
  mov    -0x14(%rbp),%edx
  mov    -0x44(%rbp),%eax
  add    %edx,%eax
  sub    -0x38(%rbp),%eax
  mov    %eax,-0x3c(%rbp)
  jmp    L270
L34:
  subl   $0x1,-0x1c(%rbp)
  subl   $0x1,-0x3c(%rbp)
L270:
  cmpl   $0x0,-0x1c(%rbp)
  jle    L311
  mov    -0x3c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  ucomisd %xmm1,%xmm0
  jp     L311
  pxor   %xmm1,%xmm1
  ucomisd %xmm1,%xmm0
  je     L34
L311:
  mov    -0x44(%rbp),%eax
  sub    -0x38(%rbp),%eax
  mov    %eax,-0x20(%rbp)
  movb   $0x0,-0x3d(%rbp)
  jmp    L267
L23:
  mov    -0x20(%rbp),%eax
  sub    $0x1,%eax
  imul   -0x54(%rbp),%eax
  mov    %eax,%edx
  mov    -0x10(%rbp),%eax
  add    %edx,%eax
  mov    %eax,-0x3c(%rbp)
  mov    -0x3c(%rbp),%eax
  mov    %eax,-0x30(%rbp)
L205:
  movl   $0x0,-0x34(%rbp)
  mov    -0x3c(%rbp),%edx
  mov    -0x1c(%rbp),%eax
  add    %edx,%eax
  cmp    %eax,-0x30(%rbp)
  jge    L138
  mov    -0x30(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  ucomisd %xmm1,%xmm0
  jp     L330
  pxor   %xmm1,%xmm1
  ucomisd %xmm1,%xmm0
  je     L87
L330:
  movl   $0x1,-0x34(%rbp)
  jmp    L134
L87:
  addl   $0x1,-0x30(%rbp)
  jmp    L134
L138:
  subl   $0x1,-0x20(%rbp)
  movl   $0x2,-0x34(%rbp)
L134:
  cmpl   $0x0,-0x34(%rbp)
  je     L205
  cmpl   $0x1,-0x34(%rbp)
  jne    L267
  movb   $0x1,-0x3d(%rbp)
L267:
  cmpb   $0x0,-0x3d(%rbp)
  jne    L143
  cmpl   $0x0,-0x20(%rbp)
  jg     L23
  jmp    L143
L107:
  movl   $0x0,-0x1c(%rbp)
  movl   $0x0,-0x20(%rbp)
L143:
  cmpl   $0x0,-0x1c(%rbp)
  jle    L258
  cmpl   $0x0,-0x20(%rbp)
  je     L304
  mov    -0x20(%rbp),%eax
  cltq
  shl    $0x3,%eax
  mov    %eax,%edx
  mov    -0x68(%rbp),%rax
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <memset@plt>
  movl   $0x0,-0x3c(%rbp)
  mov    -0x20(%rbp),%eax
  sub    $0x1,%eax
  imul   -0x54(%rbp),%eax
  mov    %eax,%edx
  mov    -0x10(%rbp),%eax
  add    %edx,%eax
  mov    %eax,-0x18(%rbp)
  mov    -0x10(%rbp),%eax
  mov    %eax,-0x2c(%rbp)
  jmp    L80
L91:
  mov    -0x14(%rbp),%eax
  mov    %eax,-0x24(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  mov    -0x2c(%rbp),%edx
  mov    -0x1c(%rbp),%eax
  add    %edx,%eax
  sub    $0x1,%eax
  mov    %eax,-0xc(%rbp)
  mov    -0x2c(%rbp),%eax
  mov    %eax,-0x30(%rbp)
  jmp    L181
L283:
  mov    -0x30(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x24(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  -0x8(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  addl   $0x1,-0x24(%rbp)
  addl   $0x1,-0x30(%rbp)
L181:
  mov    -0x30(%rbp),%eax
  cmp    -0xc(%rbp),%eax
  jle    L283
  mov    -0x3c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x3c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  addsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x3c(%rbp)
  mov    -0x54(%rbp),%eax
  add    %eax,-0x2c(%rbp)
L80:
  cmpl   $0x0,-0x54(%rbp)
  jns    L203
  mov    -0x2c(%rbp),%eax
  cmp    -0x18(%rbp),%eax
  setge  %al
  jmp    L194
L203:
  mov    -0x2c(%rbp),%eax
  cmp    -0x18(%rbp),%eax
  setle  %al
L194:
  test   %al,%al
  jne    L91
L304:
  mov    -0x28(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x60(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D48(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movq   %xmm0,%rdi
  mov    -0x10(%rbp),%r9d
  mov    -0x50(%rbp),%r10
  mov    -0x68(%rbp),%rcx
  mov    -0x14(%rbp),%edx
  mov    -0x20(%rbp),%esi
  mov    -0x1c(%rbp),%eax
  sub    $0x8,%rsp
  mov    -0x54(%rbp),%r8d
  push   %r8
  mov    %r10,%r8
  movq   %rdi,%xmm0
  mov    %eax,%edi
  call   <xgerc@plt>
  add    $0x10,%rsp
L258:
  mov    -0x38(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jge    L199
  mov    -0x14(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x3c(%rbp)
  mov    -0x14(%rbp),%edx
  mov    -0x44(%rbp),%eax
  add    %edx,%eax
  sub    -0x38(%rbp),%eax
  mov    %eax,-0x18(%rbp)
  mov    -0x3c(%rbp),%eax
  mov    %eax,-0x24(%rbp)
  jmp    L146
L66:
  mov    -0x24(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x28(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x60(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D48(%rip),%xmm2
  xorpd  %xmm2,%xmm0
  mov    -0x24(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x24(%rbp)
L146:
  mov    -0x24(%rbp),%eax
  cmp    -0x18(%rbp),%eax
  jle    L66
L199:
  mov    -0x28(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x60(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x14(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  D8(%rip),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  movl   $0x0,-0x3c(%rbp)
  jmp    L116
L9:
  mov    -0x14(%rbp),%eax
  sub    -0x3c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x10(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x3c(%rbp)
L116:
  mov    -0x38(%rbp),%eax
  sub    $0x1,%eax
  cmp    %eax,-0x3c(%rbp)
  jl     L9
  subl   $0x1,-0x28(%rbp)
  subl   $0x1,-0x38(%rbp)
L84:
  cmpl   $0x0,-0x38(%rbp)
  jg     L318
  nop
  nop
  leave
  ret
```

tool_calls: name: parse_data
arguments: data_label: D8
type_guessed: f64
name: parse_data
arguments: data_label: D48
type_guessed: f32[2]

tool: D8: 1

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

assistant: ```c
void xorgqr(int n, int k, double A_data[], int lda, const double tau_data[], double *work_data) {
  double c;
  int b_i;
  int c_i;
  int exitg1;
  int i;
  int i1;
  int ia;
  int iac;
  int iaii;
  int ic0;
  int itau;
  int ix;
  int lastc;
  int lastv;
  char exitg2;
  i = n - 1;
  for (b_i = k; b_i <= i; b_i++) {
    ia = b_i * lda;
    i1 = n - 1;
    memset(&A_data[ia], 0, (i1 + 1) * sizeof(double));
    A_data[ia + b_i] = 1.0;
  }
  itau = k - 1;
  for (c_i = k; c_i >= 1; c_i--) {
    iaii = c_i + (c_i - 1) * lda;
    if (c_i < n) {
      A_data[iaii - 1] = 1.0;
      ic0 = iaii + lda;
      if (tau_data[itau] != 0.0) {
        lastv = (n - c_i) + 1;
        b_i = (iaii + n) - c_i;
        while ((lastv > 0) && (A_data[b_i - 1] == 0.0)) {
          lastv--;
          b_i--;
        }
        lastc = n - c_i;
        exitg2 = 0;
        while ((!exitg2) && (lastc > 0)) {
          b_i = ic0 + (lastc - 1) * lda;
          ia = b_i;
          do {
            exitg1 = 0;
            if (ia <= (b_i + lastv) - 1) {
              if (A_data[ia - 1] != 0.0)
                exitg1 = 1;
              else
                ia++;
            } else {
              lastc--;
              exitg1 = 2;
            }
          } while (exitg1 == 0);
          if (exitg1 == 1)
            exitg2 = 1;
        }
      } else {
        lastv = 0;
        lastc = 0;
      }
      if (lastv > 0) {
        if (lastc != 0) {
          memset(&work_data[0], 0, lastc * sizeof(double));
          b_i = 0;
          i = ic0 + lda * (lastc - 1);
          for (iac = ic0; lda < 0 ? iac >= i : iac <= i; iac += lda) {
            ix = iaii;
            c = 0.0;
            i1 = (iac + lastv) - 1;
            for (ia = iac; ia <= i1; ia++) {
              c += A_data[ia - 1] * A_data[ix - 1];
              ix++;
            }
            work_data[b_i] += c;
            b_i++;
          }
        }
        xgerc(lastv, lastc, -tau_data[itau], iaii, work_data, A_data, ic0, lda);
      }
    }
    if (c_i < n) {
      b_i = iaii + 1;
      i = (iaii + n) - c_i;
      for (ix = b_i; ix <= i; ix++)
        A_data[ix - 1] *= -tau_data[itau];
    }
    A_data[iaii - 1] = 1.0 - tau_data[itau];
    for (b_i = 0; b_i <= c_i - 2; b_i++)
      A_data[(iaii - b_i) - 2] = 0.0;
    itau--;
  }
}
```