user: Converte this assembly snippet into its equivalent C code:

```asm
<frprmn>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  add    $0xffffffffffffff80,%rsp
  mov    %rdi,-0x38(%rbp)
  mov    %esi,-0x3c(%rbp)
  movss  %xmm0,-0x40(%rbp)
  mov    %rdx,-0x48(%rbp)
  mov    %rcx,-0x50(%rbp)
  mov    %r8,-0x58(%rbp)
  mov    %r9,-0x60(%rbp)
  mov    -0x3c(%rbp),%eax
  mov    %eax,%esi
  mov    $0x1,%edi
  call   <vector@plt>
  mov    %rax,-0x18(%rbp)
  mov    -0x3c(%rbp),%eax
  mov    %eax,%esi
  mov    $0x1,%edi
  call   <vector@plt>
  mov    %rax,-0x10(%rbp)
  mov    -0x3c(%rbp),%eax
  mov    %eax,%esi
  mov    $0x1,%edi
  call   <vector@plt>
  mov    %rax,-0x8(%rbp)
  mov    -0x38(%rbp),%rax
  mov    -0x58(%rbp),%rdx
  mov    %rax,%rdi
  call   *%rdx
  movd   %xmm0,%eax
  mov    %eax,-0x24(%rbp)
  mov    -0x8(%rbp),%rdx
  mov    -0x38(%rbp),%rax
  mov    -0x60(%rbp),%rcx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   *%rcx
  movl   $0x1,-0x30(%rbp)
  jmp    L66
L23:
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  movss  D39(%rip),%xmm1
  xorps  %xmm1,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x18(%rbp),%rax
  add    %rax,%rdx
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rcx
  mov    -0x10(%rbp),%rax
  add    %rcx,%rax
  movss  (%rdx),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x30(%rbp),%edx
  movslq %edx,%rdx
  lea    0x0(,%rdx,4),%rcx
  mov    -0x8(%rbp),%rdx
  add    %rcx,%rdx
  movss  (%rax),%xmm0
  movss  %xmm0,(%rdx)
  addl   $0x1,-0x30(%rbp)
L66:
  mov    -0x30(%rbp),%eax
  cmp    -0x3c(%rbp),%eax
  jle    L23
  movl   $0x1,-0x2c(%rbp)
  jmp    L85
L110:
  mov    -0x48(%rbp),%rax
  mov    -0x2c(%rbp),%edx
  mov    %edx,(%rax)
  mov    -0x58(%rbp),%rdi
  mov    -0x50(%rbp),%rcx
  mov    -0x3c(%rbp),%edx
  mov    -0x8(%rbp),%rsi
  mov    -0x38(%rbp),%rax
  mov    %rdi,%r8
  mov    %rax,%rdi
  call   <linmin@plt>
  mov    -0x50(%rbp),%rax
  movss  (%rax),%xmm0
  subss  -0x24(%rbp),%xmm0
  movd   %xmm0,%eax
  movd   %eax,%xmm0
  call   <fabs@plt>
  addsd  %xmm0,%xmm0
  movsd  %xmm0,-0x68(%rbp)
  pxor   %xmm3,%xmm3
  cvtss2sd -0x40(%rbp),%xmm3
  movsd  %xmm3,-0x70(%rbp)
  mov    -0x50(%rbp),%rax
  mov    (%rax),%eax
  movd   %eax,%xmm0
  call   <fabs@plt>
  movsd  %xmm0,-0x78(%rbp)
  mov    -0x24(%rbp),%eax
  movd   %eax,%xmm0
  call   <fabs@plt>
  movsd  -0x78(%rbp),%xmm1
  addsd  %xmm0,%xmm1
  movsd  D5(%rip),%xmm0
  addsd  %xmm1,%xmm0
  mulsd  -0x70(%rbp),%xmm0
  comisd -0x68(%rbp),%xmm0
  jb     L18
  mov    -0x3c(%rbp),%edx
  mov    -0x8(%rbp),%rax
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  mov    -0x3c(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  mov    -0x3c(%rbp),%edx
  mov    -0x18(%rbp),%rax
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  jmp    L12
L18:
  mov    -0x50(%rbp),%rax
  movss  (%rax),%xmm0
  movss  %xmm0,-0x24(%rbp)
  mov    -0x8(%rbp),%rdx
  mov    -0x38(%rbp),%rax
  mov    -0x60(%rbp),%rcx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   *%rcx
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x28(%rbp)
  movss  -0x28(%rbp),%xmm0
  movss  %xmm0,-0x20(%rbp)
  movl   $0x1,-0x30(%rbp)
  jmp    L69
L33:
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm1
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  mulss  %xmm1,%xmm0
  movss  -0x28(%rbp),%xmm1
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x28(%rbp)
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm1
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  addss  %xmm0,%xmm1
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  mulss  %xmm1,%xmm0
  movss  -0x20(%rbp),%xmm1
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x20(%rbp)
  addl   $0x1,-0x30(%rbp)
L69:
  mov    -0x30(%rbp),%eax
  cmp    -0x3c(%rbp),%eax
  jle    L33
  pxor   %xmm0,%xmm0
  ucomiss -0x28(%rbp),%xmm0
  jp     L107
  pxor   %xmm0,%xmm0
  ucomiss -0x28(%rbp),%xmm0
  jne    L107
  mov    -0x3c(%rbp),%edx
  mov    -0x8(%rbp),%rax
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  mov    -0x3c(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  mov    -0x3c(%rbp),%edx
  mov    -0x18(%rbp),%rax
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  jmp    L12
L107:
  movss  -0x20(%rbp),%xmm0
  divss  -0x28(%rbp),%xmm0
  movss  %xmm0,-0x1c(%rbp)
  movl   $0x1,-0x30(%rbp)
  jmp    L31
L10:
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  movss  D39(%rip),%xmm1
  xorps  %xmm1,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm1
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x10(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  mulss  -0x1c(%rbp),%xmm0
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x10(%rbp),%rax
  add    %rdx,%rax
  addss  %xmm1,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x30(%rbp),%edx
  movslq %edx,%rdx
  lea    0x0(,%rdx,4),%rcx
  mov    -0x8(%rbp),%rdx
  add    %rcx,%rdx
  movss  (%rax),%xmm0
  movss  %xmm0,(%rdx)
  addl   $0x1,-0x30(%rbp)
L31:
  mov    -0x30(%rbp),%eax
  cmp    -0x3c(%rbp),%eax
  jle    L10
  addl   $0x1,-0x2c(%rbp)
L85:
  cmpl   $0xc8,-0x2c(%rbp)
  jle    L110
  lea    D14(%rip),%rax
  mov    %rax,%rdi
  call   <nrerror@plt>
L12:
  leave
  ret
```

