user: 请将以下的汇编代码转换成C语言代码：

```asm
<palDmat>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x38,%rsp
  mov    %edi,-0x84(%rbp)
  mov    %rsi,-0x90(%rbp)
  mov    %rdx,-0x98(%rbp)
  mov    %rcx,-0xa0(%rbp)
  mov    %r8,-0xa8(%rbp)
  mov    %r9,-0xb0(%rbp)
  movsd  D1(%rip),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  mov    -0xa8(%rbp),%rax
  movl   $0x0,(%rax)
  mov    -0xa0(%rbp),%rax
  movsd  D44(%rip),%xmm0
  movsd  %xmm0,(%rax)
  movl   $0x0,-0x78(%rbp)
  mov    -0x90(%rbp),%rax
  mov    %rax,-0x58(%rbp)
  jmp    L215
L246:
  mov    -0x58(%rbp),%rax
  mov    %rax,-0x50(%rbp)
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D75(%rip),%xmm1
  andpd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  mov    -0x78(%rbp),%eax
  mov    %eax,-0x74(%rbp)
  mov    -0x78(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  je     L94
  mov    -0x78(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x70(%rbp)
  mov    -0x84(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  mov    %rax,-0x40(%rbp)
  jmp    L306
L313:
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D75(%rip),%xmm1
  andpd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x18(%rbp),%xmm0
  comisd -0x48(%rbp),%xmm0
  jbe    L203
  movsd  -0x18(%rbp),%xmm0
  movsd  %xmm0,-0x48(%rbp)
  mov    -0x70(%rbp),%eax
  mov    %eax,-0x74(%rbp)
  mov    -0x40(%rbp),%rax
  mov    %rax,-0x50(%rbp)
L203:
  addl   $0x1,-0x70(%rbp)
  mov    -0x84(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rax,-0x40(%rbp)
L306:
  mov    -0x70(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L313
L94:
  movsd  -0x28(%rbp),%xmm0
  comisd -0x48(%rbp),%xmm0
  jbe    L65
  mov    -0xa8(%rbp),%rax
  movl   $0xffffffff,(%rax)
  jmp    L287
L65:
  mov    -0x74(%rbp),%eax
  cmp    -0x78(%rbp),%eax
  je     L208
  movl   $0x0,-0x6c(%rbp)
  jmp    L291
L4:
  mov    -0x6c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x6c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rax,%rdx
  mov    -0x6c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x58(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x6c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x10(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x6c(%rbp)
L291:
  mov    -0x6c(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L4
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x74(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rax,%rdx
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x98(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x74(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x10(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0xa0(%rbp),%rax
  movsd  (%rax),%xmm0
  movq   D25(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mov    -0xa0(%rbp),%rax
  movsd  %xmm0,(%rax)
L208:
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0xb0(%rbp),%rax
  add    %rax,%rdx
  mov    -0x74(%rbp),%eax
  mov    %eax,(%rdx)
  mov    -0xa0(%rbp),%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  mov    -0xa0(%rbp),%rax
  movsd  %xmm0,(%rax)
  mov    -0xa0(%rbp),%rax
  movsd  (%rax),%xmm0
  movq   D75(%rip),%xmm1
  andpd  %xmm0,%xmm1
  movsd  -0x28(%rbp),%xmm0
  comisd %xmm1,%xmm0
  jbe    L289
  mov    -0xa8(%rbp),%rax
  movl   $0xffffffff,(%rax)
  jmp    L287
L289:
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  D44(%rip),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  movl   $0x0,-0x64(%rbp)
  jmp    L113
L163:
  mov    -0x64(%rbp),%eax
  cmp    -0x78(%rbp),%eax
  je     L218
  mov    -0x64(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x64(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
L218:
  addl   $0x1,-0x64(%rbp)
L113:
  mov    -0x64(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L163
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  movl   $0x0,-0x68(%rbp)
  mov    -0x90(%rbp),%rax
  mov    %rax,-0x38(%rbp)
  jmp    L107
L280:
  mov    -0x68(%rbp),%eax
  cmp    -0x78(%rbp),%eax
  je     L108
  movl   $0x0,-0x64(%rbp)
  jmp    L188
L19:
  mov    -0x64(%rbp),%eax
  cmp    -0x78(%rbp),%eax
  je     L184
  mov    -0x64(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm2
  mov    -0x64(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mulsd  %xmm2,%xmm1
  mov    -0x64(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
L184:
  addl   $0x1,-0x64(%rbp)
L188:
  mov    -0x64(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L19
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mulsd  -0x8(%rbp),%xmm1
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
L108:
  addl   $0x1,-0x68(%rbp)
  mov    -0x84(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rax,-0x38(%rbp)
L107:
  mov    -0x68(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L280
  movl   $0x0,-0x68(%rbp)
  mov    -0x90(%rbp),%rax
  mov    %rax,-0x38(%rbp)
  jmp    L82
L131:
  mov    -0x68(%rbp),%eax
  cmp    -0x78(%rbp),%eax
  je     L126
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D25(%rip),%xmm2
  xorpd  %xmm2,%xmm0
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
L126:
  addl   $0x1,-0x68(%rbp)
  mov    -0x84(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rax,-0x38(%rbp)
L82:
  mov    -0x68(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L131
L287:
  addl   $0x1,-0x78(%rbp)
  mov    -0x84(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rax,-0x58(%rbp)
L215:
  mov    -0x78(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L246
  mov    -0xa8(%rbp),%rax
  mov    (%rax),%eax
  test   %eax,%eax
  je     L16
  mov    -0xa0(%rbp),%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  jmp    L66
L16:
  mov    -0x84(%rbp),%eax
  mov    %eax,-0x78(%rbp)
  jmp    L182
L144:
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0xb0(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%eax
  mov    %eax,-0x5c(%rbp)
  mov    -0x78(%rbp),%eax
  cmp    -0x5c(%rbp),%eax
  je     L182
  mov    -0x90(%rbp),%rax
  mov    %rax,-0x30(%rbp)
  movl   $0x0,-0x60(%rbp)
  jmp    L55
L245:
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  mov    -0x5c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rax,%rdx
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x30(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x5c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x60(%rbp)
  mov    -0x84(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rax,-0x30(%rbp)
L55:
  mov    -0x60(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L245
L182:
  mov    -0x78(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    %edx,-0x78(%rbp)
  test   %eax,%eax
  jg     L144
L66:
  nop
  leave
  ret
```

