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

```asm
<raninvwis>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x88,%rsp
  mov    %rdi,0x70(%rsp)
  mov    %esi,0x14(%rsp)
  mov    %edx,0x48(%rsp)
  mov    %rcx,0x78(%rsp)
  cmp    %edx,%esi
  jl     L102
L90:
  mov    0x48(%rsp),%eax
  mov    $0x8,%esi
  mov    %eax,%ebp
  imul   %eax,%ebp
  mov    %ebp,%edi
  call   <calloc@plt>
  mov    %rax,0x58(%rsp)
  test   %rax,%rax
  je     L28
L268:
  mov    $0x8,%esi
  mov    %ebp,%edi
  call   <calloc@plt>
  mov    %rax,0x30(%rsp)
  test   %rax,%rax
  je     L164
L185:
  mov    0x48(%rsp),%edi
  mov    $0x8,%esi
  call   <calloc@plt>
  mov    %rax,0x38(%rsp)
  test   %rax,%rax
  je     L72
L127:
  mov    $0x8,%esi
  mov    %ebp,%edi
  call   <calloc@plt>
  mov    %rax,0x60(%rsp)
  test   %rax,%rax
  je     L33
L236:
  mov    $0x8,%esi
  mov    %ebp,%edi
  call   <calloc@plt>
  mov    %rax,0x68(%rsp)
  test   %rax,%rax
  je     L215
  mov    0x48(%rsp),%eax
  test   %eax,%eax
  jle    L195
L104:
  mov    0x14(%rsp),%edi
  mov    $0x1,%ebx
  call   <ranchi@plt>
  mov    0x38(%rsp),%rax
  movsd  %xmm0,(%rax)
  lea    0x8(%rax),%r14
  movslq 0x48(%rsp),%rax
  mov    %rax,0x18(%rsp)
  lea    0x0(,%rax,8),%r12
  mov    %eax,0x8(%rsp)
  mov    0x30(%rsp),%rax
  add    $0x8,%rax
  mov    %rax,0x20(%rsp)
  cmp    0x18(%rsp),%rbx
  je     L238
  xchg   %ax,%ax
L82:
  mov    0x14(%rsp),%edi
  sub    %ebx,%edi
  call   <ranchi@plt>
  movsd  %xmm0,(%r14)
  test   %ebx,%ebx
  jle    L225
  mov    0x30(%rsp),%rcx
  movslq 0x8(%rsp),%rax
  mov    0x20(%rsp),%rsi
  lea    (%rcx,%rax,8),%r15
  lea    -0x1(%rax,%rbx,1),%rax
  lea    (%rcx,%rbx,8),%r13
  lea    (%rsi,%rax,8),%rbp
  nopl   0x0(%rax)
L179:
  xor    %eax,%eax
  add    $0x8,%r15
  call   <gauss@plt>
  movsd  %xmm0,0x0(%r13)
  add    %r12,%r13
  movsd  %xmm0,-0x8(%r15)
  cmp    %rbp,%r15
  jne    L179
L225:
  mov    0x48(%rsp),%edx
  add    $0x1,%rbx
  add    %edx,0x8(%rsp)
  add    $0x8,%r14
  cmp    0x18(%rsp),%rbx
  jne    L82
L238:
  mov    0x38(%rsp),%rax
  cmpl   $0x1,0x48(%rsp)
  movsd  (%rax),%xmm1
  mov    0x58(%rsp),%rax
  movsd  %xmm1,(%rax)
  jle    L15
  mov    0x30(%rsp),%rcx
  mov    0x58(%rsp),%rdx
  shl    $0x3,%rbx
  mov    0x48(%rsp),%eax
  mov    %rbx,%r12
  mov    %rbx,0x20(%rsp)
  add    %rdx,%r12
  sub    %rcx,%rdx
  lea    0x8(%rcx),%rbp
  sub    $0x2,%eax
  mov    %rdx,0x28(%rsp)
  mov    %r12,%r13
  mov    %rdx,%r14
  mov    %eax,0x4c(%rsp)
  lea    0x10(%rcx,%rax,8),%r15
  cs nopw 0x0(%rax,%rax,1)
L206:
  pxor   %xmm4,%xmm4
  movapd %xmm1,%xmm0
  ucomisd %xmm1,%xmm4
  ja     L159
  sqrtsd %xmm0,%xmm0
L189:
  mulsd  0x0(%rbp),%xmm0
  add    $0x8,%rbp
  movsd  %xmm0,-0x8(%rbp,%r14,1)
  movsd  %xmm0,0x0(%r13)
  add    %rbx,%r13
  cmp    %r15,%rbp
  jne    L206
  mov    0x20(%rsp),%rax
  mov    0x58(%rsp),%rcx
  movl   $0xffffffff,0x14(%rsp)
  mov    $0xfffffffffffffff8,%rbp
  mov    0x38(%rsp),%rsi
  add    $0x8,%rax
  mov    %rax,%r14
  mov    %rax,0x40(%rsp)
  mov    0x30(%rsp),%rax
  sub    %rsi,%r12
  mov    %r12,0x18(%rsp)
  add    %rcx,%r14
  sub    %rcx,%rax
  add    %rsi,%rax
  mov    %rax,0x50(%rsp)
  nopl   0x0(%rax)
L49:
  mov    0x38(%rsp),%r12
  mov    0x30(%rsp),%rbx
  mov    $0xffffffff,%r13d
  mov    0x50(%rsp),%r15
  add    0x18(%rsp),%r15
  mov    %r12,%rax
  sub    %rbp,%rbx
  sub    %rbp,%rax
  movsd  (%rax),%xmm0
  mov    %r12,%rax
  mov    %rbx,%r12
  mov    %r14,%rbx
  movsd  %xmm0,(%r14)
  mov    %rax,%r14
  jmp    L219
  nopw   0x0(%rax,%rax,1)
L125:
  movsd  (%rbx),%xmm0
  add    $0x1,%r13d
L219:
  movsd  (%r12),%xmm2
  pxor   %xmm3,%xmm3
  movapd %xmm2,%xmm1
  mulsd  %xmm2,%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rbx)
  movsd  (%r14),%xmm0
  ucomisd %xmm0,%xmm3
  ja     L241
  sqrtsd %xmm0,%xmm0
L220:
  mulsd  %xmm0,%xmm2
  lea    0x0(%rbp,%r12,1),%rdi
  mov    %r13d,%edx
  mov    %r15,%rsi
  movsd  %xmm2,0x8(%rsp)
  call   <vdot@plt>
  addsd  0x8(%rsp),%xmm0
  mov    0x28(%rsp),%rax
  movsd  %xmm0,(%r12,%rax,1)
  mov    0x18(%rsp),%rax
  add    0x20(%rsp),%r12
  movsd  %xmm0,(%rax,%r14,1)
  add    $0x8,%r14
  cmp    0x14(%rsp),%r13d
  jne    L125
  mov    0x40(%rsp),%r14
  addl   $0x1,0x14(%rsp)
  sub    $0x8,%rbp
  mov    0x20(%rsp),%rcx
  mov    0x14(%rsp),%eax
  add    %rcx,0x18(%rsp)
  add    %rbx,%r14
  cmp    0x4c(%rsp),%eax
  jne    L49
L15:
  mov    0x48(%rsp),%ebx
  mov    0x60(%rsp),%r14
  mov    0x78(%rsp),%rsi
  mov    %ebx,%edx
  mov    %r14,%rdi
  call   <cholesky@plt>
  mov    0x68(%rsp),%r15
  mov    %ebx,%r9d
  mov    %ebx,%r8d
  mov    0x58(%rsp),%rbp
  mov    %ebx,%ecx
  mov    %r14,%rsi
  mov    %r15,%rdi
  mov    %rbp,%rdx
  call   <mulmat@plt>
  mov    %ebx,%ecx
  mov    %ebx,%edx
  mov    %r14,%rsi
  mov    %r14,%rdi
  call   <transpose@plt>
  mov    0x70(%rsp),%rdi
  mov    %ebx,%r9d
  mov    %ebx,%ecx
  mov    %ebx,%r8d
  mov    %r14,%rdx
  mov    %r15,%rsi
  call   <mulmat@plt>
  mov    %rbp,%rdi
  call   <free@plt>
  mov    0x30(%rsp),%rdi
  call   <free@plt>
  mov    0x38(%rsp),%rdi
  call   <free@plt>
  mov    %r14,%rdi
  call   <free@plt>
  mov    %r15,%rdi
  call   <free@plt>
  add    $0x88,%rsp
  pxor   %xmm0,%xmm0
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L102:
  lea    D14(%rip),%rdi
  xor    %eax,%eax
  call   <fatalx@plt>
  jmp    L90
L215:
  mov    %ebp,%esi
  lea    D31(%rip),%rdi
  call   <fatalx@plt>
  mov    0x48(%rsp),%eax
  test   %eax,%eax
  jg     L104
L195:
  mov    0x38(%rsp),%rax
  movsd  (%rax),%xmm0
  mov    0x58(%rsp),%rax
  movsd  %xmm0,(%rax)
  jmp    L15
L33:
  mov    %ebp,%esi
  lea    D31(%rip),%rdi
  call   <fatalx@plt>
  jmp    L236
L72:
  mov    0x48(%rsp),%esi
  lea    D31(%rip),%rdi
  call   <fatalx@plt>
  jmp    L127
L164:
  mov    %ebp,%esi
  lea    D31(%rip),%rdi
  call   <fatalx@plt>
  jmp    L185
L28:
  mov    %ebp,%esi
  lea    D31(%rip),%rdi
  call   <fatalx@plt>
  jmp    L268
L241:
  movsd  %xmm2,0x8(%rsp)
  call   <sqrt@plt>
  movsd  0x8(%rsp),%xmm2
  jmp    L220
L159:
  movsd  %xmm1,0x8(%rsp)
  call   <sqrt@plt>
  movsd  0x8(%rsp),%xmm1
  jmp    L189
```

