user: 请显示与下面列出的汇编代码相匹配的C语言实现:

```asm
<solve_model>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x250,%rsp
  mov    %rdi,-0x238(%rbp)
  mov    %rsi,-0x240(%rbp)
  mov    %rdx,-0x248(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  mov    -0x238(%rbp),%rax
  movss  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  comiss %xmm1,%xmm0
  jbe    L82
  mov    -0x238(%rbp),%rax
  add    $0x4,%rax
  movss  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  comiss %xmm1,%xmm0
  jbe    L82
  mov    -0x238(%rbp),%rax
  add    $0x4,%rax
  movss  (%rax),%xmm1
  movss  D82(%rip),%xmm0
  comiss %xmm1,%xmm0
  jbe    L82
  mov    -0x238(%rbp),%rax
  add    $0x8,%rax
  movss  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  comiss %xmm1,%xmm0
  jbe    L82
  mov    -0x238(%rbp),%rax
  add    $0x8,%rax
  movss  (%rax),%xmm1
  movss  D82(%rip),%xmm0
  comiss %xmm1,%xmm0
  jbe    L82
  mov    -0x238(%rbp),%rax
  add    $0xc,%rax
  movss  (%rax),%xmm0
  cvtss2sd %xmm0,%xmm0
  comisd D105(%rip),%xmm0
  jbe    L82
  mov    -0x238(%rbp),%rax
  add    $0x10,%rax
  movss  (%rax),%xmm0
  cvtss2sd %xmm0,%xmm0
  comisd D105(%rip),%xmm0
  jbe    L82
  mov    $0x1,%esi
  mov    $0x200,%edi
  call   <calloc@plt>
  mov    %rax,-0x220(%rbp)
  mov    -0x240(%rbp),%rdx
  lea    -0x210(%rbp),%rax
  lea    D41(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  mov    -0x238(%rbp),%rax
  add    $0x10,%rax
  movss  (%rax),%xmm0
  pxor   %xmm3,%xmm3
  cvtss2sd %xmm0,%xmm3
  mov    -0x238(%rbp),%rax
  add    $0xc,%rax
  movss  (%rax),%xmm0
  pxor   %xmm2,%xmm2
  cvtss2sd %xmm0,%xmm2
  mov    -0x238(%rbp),%rax
  add    $0x8,%rax
  movss  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  cvtss2sd %xmm0,%xmm1
  mov    -0x238(%rbp),%rax
  add    $0x4,%rax
  movss  (%rax),%xmm0
  cvtss2sd %xmm0,%xmm0
  mov    -0x238(%rbp),%rax
  movss  (%rax),%xmm4
  pxor   %xmm6,%xmm6
  cvtss2sd %xmm4,%xmm6
  movq   %xmm6,%rsi
  lea    -0x210(%rbp),%rcx
  mov    -0x240(%rbp),%rdx
  mov    -0x220(%rbp),%rax
  movapd %xmm3,%xmm4
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rsi,%xmm0
  lea    D20(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x5,%eax
  call   <sprintf@plt>
  mov    -0x220(%rbp),%rax
  mov    %rax,%rdi
  call   <system@plt>
  lea    -0x210(%rbp),%rax
  lea    D60(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <fopen@plt>
  mov    %rax,-0x218(%rbp)
  cmpq   $0x0,-0x218(%rbp)
  jne    L11
  lea    D23(%rip),%rax
  mov    %rax,%rdi
  call   <nrerror@plt>
L11:
  lea    -0x224(%rbp),%rdx
  mov    -0x218(%rbp),%rax
  lea    D80(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <fscanf@plt>
  mov    -0x218(%rbp),%rax
  mov    %rax,%rdi
  call   <fclose@plt>
  movss  -0x224(%rbp),%xmm4
  mov    -0x238(%rbp),%rax
  add    $0x10,%rax
  movss  (%rax),%xmm3
  mov    -0x238(%rbp),%rax
  add    $0xc,%rax
  movss  (%rax),%xmm2
  mov    -0x238(%rbp),%rax
  add    $0x8,%rax
  movss  (%rax),%xmm1
  mov    -0x238(%rbp),%rax
  add    $0x4,%rax
  movss  (%rax),%xmm0
  mov    -0x238(%rbp),%rax
  mov    (%rax),%edx
  mov    -0x248(%rbp),%rax
  movaps %xmm4,%xmm5
  movaps %xmm3,%xmm4
  movaps %xmm2,%xmm3
  movaps %xmm1,%xmm2
  movaps %xmm0,%xmm1
  movd   %edx,%xmm0
  lea    D36(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <fprintf@plt>
  mov    -0x220(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  jmp    L67
L82:
  movss  D16(%rip),%xmm0
  movss  %xmm0,-0x224(%rbp)
  movss  -0x224(%rbp),%xmm4
  mov    -0x238(%rbp),%rax
  add    $0x10,%rax
  movss  (%rax),%xmm3
  mov    -0x238(%rbp),%rax
  add    $0xc,%rax
  movss  (%rax),%xmm2
  mov    -0x238(%rbp),%rax
  add    $0x8,%rax
  movss  (%rax),%xmm1
  mov    -0x238(%rbp),%rax
  add    $0x4,%rax
  movss  (%rax),%xmm0
  mov    -0x238(%rbp),%rax
  mov    (%rax),%edx
  mov    -0x248(%rbp),%rax
  movaps %xmm4,%xmm5
  movaps %xmm3,%xmm4
  movaps %xmm2,%xmm3
  movaps %xmm1,%xmm2
  movaps %xmm0,%xmm1
  movd   %edx,%xmm0
  lea    D39(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <fprintf@plt>
L67:
  mov    -0x248(%rbp),%rax
  mov    %rax,%rdi
  call   <fflush@plt>
  movss  -0x224(%rbp),%xmm0
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L25
  call   <__stack_chk_fail@plt>
L25:
  leave
  ret
```

