user: 请将以下的汇编代码转换成C语言代码:

```asm
<invrecr_UU>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x28,%rsp
  mov    %edx,-0x4c(%rbp)
  mov    %ecx,-0x48(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  xor    %eax,%eax
  test   %ecx,%ecx
  js     L146
  mov    %rdi,%r10
  mov    %rsi,%r9
  movslq -0x48(%rbp),%rax
  lea    0xf(,%rax,4),%rdx
  mov    %rdx,%rax
  and    $0xfffffffffffffff0,%rax
  and    $0xfffffffffffff000,%rdx
  mov    %rsp,%rcx
  sub    %rdx,%rcx
L148:
  cmp    %rcx,%rsp
  je     L9
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L148
L146:
  lea    D15(%rip),%rdi
  call   <printf@plt>
  mov    $0xffffffff,%eax
  jmp    L175
L9:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  je     L206
  orq    $0x0,-0x8(%rsp,%rdx,1)
L206:
  mov    %rsp,%r11
  mov    -0x48(%rbp),%edi
  test   %edi,%edi
  jle    L14
  mov    %r11,%r13
  mov    %r11,%rsi
  mov    $0x0,%edx
L69:
  mov    %edx,%ecx
  add    $0x1,%edx
  imul   %edx,%ecx
  mov    %ecx,%eax
  shr    $0x1f,%eax
  add    %ecx,%eax
  sar    %eax
  mov    %eax,(%rsi)
  add    $0x4,%rsi
  cmp    %edi,%edx
  jne    L69
  mov    -0x4c(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x50(%rbp)
  mov    $0x0,%r12d
  movl   $0x0,-0x44(%rbp)
  mov    $0x0,%r14d
  movsd  D26(%rip),%xmm4
  movapd %xmm4,%xmm5
  movq   D5(%rip),%xmm2
  movapd %xmm2,%xmm3
  jmp    L41
L94:
  mov    %esi,%ecx
  add    (%r11,%rax,4),%ecx
  movslq %ecx,%rcx
  lea    (%r12,%rax,1),%edx
  movslq %edx,%rdx
  movsd  (%r9,%rcx,8),%xmm1
  mulsd  (%r10,%rdx,8),%xmm1
  addsd  %xmm1,%xmm0
L28:
  add    $0x1,%rax
  cmp    %eax,%edi
  jle    L153
L32:
  cmp    $0x48,%r8b
  jne    L94
  mov    %esi,%ecx
  add    (%r11,%rax,4),%ecx
  movslq %ecx,%rcx
  mov    %eax,%edx
  add    0x0(%r13),%edx
  movslq %edx,%rdx
  movsd  (%r9,%rcx,8),%xmm1
  mulsd  (%r10,%rdx,8),%xmm1
  addsd  %xmm1,%xmm0
  jmp    L28
L153:
  cmp    $0x48,%r8b
  je     L121
  add    0x0(%r13),%esi
  movslq %esi,%rsi
  xorpd  %xmm2,%xmm0
  divsd  (%r15),%xmm0
  movsd  %xmm0,(%r9,%rsi,8)
L62:
  lea    0x1(%rbx),%rax
  cmp    %r14,%rbx
  je     L67
  mov    %rax,%rbx
L2:
  mov    %ebx,%esi
  mov    %rbx,%rax
  pxor   %xmm0,%xmm0
  cmp    %ebx,%edi
  jg     L32
  jmp    L153
L121:
  add    0x0(%r13),%esi
  movslq %esi,%rsi
  xorpd  %xmm3,%xmm0
  mov    %edi,%eax
  add    0x0(%r13),%eax
  cltq
  divsd  (%r10,%rax,8),%xmm0
  movsd  %xmm0,(%r9,%rsi,8)
  jmp    L62
L67:
  mov    %edi,%r14d
L41:
  cmp    $0x48,%r8b
  je     L88
  mov    %r14d,%eax
  add    0x0(%r13),%eax
  cltq
  movslq -0x44(%rbp),%rdx
  movapd %xmm4,%xmm0
  divsd  (%r10,%rdx,8),%xmm0
  movsd  %xmm0,(%r9,%rax,8)
L12:
  lea    0x1(%r14),%edi
  add    $0x4,%r13
  mov    -0x50(%rbp),%ebx
  add    %ebx,-0x44(%rbp)
  mov    -0x44(%rbp),%eax
  add    -0x4c(%rbp),%r12d
  cmp    %edi,-0x48(%rbp)
  je     L201
  test   %edi,%edi
  jle    L67
  cltq
  lea    (%r10,%rax,8),%r15
  mov    %r14d,%r14d
  mov    $0x0,%ebx
  jmp    L2
L88:
  mov    %r14d,%eax
  add    0x0(%r13),%eax
  cltq
  movapd %xmm5,%xmm0
  divsd  (%r10,%rax,8),%xmm0
  movsd  %xmm0,(%r9,%rax,8)
  jmp    L12
L14:
  mov    $0x0,%eax
  jmp    L175
L201:
  mov    $0x0,%eax
L175:
  mov    -0x38(%rbp),%rdx
  sub    %fs:0x28,%rdx
  jne    L214
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
L214:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: data_tag: D15
type_infered: string
name: unpack_data
arguments: data_tag: D26
type_infered: f64
name: unpack_data
arguments: data_tag: D5
type_infered: f32[2]

tool: D15: ndim can't be negative!


tool: D26: 1

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

assistant: ```c
int invrecr_UU(double *U, double *inv, int lda, int n, char uctl) {
  int col, row, k;
  if (n < 0) {
    printf("ndim can't be negative!\n");
    return -1;
  }
  int iptx[n];
  double sum;
  for (col = 0; col < n; col++) {
    iptx[col] = (col + 1) * col / 2;
  }
  for (col = 0; col < n; col++) {
    for (row = 0; row < col; row++) {
      sum = 0.0;
      for (k = row; k < col; k++) {
        if (uctl == 'H')
          sum += inv[row + iptx[k]] * U[k + iptx[col]];
        else
          sum += inv[row + iptx[k]] * U[k + lda * col];
      }
      if (uctl == 'H')
        inv[row + iptx[col]] = -sum / U[col + iptx[col]];
      else
        inv[row + iptx[col]] = -sum / U[col + lda * col];
    }
    if (uctl == 'H')
      inv[col + iptx[col]] = 1.0 / U[col + iptx[col]];
    else
      inv[col + iptx[col]] = 1.0 / U[col + lda * col];
  }
  return 0;
}
```