tool_calls: name: unpack_data
arguments: data_tag: D1
datatype: byte[8]
name: unpack_data
arguments: data_tag: D44
datatype: f64
name: unpack_data
arguments: data_tag: D75
datatype: qword
name: unpack_data
arguments: data_tag: D25
datatype: f32[2]

tool: {"D1": [0x23,0x42,0x92,0x0c,0xa1,0x9c,0xc7,0x3b]}

tool: D44: 1

tool: D75: 9223372036854775807

tool: {"D25": [0.0,-0.0]}

assistant: ```c
void palDmat(int n, double *a, double *y, double *d, int *jf, int *iw) {
  const double SFA = 1e-20;
  int k;
  double *aoff;
  *jf = 0;
  *d = 1.0;
  for (k = 0, aoff = a; k < n; k++, aoff += n) {
    int imx;
    double *aoff2 = aoff;
    double amx = fabs(aoff[k]);
    imx = k;
    if (k != n) {
      int i;
      double *apos2;
      for (i = k + 1, apos2 = aoff + n; i < n; i++, apos2 += n) {
        double t = fabs(apos2[k]);
        if (t > amx) {
          amx = t;
          imx = i;
          aoff2 = apos2;
        }
      }
    }
    if (amx < SFA) {
      *jf = -1;
    } else {
      if (imx != k) {
        double t;
        int j;
        for (j = 0; j < n; j++) {
          t = aoff[j];
          aoff[j] = aoff2[j];
          aoff2[j] = t;
        }
        t = y[k];
        y[k] = y[imx];
        y[imx] = t;
        *d = -*d;
      }
      iw[k] = imx;
      *d *= aoff[k];
      if (fabs(*d) < SFA) {
        *jf = -1;
      } else {
        double yk;
        double *apos2;
        int i, j;
        aoff[k] = 1.0 / aoff[k];
        for (j = 0; j < n; j++) {
          if (j != k) {
            aoff[j] *= aoff[k];
          }
        }
        yk = y[k] * aoff[k];
        y[k] = yk;
        for (i = 0, apos2 = a; i < n; i++, apos2 += n) {
          if (i != k) {
            for (j = 0; j < n; j++) {
              if (j != k) {
                apos2[j] -= apos2[k] * aoff[j];
              }
            }
            y[i] -= apos2[k] * yk;
          }
        }
        for (i = 0, apos2 = a; i < n; i++, apos2 += n) {
          if (i != k) {
            apos2[k] *= -aoff[k];
          }
        }
      }
    }
  }
  if (*jf != 0) {
    *d = 0.0;
  } else {
    for (k = n; k-- > 0;) {
      int ki = iw[k];
      if (k != ki) {
        int i;
        double *apos = a;
        for (i = 0; i < n; i++, apos += n) {
          double t = apos[k];
          apos[k] = apos[ki];
          apos[ki] = t;
        }
      }
    }
  }
}
```