user: What would the C source look like for the assembly code provided here?

```asm
<lhs_imp_dist>:
  endbr64
  push   %r15
  mov    %edi,%r15d
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xd8,%rsp
  mov    %esi,0x90(%rsp)
  imul   %edi,%esi
  mov    %edx,0x14(%rsp)
  mov    %rcx,0x98(%rsp)
  lea    0x0(,%rsi,4),%edi
  mov    %r8,0x78(%rsp)
  mov    %esi,%r13d
  call   <malloc@plt>
  mov    %rax,0x80(%rsp)
  test   %rax,%rax
  je     L213
  mov    0x90(%rsp),%ebx
  mov    0x14(%rsp),%ebp
  mov    %ebx,%r14d
  imul   %ebp,%r14d
  lea    0x0(,%r14,4),%edi
  call   <malloc@plt>
  mov    %rax,0x18(%rsp)
  test   %rax,%rax
  je     L213
  mov    %ebp,%edi
  imul   %r15d,%edi
  imul   %ebx,%edi
  shl    $0x2,%edi
  call   <malloc@plt>
  mov    %rax,0x88(%rsp)
  test   %rax,%rax
  je     L213
  pxor   %xmm0,%xmm0
  movsd  D2(%rip),%xmm1
  pxor   %xmm7,%xmm7
  lea    -0x1(%rbx),%r12d
  cvtsi2sd %r15d,%xmm0
  cvtsi2sd %ebx,%xmm7
  divsd  %xmm0,%xmm1
  movapd %xmm7,%xmm0
  movsd  %xmm7,0x70(%rsp)
  call   <pow@plt>
  movsd  0x70(%rsp),%xmm7
  divsd  %xmm0,%xmm7
  movsd  %xmm7,0x48(%rsp)
  test   %r15d,%r15d
  jle    L253
  mov    %r13d,%eax
  mov    0x78(%rsp),%rdi
  lea    -0x1(%r15),%edx
  sub    %r15d,%eax
  mov    %rdx,%rcx
  cltq
  lea    (%rdi,%rax,8),%rbx
  add    %rdx,%rax
  lea    0x8(%rdi,%rax,8),%rbp
L562:
  mov    0x98(%rsp),%rdx
  mov    $0x1,%edi
  mov    %ecx,(%rsp)
  add    $0x8,%rbx
  mov    0x90(%rsp),%esi
  call   <int_uniform@plt>
  pxor   %xmm0,%xmm0
  mov    (%rsp),%ecx
  cvtsi2sd %eax,%xmm0
  movsd  %xmm0,-0x8(%rbx)
  cmp    %rbp,%rbx
  jne    L562
  mov    0x90(%rsp),%eax
  test   %eax,%eax
  jle    L187
  movslq %r15d,%rax
  mov    0x80(%rsp),%r9
  mov    %r15d,%r8d
  xor    %esi,%esi
  lea    0x0(,%rax,4),%r11
  mov    %r15d,%eax
  and    $0xfffffffc,%r8d
  xor    %edx,%edx
  shr    $0x2,%eax
  mov    %r9,%rdi
  sub    $0x1,%eax
  add    $0x1,%rax
  shl    $0x4,%rax
  mov    %rax,%rbp
L312:
  add    $0x1,%edx
  cmp    $0x2,%ecx
  jbe    L313
  movd   %edx,%xmm7
  lea    0x0(%rbp,%rdi,1),%r10
  mov    %rdi,%rax
  pshufd $0x0,%xmm7,%xmm0
L484:
  movups %xmm0,(%rax)
  add    $0x10,%rax
  cmp    %r10,%rax
  jne    L484
  mov    %r8d,%eax
  cmp    %r15d,%r8d
  je     L48
L60:
  lea    (%rsi,%rax,1),%r10d
  movslq %r10d,%r10
  mov    %edx,(%r9,%r10,4)
  lea    0x1(%rax),%r10d
  cmp    %r10d,%r15d
  jle    L48
  add    %esi,%r10d
  add    $0x2,%eax
  movslq %r10d,%r10
  mov    %edx,(%r9,%r10,4)
  cmp    %eax,%r15d
  jle    L48
  add    %esi,%eax
  cltq
  mov    %edx,(%r9,%rax,4)
L48:
  add    %r15d,%esi
  add    %r11,%rdi
  cmp    %edx,0x90(%rsp)
  jne    L312
L187:
  mov    %r13d,%eax
  mov    0x78(%rsp),%rbx
  mov    %r15d,%esi
  xor    %edx,%edx
  sub    %r15d,%eax
  cltq
  lea    (%rbx,%rax,8),%rcx
L39:
  cvttsd2si (%rcx,%rdx,8),%eax
  mov    0x80(%rsp),%rbx
  mov    0x90(%rsp),%edi
  sub    $0x1,%eax
  imul   %r15d,%eax
  add    %edx,%eax
  add    $0x1,%rdx
  cltq
  mov    %edi,(%rbx,%rax,4)
  cmp    %rsi,%rdx
  jne    L39
L253:
  cmp    $0x1,%r12d
  jle    L320
  mov    0x90(%rsp),%eax
  mov    %r12d,%ebx
  movslq %r15d,%rcx
  mov    %r15d,%r13d
  mov    0x14(%rsp),%edi
  sub    $0x2,%eax
  imul   %r15d,%eax
  sub    %edi,%r14d
  mov    %r14d,0x30(%rsp)
  mov    %ebx,%r14d
  mov    %eax,0x34(%rsp)
  mov    %edi,%eax
  imul   %r15d,%edi
  imul   %r12d,%eax
  mov    %edi,0xb0(%rsp)
  sub    $0x1,%eax
  mov    %eax,0x38(%rsp)
  imul   %r15d,%eax
  mov    %eax,0x94(%rsp)
  movslq %r12d,%rax
  lea    0x0(,%rcx,4),%r12
  shl    $0x2,%rax
  mov    %rax,0x58(%rsp)
  mov    %r15d,%eax
  neg    %eax
  cltq
  shl    $0x2,%rax
  mov    %rax,0x60(%rsp)
  mov    0x88(%rsp),%rax
  neg    %rax
  add    %rax,%rax
  test   %r15d,%r15d
  mov    %rax,0x68(%rsp)
  mov    $0x1,%eax
  cmovg  %r15d,%eax
  mov    %eax,%edi
  mov    %eax,0xb8(%rsp)
  shr    $0x2,%eax
  sub    $0x1,%eax
  and    $0xfffffffc,%edi
  mov    %rax,0xa0(%rsp)
  mov    0x80(%rsp),%rax
  mov    %edi,0xb4(%rsp)
  mov    0x78(%rsp),%rdi
  neg    %rax
  lea    (%rdi,%rax,2),%rax
  mov    %rax,0xa8(%rsp)
L81:
  test   %r13d,%r13d
  jle    L533
  mov    0x80(%rsp),%rdi
  mov    0x18(%rsp),%rbx
  movl   $0x0,(%rsp)
  mov    0x88(%rsp),%rdx
  movslq 0x94(%rsp),%rax
  mov    %r13d,0x3c(%rsp)
  mov    %r14d,%r13d
  mov    %rdi,0x8(%rsp)
  mov    0x98(%rsp),%r14
  sub    %rdi,%rdx
  lea    (%rdx,%rax,4),%rax
  mov    %rax,0x40(%rsp)
  movslq 0x38(%rsp),%rax
  lea    (%rbx,%rax,4),%rax
  mov    %rax,0x50(%rsp)
  cs nopw 0x0(%rax,%rax,1)
L328:
  mov    0x14(%rsp),%r8d
  mov    0x18(%rsp),%r10
  xor    %edi,%edi
  test   %r8d,%r8d
  jle    L319
  mov    0x8(%rsp),%r8
  mov    0x58(%rsp),%r9
  mov    0x14(%rsp),%r11d
L155:
  mov    %r10,%rcx
  mov    %r8,%rdx
  xor    %eax,%eax
  nopl   0x0(%rax,%rax,1)
L214:
  mov    (%rdx),%esi
  add    $0x1,%eax
  add    %r12,%rdx
  add    $0x4,%rcx
  mov    %esi,-0x4(%rcx)
  cmp    %r13d,%eax
  jl     L214
  add    $0x1,%edi
  add    %r9,%r10
  cmp    %edi,%r11d
  jne    L155
L319:
  mov    0x38(%rsp),%eax
  mov    0x40(%rsp),%rbx
  mov    0x50(%rsp),%rbp
  add    0x8(%rsp),%rbx
  mov    %eax,%r15d
  test   %eax,%eax
  js     L521
  mov    %r13d,0x20(%rsp)
  mov    %rbx,%r13
  mov    0x18(%rsp),%rbx
  mov    %r12,0x28(%rsp)
  mov    %rbp,%r12
  mov    0x60(%rsp),%rbp
  nopl   0x0(%rax,%rax,1)
L70:
  mov    %r14,%rdx
  mov    %r15d,%esi
  xor    %edi,%edi
  sub    $0x1,%r15d
  call   <int_uniform@plt>
  sub    $0x4,%r12
  cltq
  lea    (%rbx,%rax,4),%rax
  mov    (%rax),%edx
  mov    %edx,0x0(%r13)
  mov    0x4(%r12),%edx
  add    %rbp,%r13
  mov    %edx,(%rax)
  cmp    $0xffffffff,%r15d
  jne    L70
  mov    0x20(%rsp),%r13d
  mov    0x28(%rsp),%r12
L521:
  addl   $0x1,(%rsp)
  mov    (%rsp),%eax
  addq   $0x4,0x8(%rsp)
  cmp    %eax,0x3c(%rsp)
  jne    L328
  mov    0x30(%rsp),%edx
  mov    %r13d,%r14d
  xor    %esi,%esi
  mov    0x3c(%rsp),%r13d
  test   %edx,%edx
  jle    L489
L175:
  mov    D32(%rip),%rax
  mov    %r12,(%rsp)
  xor    %r8d,%r8d
  xor    %ecx,%ecx
  mov    0x88(%rsp),%r10
  mov    0x78(%rsp),%rdi
  xor    %r11d,%r11d
  mov    %r14d,%r9d
  mov    0x90(%rsp),%r15d
  movq   %rax,%xmm3
L323:
  cmp    %r9d,%r15d
  jle    L285
  mov    0x34(%rsp),%eax
  lea    -0x1(%r13),%edx
  mov    %r9d,%ebp
  lea    0x0(%r13,%rax,1),%r12d
  movslq %r8d,%rax
  add    %rax,%rdx
  lea    (%r10,%rax,4),%rsi
  neg    %rax
  lea    0x4(%r10,%rdx,4),%rbx
  mov    D32(%rip),%rdx
  movq   %rdx,%xmm2
  mov    0x68(%rsp),%rdx
  lea    (%rdx,%rax,8),%r14
L17:
  pxor   %xmm1,%xmm1
  test   %r13d,%r13d
  jle    L581
  movslq %r12d,%rax
  pxor   %xmm1,%xmm1
  lea    (%r14,%rax,8),%rdx
  mov    %rsi,%rax
  add    %rdi,%rdx
  nopw   0x0(%rax,%rax,1)
L447:
  pxor   %xmm0,%xmm0
  cvtsi2sdl (%rax),%xmm0
  subsd  (%rdx,%rax,2),%xmm0
  add    $0x4,%rax
  mulsd  %xmm0,%xmm0
  addsd  %xmm0,%xmm1
  cmp    %rax,%rbx
  jne    L447
  pxor   %xmm4,%xmm4
  ucomisd %xmm1,%xmm4
  ja     L229
L581:
  sqrtsd %xmm1,%xmm1
L98:
  minsd  %xmm2,%xmm1
  add    $0x1,%ebp
  add    %r13d,%r12d
  movapd %xmm1,%xmm2
  cmp    %ebp,%r15d
  jne    L17
L368:
  subsd  0x48(%rsp),%xmm2
  andpd  D56(%rip),%xmm2
  comisd %xmm2,%xmm3
  minsd  %xmm3,%xmm2
  cmova  %r11d,%ecx
  movapd %xmm2,%xmm3
  add    $0x1,%r11d
  add    %r13d,%r8d
  cmp    0x30(%rsp),%r11d
  jl     L323
  mov    (%rsp),%r12
  mov    %r9d,%r14d
  test   %r13d,%r13d
  jle    L35
  mov    %ecx,%esi
  imul   %r13d,%esi
L489:
  lea    -0x1(%r14),%ecx
  cmp    $0x3,%r13d
  jle    L382
  mov    0x88(%rsp),%rbx
  movslq %esi,%rax
  movslq 0x34(%rsp),%rdx
  lea    (%rbx,%rax,4),%rax
  mov    0xa0(%rsp),%rbx
  shl    $0x3,%rdx
  mov    %rax,%r9
  lea    0x1(%rbx),%rdi
  neg    %r9
  shl    $0x4,%rdi
  lea    (%rdx,%r9,2),%rdx
  add    0x78(%rsp),%rdx
  add    %rax,%rdi
L568:
  movdqu (%rax),%xmm0
  cvtdq2pd %xmm0,%xmm1
  pshufd $0xee,%xmm0,%xmm0
  movups %xmm1,(%rdx,%rax,2)
  cvtdq2pd %xmm0,%xmm0
  movups %xmm0,0x10(%rdx,%rax,2)
  add    $0x10,%rax
  cmp    %rax,%rdi
  jne    L568
  mov    0xb4(%rsp),%eax
  mov    0xb8(%rsp),%edi
  cmp    %edi,%eax
  je     L399
L462:
  lea    (%rax,%rsi,1),%edi
  pxor   %xmm0,%xmm0
  mov    0x34(%rsp),%ebx
  mov    0x78(%rsp),%r9
  mov    0x88(%rsp),%r15
  movslq %edi,%rdi
  lea    (%rbx,%rax,1),%edx
  cvtsi2sdl (%r15,%rdi,4),%xmm0
  movslq %edx,%rdx
  movsd  %xmm0,(%r9,%rdx,8)
  lea    0x1(%rax),%edx
  cmp    %r13d,%edx
  jge    L399
  lea    (%rbx,%rdx,1),%edi
  add    %esi,%edx
  pxor   %xmm0,%xmm0
  add    $0x2,%eax
  movslq %edx,%rdx
  movslq %edi,%rdi
  cvtsi2sdl (%r15,%rdx,4),%xmm0
  movsd  %xmm0,(%r9,%rdi,8)
  cmp    %eax,%r13d
  jle    L399
  lea    (%rbx,%rax,1),%edx
  add    %esi,%eax
  pxor   %xmm0,%xmm0
  cltq
  movslq %edx,%rdx
  cvtsi2sdl (%r15,%rax,4),%xmm0
  movsd  %xmm0,(%r9,%rdx,8)
L399:
  mov    0x90(%rsp),%r8d
  test   %r8d,%r8d
  jle    L250
  movslq 0x34(%rsp),%r9
  mov    0x80(%rsp),%rax
  xor    %edi,%edi
  mov    0xa8(%rsp),%r11
  shl    $0x2,%r9
  lea    (%rax,%r9,1),%rsi
  nopl   0x0(%rax)
L86:
  mov    %rsi,%rax
  movsd  (%r11,%rsi,2),%xmm1
  xor    %edx,%edx
  sub    %r9,%rax
  cs nopw 0x0(%rax,%rax,1)
L272:
  pxor   %xmm0,%xmm0
  cvtsi2sdl (%rax),%xmm0
  ucomisd %xmm1,%xmm0
  jp     L547
  jne    L547
  mov    (%rsi),%r10d
  mov    %r10d,(%rax)
L547:
  add    $0x1,%edx
  add    %r12,%rax
  cmp    %edx,%r8d
  jne    L272
  add    $0x1,%edi
  add    $0x4,%rsi
  cmp    %edi,%r13d
  jg     L86
L250:
  mov    0x14(%rsp),%edi
  sub    %r13d,0x34(%rsp)
  mov    %ecx,%r14d
  sub    %edi,0x30(%rsp)
  sub    %edi,0x38(%rsp)
  mov    0xb0(%rsp),%edi
  subq   $0x4,0x58(%rsp)
  sub    %edi,0x94(%rsp)
  cmp    $0x1,%ecx
  jne    L81
  mov    %r13d,%r15d
L320:
  test   %r15d,%r15d
  jle    L565
  lea    -0x1(%r15),%eax
  cmp    $0x2,%eax
  jbe    L419
  mov    %r15d,%eax
  mov    0x80(%rsp),%rdi
  shr    $0x2,%eax
  shl    $0x4,%rax
  mov    %rdi,%rdx
  add    %rdi,%rax
  neg    %rdi
  mov    %rdi,%rcx
  mov    0x78(%rsp),%rdi
  lea    (%rdi,%rcx,2),%rcx
L225:
  movdqu (%rdx),%xmm0
  cvtdq2pd %xmm0,%xmm1
  pshufd $0xee,%xmm0,%xmm0
  movups %xmm1,(%rcx,%rdx,2)
  cvtdq2pd %xmm0,%xmm0
  movups %xmm0,0x10(%rcx,%rdx,2)
  add    $0x10,%rdx
  cmp    %rax,%rdx
  jne    L225
  mov    %r15d,%eax
  and    $0xfffffffc,%eax
  test   $0x3,%r15b
  je     L132
L226:
  mov    0x80(%rsp),%rdi
  movslq %eax,%rdx
  pxor   %xmm0,%xmm0
  mov    0x78(%rsp),%rbx
  lea    0x0(,%rdx,4),%rsi
  lea    0x0(,%rdx,8),%rcx
  cvtsi2sdl (%rdi,%rdx,4),%xmm0
  movsd  %xmm0,(%rbx,%rdx,8)
  lea    0x1(%rax),%edx
  cmp    %r15d,%edx
  jge    L132
  pxor   %xmm0,%xmm0
  add    $0x2,%eax
  cvtsi2sdl 0x4(%rdi,%rsi,1),%xmm0
  movsd  %xmm0,0x8(%rbx,%rcx,1)
  cmp    %r15d,%eax
  jge    L132
  pxor   %xmm0,%xmm0
  cvtsi2sdl 0x8(%rdi,%rsi,1),%xmm0
  movsd  %xmm0,0x10(%rbx,%rcx,1)
L132:
  mov    0x90(%rsp),%ecx
  test   %ecx,%ecx
  jle    L565
  mov    %r15d,%eax
  mov    0x78(%rsp),%r9
  movsd  0x70(%rsp),%xmm1
  xor    %edx,%edx
  shr    %eax
  movslq %r15d,%r8
  mov    %r15d,%r10d
  xor    %edi,%edi
  lea    -0x1(%rax),%ecx
  shl    $0x3,%r8
  mov    %r9,%rsi
  and    $0xfffffffe,%r10d
  add    $0x1,%rcx
  unpcklpd %xmm1,%xmm1
  shl    $0x4,%rcx
L74:
  lea    (%rcx,%rsi,1),%r11
  mov    %rsi,%rax
  cmp    $0x1,%r15d
  je     L488
L589:
  movupd (%rax),%xmm0
  add    $0x10,%rax
  divpd  %xmm1,%xmm0
  movups %xmm0,-0x10(%rax)
  cmp    %r11,%rax
  jne    L589
  mov    %r10d,%eax
  cmp    %r10d,%r15d
  je     L353
L234:
  add    %edx,%eax
  cltq
  lea    (%r9,%rax,8),%rax
  movsd  (%rax),%xmm0
  divsd  0x70(%rsp),%xmm0
  movsd  %xmm0,(%rax)
L353:
  add    $0x1,%edi
  add    %r15d,%edx
  add    %r8,%rsi
  cmp    %edi,0x90(%rsp)
  jne    L74
L565:
  mov    0x80(%rsp),%rdi
  call   <free@plt>
  mov    0x18(%rsp),%rdi
  call   <free@plt>
  mov    0x88(%rsp),%rdi
  add    $0xd8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    10a0 <free@plt>
L213:
  add    $0xd8,%rsp
  lea    D43(%rip),%rdi
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    10b0 <tprintf@plt>
L285:
  mov    D32(%rip),%rax
  movq   %rax,%xmm2
  jmp    L368
L533:
  mov    0x30(%rsp),%esi
  test   %esi,%esi
  jg     L175
L35:
  lea    -0x1(%r14),%ecx
  jmp    L250
L488:
  xor    %eax,%eax
  jmp    L234
L313:
  xor    %eax,%eax
  jmp    L60
L382:
  xor    %eax,%eax
  jmp    L462
L229:
  movapd %xmm1,%xmm0
  mov    %rdi,0xc8(%rsp)
  mov    %rsi,0xc0(%rsp)
  mov    %r8d,0xbc(%rsp)
  mov    %r11d,0x50(%rsp)
  mov    %ecx,0x40(%rsp)
  mov    %r9d,0x3c(%rsp)
  mov    %r10,0x28(%rsp)
  movsd  %xmm2,0x20(%rsp)
  movsd  %xmm3,0x8(%rsp)
  call   <sqrt@plt>
  mov    0x50(%rsp),%r11d
  mov    0x40(%rsp),%ecx
  mov    0x3c(%rsp),%r9d
  mov    0x28(%rsp),%r10
  movapd %xmm0,%xmm1
  mov    0xc8(%rsp),%rdi
  mov    0xc0(%rsp),%rsi
  mov    0xbc(%rsp),%r8d
  movsd  0x20(%rsp),%xmm2
  movsd  0x8(%rsp),%xmm3
  jmp    L98
L419:
  xor    %eax,%eax
  jmp    L226
```