tool_calls: name: unpack_data
arguments: data_label: D39
type_guessed: byte[4]
name: unpack_data
arguments: data_label: D5
type_guessed: byte[8]
name: unpack_data
arguments: data_label: D14
type_guessed: string

tool: {"D39": [0x00,0x00,0x00,0x80]}

tool: {"D5": [0xbb,0xbd,0xd7,0xd9,0xdf,0x7c,0xdb,0x3d]}

tool: D14: Too many iterations in frprmn

assistant: ```c
void frprmn(float p[], int n, float ftol, int *iter, float *fret, float (*func)(float[]), void (*dfunc)(float[], float[])) {
  void linmin(float p[], float xi[], int n, float *fret, float (*func)(float[]));
  int j, its;
  float gg, gam, fp, dgg;
  float *g, *h, *xi;
  g = vector(1, n);
  h = vector(1, n);
  xi = vector(1, n);
  fp = (*func)(p);
  (*dfunc)(p, xi);
  for (j = 1; j <= n; j++) {
    g[j] = -xi[j];
    xi[j] = h[j] = g[j];
  }
  for (its = 1; its <= 200; its++) {
    *iter = its;
    linmin(p, xi, n, fret, func);
    if (2.0 * fabs(*fret - fp) <= ftol * (fabs(*fret) + fabs(fp) + 1.0e-10)) {
      free_vector(xi, 1, n);
      free_vector(h, 1, n);
      free_vector(g, 1, n);
      return;
    }
    fp = *fret;
    (*dfunc)(p, xi);
    dgg = gg = 0.0;
    for (j = 1; j <= n; j++) {
      gg += g[j] * g[j];
      dgg += (xi[j] + g[j]) * xi[j];
    }
    if (gg == 0.0) {
      free_vector(xi, 1, n);
      free_vector(h, 1, n);
      free_vector(g, 1, n);
      return;
    }
    gam = dgg / gg;
    for (j = 1; j <= n; j++) {
      g[j] = -xi[j];
      xi[j] = h[j] = g[j] + gam * h[j];
    }
  }
  nrerror("Too many iterations in frprmn");
}
```