user: Translate the below assembly code into C programming language:

```asm
<cholesky>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x28,%rsp
  mov    %rdi,-0x38(%rbp)
  mov    %esi,-0x3c(%rbp)
  mov    -0x3c(%rbp),%eax
  imul   %eax,%eax
  cltq
  mov    $0x8,%esi
  mov    %rax,%rdi
  call   <calloc@plt>
  mov    %rax,-0x28(%rbp)
  mov    $0x0,%ebx
  jmp    L8
L45:
  mov    $0x0,%r12d
  jmp    L68
L69:
  mov    %ebx,%eax
  imul   -0x3c(%rbp),%eax
  add    %r12d,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rax,%rdx
  lea    0x1(%rbx),%eax
  imul   %ebx,%eax
  mov    %eax,%ecx
  shr    $0x1f,%ecx
  add    %ecx,%eax
  sar    %eax
  add    %r12d,%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  mov    $0x0,%r13d
  jmp    L61
L47:
  lea    0x1(%rbx),%eax
  imul   %ebx,%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  mov    %eax,%edx
  lea    (%rdx,%r12,1),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rax),%xmm0
  lea    0x1(%rbx),%eax
  imul   %ebx,%eax
  mov    %eax,%ecx
  shr    $0x1f,%ecx
  add    %ecx,%eax
  sar    %eax
  add    %r13d,%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rax),%xmm2
  lea    0x1(%r12),%eax
  imul   %r12d,%eax
  mov    %eax,%ecx
  shr    $0x1f,%ecx
  add    %ecx,%eax
  sar    %eax
  add    %r13d,%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rax),%xmm1
  mulsd  %xmm2,%xmm1
  lea    (%rdx,%r12,1),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  add    $0x1,%r13d
L61:
  cmp    %r12d,%r13d
  jl     L47
  lea    0x1(%rbx),%eax
  imul   %ebx,%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  mov    %eax,%edx
  lea    (%rdx,%r12,1),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rax),%xmm0
  lea    0x1(%r12),%eax
  imul   %r12d,%eax
  mov    %eax,%ecx
  shr    $0x1f,%ecx
  add    %ecx,%eax
  sar    %eax
  add    %r12d,%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rax),%xmm1
  lea    (%rdx,%r12,1),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  divsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  add    $0x1,%r12d
L68:
  cmp    %ebx,%r12d
  jl     L69
  mov    %r12d,%eax
  imul   -0x3c(%rbp),%eax
  add    %r12d,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rax,%rdx
  lea    0x1(%r12),%eax
  imul   %r12d,%eax
  mov    %eax,%ecx
  shr    $0x1f,%ecx
  add    %ecx,%eax
  sar    %eax
  add    %r12d,%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  mov    $0x0,%r13d
  jmp    L27
L41:
  lea    0x1(%rbx),%eax
  imul   %ebx,%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  mov    %eax,%edx
  lea    (%rdx,%rbx,1),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rax),%xmm0
  lea    0x1(%rbx),%eax
  imul   %ebx,%eax
  mov    %eax,%ecx
  shr    $0x1f,%ecx
  add    %ecx,%eax
  sar    %eax
  add    %r13d,%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rax),%xmm2
  lea    0x1(%rbx),%eax
  imul   %ebx,%eax
  mov    %eax,%ecx
  shr    $0x1f,%ecx
  add    %ecx,%eax
  sar    %eax
  add    %r13d,%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rax),%xmm1
  mulsd  %xmm2,%xmm1
  lea    (%rdx,%rbx,1),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  add    $0x1,%r13d
L27:
  cmp    %ebx,%r13d
  jl     L41
  lea    0x1(%rbx),%eax
  imul   %ebx,%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  add    %ebx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  lea    0x1(%rbx),%edx
  imul   %ebx,%edx
  mov    %edx,%ecx
  shr    $0x1f,%ecx
  add    %ecx,%edx
  sar    %edx
  add    %ebx,%edx
  movslq %edx,%rdx
  lea    0x0(,%rdx,8),%rcx
  mov    -0x28(%rbp),%rdx
  lea    (%rcx,%rdx,1),%r12
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    %rax,(%r12)
  add    $0x1,%ebx
L8:
  cmp    -0x3c(%rbp),%ebx
  jl     L45
  mov    -0x28(%rbp),%rax
  add    $0x28,%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %rbp
  ret
```

assistant: ```c
double *cholesky(double *A, int n) {
  register int i, j, k;
  double *L = (double *)calloc(n * n, sizeof(double));
  for (i = 0; i < n; ++i) {
    for (j = 0; j < i; ++j) {
      L[((((i) * (i + 1)) / 2) + (j))] = A[((i * n) + j)];
      for (k = 0; k < j; ++k) {
        L[((((i) * (i + 1)) / 2) + (j))] -= L[((((i) * (i + 1)) / 2) + (k))] * L[((((j) * (j + 1)) / 2) + (k))];
      }
      L[((((i) * (i + 1)) / 2) + (j))] /= L[((((j) * (j + 1)) / 2) + (j))];
    }
    L[((((j) * (j + 1)) / 2) + (j))] = A[((j * n) + j)];
    for (k = 0; k < i; ++k) {
      L[((((i) * (i + 1)) / 2) + (i))] -= L[((((i) * (i + 1)) / 2) + (k))] * L[((((i) * (i + 1)) / 2) + (k))];
    }
    L[((((i) * (i + 1)) / 2) + (i))] = sqrt(L[((((i) * (i + 1)) / 2) + (i))]);
  }
  return L;
}
```