tool_calls: name: retrieve_data
arguments: data_label: D2
type_guessed: f64
name: retrieve_data
arguments: data_label: D32
type_guessed: f64
name: retrieve_data
arguments: data_label: D56
type_guessed: qword[2]
name: retrieve_data
arguments: data_label: D43
type_guessed: string

tool: D2: 1

tool: D32: 1e+30

tool: {"D56": [0x7fffffffffffffff,0x0000000000000000]}

tool: D43: Not enough memory!


assistant: ```c
void lhs_imp_dist(int nvar, int npoint, int d, int *seed, double x_int[]) {
  int *avail, best, count, i, j, k, *list, *point, point_index;
  double dist, min_all, min_can, opt;
  if ((avail = (int *)malloc(nvar * npoint * sizeof(int))) == NULL) {
    tprintf("Not enough memory!\n");
    return;
  }
  if ((list = (int *)malloc(d * npoint * sizeof(int))) == NULL) {
    tprintf("Not enough memory!\n");
    return;
  }
  if ((point = (int *)malloc(nvar * d * npoint * sizeof(int))) == NULL) {
    tprintf("Not enough memory!\n");
    return;
  }
  opt = ((double)npoint) / pow((double)npoint, (double)(1.0 / (double)nvar));
  for (i = 0; i < nvar; i++)
    x_int[i + (npoint - 1) * nvar] = (double)int_uniform(1, npoint, seed);
  for (j = 0; j < npoint; j++)
    for (i = 0; i < nvar; i++)
      avail[i + j * nvar] = j + 1;
  for (i = 0; i < nvar; i++)
    avail[i + (((int)x_int[i + (npoint - 1) * nvar]) - 1) * nvar] = npoint;
  for (count = npoint - 1; 2 <= count; count--) {
    for (i = 0; i < nvar; i++) {
      for (k = 0; k < d; k++)
        for (j = 0; j < count; j++)
          list[j + k * count] = avail[i + j * nvar];
      for (k = count * d - 1; 0 <= k; k--) {
        point_index = int_uniform(0, k, seed);
        point[i + k * nvar] = list[point_index];
        list[point_index] = list[k];
      }
    }
    min_all = 1e30;
    best = 0;
    for (k = 0; k < d * count; k++) {
      min_can = 1e30;
      for (j = count; j < npoint; j++) {
        dist = 0.0;
        for (i = 0; i < nvar; i++)
          dist += (point[i + k * nvar] - x_int[i + j * nvar]) * (point[i + k * nvar] - x_int[i + j * nvar]);
        dist = sqrt(dist);
        if (dist < min_can)
          min_can = dist;
      }
      if (fabs(min_can - opt) < min_all) {
        min_all = fabs(min_can - opt);
        best = k;
      }
    }
    for (i = 0; i < nvar; i++)
      x_int[i + (count - 1) * nvar] = point[i + best * nvar];
    for (i = 0; i < nvar; i++)
      for (j = 0; j < npoint; j++)
        if (avail[i + j * nvar] == x_int[i + (count - 1) * nvar])
          avail[i + j * nvar] = avail[i + (count - 1) * nvar];
  }
  for (i = 0; i < nvar; i++)
    x_int[i + 0 * nvar] = avail[i + 0 * nvar];
  for (j = 0; j < npoint; j++)
    for (i = 0; i < nvar; i++)
      x_int[i + j * nvar] /= (double)npoint;
  free(avail);
  free(list);
  free(point);
}
```