tool_calls: name: unpack_data
arguments: tag: D82
type: byte[4]
name: unpack_data
arguments: tag: D105
type: f64
name: unpack_data
arguments: tag: D41
type: string
name: unpack_data
arguments: tag: D20
type: string
name: unpack_data
arguments: tag: D60
type: string
name: unpack_data
arguments: tag: D23
type: string
name: unpack_data
arguments: tag: D80
type: string
name: unpack_data
arguments: tag: D36
type: string
name: unpack_data
arguments: tag: D16
type: byte[4]
name: unpack_data
arguments: tag: D39
type: string

tool: {"D82": [0x00,0x00,0x80,0x3f]}

tool: D105: 0.1

tool: D41: R2.simp.%s.txt

tool: D20: %s %f %f %f %f %f %s

tool: D60: r

tool: D23: Unable to open Rsquared file

tool: D80: %f

tool: D36: Rsquared (%f,%f,%f,%f,%f) = %f


tool: {"D16": [0x00,0x00,0x20,0x41]}

tool: D39: Invalid Parameter Set (%f,%f,%f,%f,%f) -> returning %f


assistant: ```c
float solve_model(float *p, char *runstr, FILE *fopti) {
  FILE *fin;
  char *cmdstr;
  char filename[512];
  float Rsqr;
  int i, j;
  if ((p[0] > 0) && (p[1] > 0 && p[1] < 1) && (p[2] > 0 && p[2] < 1) && (p[3] > 0.10) && (p[4] > 0.10)) {
    cmdstr = (char *)calloc(512, sizeof(char));
    sprintf(filename, "R2.simp.%s.txt", runstr);
    sprintf(cmdstr, "%s %f %f %f %f %f %s", runstr, p[0], p[1], p[2], p[3], p[4], filename);
    system(cmdstr);
    if ((fin = fopen(filename, "r")) == NULL) {
      nrerror("Unable to open Rsquared file");
    }
    fscanf(fin, "%f", &Rsqr);
    fclose(fin);
    fprintf(fopti, "Rsquared (%f,%f,%f,%f,%f) = %f\n", p[0], p[1], p[2], p[3], p[4], Rsqr);
    free((char *)cmdstr);
  } else {
    Rsqr = (float)10;
    fprintf(fopti, "Invalid Parameter Set (%f,%f,%f,%f,%f) -> returning %f\n", p[0], p[1], p[2], p[3], p[4], Rsqr);
  }
  fflush(fopti);
  return (Rsqr);
}
```