tool_calls: name: extract_symbolic_data
arguments: tag: D14
type_infered: string
name: extract_symbolic_data
arguments: tag: D31
type_infered: string

tool: D14: (raninvwis) d.o.f. too small %d %d


tool: D31: Unable to allocate %d unit(s) for item 


assistant: ```c
double raninvwis(double *wis, int t, int d, double *s) {
  double *b, *n, *v, *cf, *ww, y;
  int i, j;
  if (t < d) {
    fatalx("(raninvwis) d.o.f. too small %d %d\n", t, d);
  }
  if ((b = (double *)calloc((d * d), sizeof(double))) == NULL)
    fatalx("Unable to allocate %d unit(s) for item \n", d * d);
  if ((n = (double *)calloc((d * d), sizeof(double))) == NULL)
    fatalx("Unable to allocate %d unit(s) for item \n", d * d);
  if ((v = (double *)calloc((d), sizeof(double))) == NULL)
    fatalx("Unable to allocate %d unit(s) for item \n", d);
  if ((cf = (double *)calloc((d * d), sizeof(double))) == NULL)
    fatalx("Unable to allocate %d unit(s) for item \n", d * d);
  if ((ww = (double *)calloc((d * d), sizeof(double))) == NULL)
    fatalx("Unable to allocate %d unit(s) for item \n", d * d);
  for (i = 0; i < d; i++) {
    v[i] = ranchi(t - i);
    for (j = 0; j < i; j++) {
      n[i * d + j] = n[j * d + i] = gauss();
    }
  }
  y = b[0] = v[0];
  for (j = 1; j < d; j++) {
    b[j * d + 0] = b[j] = sqrt(y) * n[j];
  }
  for (j = 1; j < d; j++) {
    b[j * d + j] = v[j];
    for (i = 0; i < j; i++) {
      y = n[i * d + j];
      b[j * d + j] += y * y;
      b[j * d + i] = b[i * d + j] = y * sqrt(v[i]) + vdot(n + i * d, n + j * d, i - 1);
    }
  }
  cholesky(cf, s, d);
  mulmat(ww, cf, b, d, d, d);
  transpose(cf, cf, d, d);
  mulmat(wis, ww, cf, d, d, d);
  free(b);
  free(n);
  free(v);
  free(cf);
  free(ww);
}
```