user: 请从给定的汇编指令推导出C源代码：

```asm
<quikgray>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x90,%rsp
  mov    %rdi,-0x78(%rbp)
  mov    %esi,-0x7c(%rbp)
  mov    %edx,-0x80(%rbp)
  mov    %ecx,-0x84(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movl   $0x0,-0x30(%rbp)
  movl   $0x1,-0x2c(%rbp)
  movl   $0x14,-0x28(%rbp)
  movl   $0x15,-0x24(%rbp)
  movl   $0x2,-0x20(%rbp)
  movl   $0x3,-0x1c(%rbp)
  movl   $0x11,-0x18(%rbp)
  movl   $0x12,-0x14(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x58(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x54(%rbp)
  movss  D7(%rip),%xmm0
  movss  %xmm0,-0x50(%rbp)
  movss  D25(%rip),%xmm0
  movss  %xmm0,-0x4c(%rbp)
  movl   $0x1,-0x5c(%rbp)
  movl   $0x0,-0x44(%rbp)
  jmp    L20
L92:
  mov    -0x44(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x78(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  movss  %xmm0,-0x34(%rbp)
  movss  -0x58(%rbp),%xmm0
  addss  -0x34(%rbp),%xmm0
  movss  %xmm0,-0x58(%rbp)
  movss  -0x34(%rbp),%xmm0
  mulss  %xmm0,%xmm0
  movss  -0x54(%rbp),%xmm1
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x54(%rbp)
  movss  -0x34(%rbp),%xmm0
  comiss -0x4c(%rbp),%xmm0
  jbe    L80
  movss  -0x34(%rbp),%xmm0
  movss  %xmm0,-0x4c(%rbp)
L80:
  movss  -0x50(%rbp),%xmm0
  comiss -0x34(%rbp),%xmm0
  jbe    L127
  movss  -0x34(%rbp),%xmm0
  movss  %xmm0,-0x50(%rbp)
L127:
  addl   $0x1,-0x44(%rbp)
L20:
  mov    -0x7c(%rbp),%eax
  imul   -0x80(%rbp),%eax
  cmp    %eax,-0x44(%rbp)
  jl     L92
  mov    -0x7c(%rbp),%eax
  imul   -0x80(%rbp),%eax
  pxor   %xmm1,%xmm1
  cvtsi2ss %eax,%xmm1
  movss  -0x58(%rbp),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x58(%rbp)
  mov    -0x7c(%rbp),%eax
  imul   -0x80(%rbp),%eax
  pxor   %xmm2,%xmm2
  cvtsi2ss %eax,%xmm2
  movss  -0x54(%rbp),%xmm0
  movaps %xmm0,%xmm1
  divss  %xmm2,%xmm1
  movss  -0x58(%rbp),%xmm0
  mulss  %xmm0,%xmm0
  subss  %xmm0,%xmm1
  movd   %xmm1,%eax
  movd   %eax,%xmm0
  call   <sqrt@plt>
  movd   %xmm0,%eax
  mov    %eax,-0x48(%rbp)
  movss  -0x48(%rbp),%xmm1
  movss  D2(%rip),%xmm0
  mulss  %xmm1,%xmm0
  addss  -0x58(%rbp),%xmm0
  comiss -0x4c(%rbp),%xmm0
  jbe    L74
  movss  -0x4c(%rbp),%xmm0
  subss  -0x58(%rbp),%xmm0
  movss  D2(%rip),%xmm1
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x48(%rbp)
L74:
  movl   $0x0,-0x3c(%rbp)
  jmp    L89
L1:
  movl   $0x0,-0x40(%rbp)
  movl   $0x0,-0x44(%rbp)
  jmp    L68
L37:
  addl   $0x1,-0x40(%rbp)
  mov    -0x40(%rbp),%eax
  cmp    -0x7c(%rbp),%eax
  jne    L108
  movl   $0x0,-0x40(%rbp)
L108:
  mov    -0x3c(%rbp),%eax
  imul   -0x7c(%rbp),%eax
  mov    %eax,%edx
  mov    -0x40(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x78(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  subss  -0x58(%rbp),%xmm0
  divss  -0x48(%rbp),%xmm0
  cvttss2si %xmm0,%eax
  mov    %eax,-0x38(%rbp)
  cmpl   $0x7,-0x38(%rbp)
  jle    L15
  movl   $0x7,-0x38(%rbp)
L15:
  pxor   %xmm1,%xmm1
  cvtsi2ssl -0x44(%rbp),%xmm1
  movss  D9(%rip),%xmm0
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x64(%rbp)
  pxor   %xmm1,%xmm1
  cvtsi2ssl -0x3c(%rbp),%xmm1
  movss  D9(%rip),%xmm0
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x60(%rbp)
  cmpl   $0x0,-0x38(%rbp)
  jle    L57
  mov    -0x38(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  lea    -0x30(%rbp),%rax
  lea    (%rax,%rdx,1),%rcx
  lea    -0x60(%rbp),%rdx
  lea    -0x64(%rbp),%rsi
  lea    -0x5c(%rbp),%rax
  mov    %rax,%rdi
  call   <pgpt_@plt>
L57:
  addl   $0x1,-0x44(%rbp)
L68:
  mov    -0x44(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L37
  addl   $0x1,-0x3c(%rbp)
L89:
  mov    -0x3c(%rbp),%eax
  cmp    -0x80(%rbp),%eax
  jl     L1
  nop
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L102
  call   <__stack_chk_fail@plt>
L102:
  leave
  ret
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D7
type_infered: f32
name: extract_symbolic_data
arguments: data_tag: D25
type_infered: byte[4]
name: extract_symbolic_data
arguments: data_tag: D2
type_infered: f32
name: extract_symbolic_data
arguments: data_tag: D9
type_infered: byte[4]

tool: D7: 1e+30

tool: {"D25": [0xca,0xf2,0x49,0xf1]}

tool: D2: 7

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

assistant: ```c
void quikgray(float *dat, int nx, int ny, int nxx) {
  int ksym[8] = {0, 1, 20, 21, 2, 3, 17, 18};
  float s = 0.;
  float ss = 0.;
  float smin = 1.e30;
  float smax = -1.e30;
  float aa, rms, x, y;
  int i, ii, j, k;
  int one = 1;
  for (i = 0; i < nx * ny; i = i + 1) {
    aa = dat[i];
    s = s + aa;
    ss = ss + aa * aa;
    if (aa > smax)
      smax = aa;
    if (aa < smin)
      smin = aa;
  }
  s = s / (float)(nx * ny);
  rms = sqrt(ss / (float)(nx * ny) - s * s);
  if (s + 7 * rms > smax)
    rms = (smax - s) / 7.0;
  for (j = 0; j < ny; j = j + 1) {
    ii = 0;
    for (i = 0; i < nxx; i = i + 1) {
      ii = ii + 1;
      if (ii == nx)
        ii = 0;
      k = (int)((dat[(int)(j * nx + ii)] - s) / rms);
      if (k > 7)
        k = 7;
      x = (float)i + 1;
      y = (float)j + 1;
      if (k > 0)
        pgpt_(&one, &x, &y, ksym + k);
    }
  }
}
```