user: 下面的汇编指令对应的C源代码是什么:

```asm
<prediction_em>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    0x70(%rsp),%rax
  mov    %rdi,%rbx
  cmpl   $0x1,(%r9)
  mov    0x38(%rsp),%rdx
  mov    0x4(%rax),%eax
  movq   $0x0,(%rdi)
  setle  %r12b
  movq   $0x0,0x8(%rdi)
  setle  %dil
  cmpl   $0x4,(%rsi)
  movzbl %dil,%edi
  mov    0x48(%rsp),%r10
  mov    0x60(%rsp),%r11
  lea    0x1(%rax),%ebp
  mov    %edi,-0xc(%rsp)
  mov    (%rdx),%edi
  mov    %edi,-0x10(%rsp)
  je     L77
  mov    0x50(%rsp),%rdx
  cmpl   $0x1,(%rdx)
  jle    L41
  mov    -0x10(%rsp),%edx
  test   %edx,%edx
  jle    L100
  mov    %eax,%esi
  sub    -0xc(%rsp),%esi
  mov    %r10,0x48(%rsp)
  xor    %r14d,%r14d
  mov    %rsi,-0x8(%rsp)
  movq   D21(%rip),%xmm3
  xor    %r13d,%r13d
  movzbl %r12b,%r15d
  movsd  D3(%rip),%xmm2
  nopl   0x0(%rax)
L278:
  cmp    -0xc(%rsp),%ebp
  jle    L29
  mov    0x58(%rsp),%rax
  mov    -0x8(%rsp),%rsi
  movslq %r14d,%rcx
  lea    0x1(%r15),%rdx
  mov    0x40(%rsp),%r10
  mov    (%rax),%r9d
  mov    0x68(%rsp),%rax
  lea    (%rsi,%rdx,1),%rdi
  lea    (%rax,%rcx,4),%r12
  shl    $0x3,%rcx
  mov    %r15,%rax
  lea    (%r11,%rcx,1),%rsi
  add    %rcx,%r10
  add    0x48(%rsp),%rcx
  jmp    L61
  nopl   (%rax)
L273:
  movsd  (%r8),%xmm0
  mulsd  (%r10,%rax,8),%xmm0
  movapd %xmm0,%xmm1
  andpd  %xmm3,%xmm1
  comisd %xmm2,%xmm1
  jbe    L42
  mulsd  %xmm2,%xmm0
  divsd  %xmm1,%xmm0
L42:
  test   %eax,%eax
  je     L84
L240:
  addsd  (%rsi,%rax,8),%xmm0
  movsd  %xmm0,(%rcx,%rax,8)
  mov    %rdx,%rax
  cmp    %rdi,%rdx
  je     L29
L55:
  add    $0x1,%rdx
L61:
  test   %r9d,%r9d
  je     L273
  movsd  (%rsi,%rax,8),%xmm0
  movsd  %xmm0,(%rcx,%rax,8)
  mov    %rdx,%rax
  cmp    %rdi,%rdx
  jne    L55
L29:
  add    $0x1,%r13d
  add    %ebp,%r14d
  cmp    -0x10(%rsp),%r13d
  jne    L278
L100:
  mov    0x58(%rsp),%rax
  movl   $0x0,(%rax)
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L41:
  mov    -0x10(%rsp),%r8d
  test   %r8d,%r8d
  jle    L100
  mov    -0xc(%rsp),%r9d
  movzbl %r12b,%r12d
  xor    %esi,%esi
  xor    %ecx,%ecx
  sub    %r9d,%eax
  lea    0x1(%r12,%rax,1),%rdi
  nopl   (%rax)
L241:
  cmp    %r9d,%ebp
  jle    L38
  movslq %esi,%rdx
  lea    (%rdx,%r12,1),%rax
  add    %rdi,%rdx
  shl    $0x3,%rax
  shl    $0x3,%rdx
  nopw   0x0(%rax,%rax,1)
L2:
  movsd  (%r11,%rax,1),%xmm0
  movsd  %xmm0,(%r10,%rax,1)
  add    $0x8,%rax
  cmp    %rdx,%rax
  jne    L2
L38:
  add    $0x1,%ecx
  add    %ebp,%esi
  cmp    %r8d,%ecx
  jne    L241
  jmp    L100
  nopl   0x0(%rax)
L84:
  movapd %xmm0,%xmm1
  andpd  %xmm3,%xmm1
  comisd 0x8(%rbx),%xmm1
  jbe    L240
  cmpl   $0x0,(%r12)
  jle    L240
  movsd  %xmm1,0x8(%rbx)
  jmp    L240
L77:
  test   %edi,%edi
  jle    L100
  mov    %eax,%esi
  sub    -0xc(%rsp),%esi
  xor    %r14d,%r14d
  xor    %r13d,%r13d
  mov    %rsi,-0x8(%rsp)
  movq   D21(%rip),%xmm3
  movzbl %r12b,%r12d
  movsd  D3(%rip),%xmm2
  nopl   (%rax)
L282:
  cmp    -0xc(%rsp),%ebp
  jle    L105
  mov    -0x8(%rsp),%rdi
  mov    0x68(%rsp),%rax
  lea    0x1(%r12),%rdx
  movslq %r14d,%rcx
  lea    (%rdi,%rdx,1),%r9
  mov    0x40(%rsp),%rdi
  lea    (%rax,%rcx,4),%r15
  mov    %r12,%rax
  shl    $0x3,%rcx
  add    %rcx,%rdi
  lea    (%r11,%rcx,1),%rsi
  add    %r10,%rcx
  jmp    L97
  nopl   0x0(%rax)
L144:
  addsd  (%rsi,%rax,8),%xmm0
  movsd  %xmm0,(%rcx,%rax,8)
  mov    %rdx,%rax
  cmp    %r9,%rdx
  je     L105
  add    $0x1,%rdx
L97:
  movsd  (%r8),%xmm0
  mulsd  (%rdi,%rax,8),%xmm0
  movapd %xmm0,%xmm1
  andpd  %xmm3,%xmm1
  comisd %xmm2,%xmm1
  jbe    L162
  mulsd  %xmm2,%xmm0
  divsd  %xmm1,%xmm0
L162:
  test   %eax,%eax
  jne    L144
  movapd %xmm0,%xmm1
  andpd  %xmm3,%xmm1
  comisd 0x8(%rbx),%xmm1
  jbe    L144
  cmpl   $0x0,(%r15)
  jle    L144
  movsd  %xmm1,0x8(%rbx)
  jmp    L144
  cs nopw 0x0(%rax,%rax,1)
L105:
  add    $0x1,%r13d
  add    %ebp,%r14d
  cmp    -0x10(%rsp),%r13d
  jne    L282
  jmp    L100
```

tool_calls: name: retrieve_data
arguments: data_tag: D21
data_type: qword
name: retrieve_data
arguments: data_tag: D3
data_type: f64

tool: D21: 9223372036854775807

tool: D3: 100

assistant: ```c
void prediction_em(double *uam, int *nmethod, double *bet, double *gam, double *dtime, int *ithermal, int *nk, double *veold, double *v, int *iinc, int *idiscon, double *vold, int *nactdof, int *mi) {
  int j, k, mt = mi[1] + 1, jstart;
  double dextrapol;
  uam[0] = 0.;
  uam[1] = 0.;
  if (*ithermal < 2) {
    jstart = 1;
  } else {
    jstart = 0;
  }
  if (*nmethod == 4) {
    for (k = 0; k < *nk; ++k) {
      for (j = jstart; j < mt; j++) {
        dextrapol = *dtime * veold[mt * k + j];
        if (fabs(dextrapol) > 100.)
          dextrapol = 100. * dextrapol / fabs(dextrapol);
        if (j == 0) {
          if ((fabs(dextrapol) > uam[1]) && (nactdof[mt * k] > 0)) {
            uam[1] = fabs(dextrapol);
          }
        }
        v[mt * k + j] = vold[mt * k + j] + dextrapol;
      }
    }
  } else {
    if (*iinc > 1) {
      for (k = 0; k < *nk; ++k) {
        for (j = jstart; j < mt; j++) {
          if (*idiscon == 0) {
            dextrapol = *dtime * veold[mt * k + j];
            if (fabs(dextrapol) > 100.)
              dextrapol = 100. * dextrapol / fabs(dextrapol);
            if (j == 0) {
              if ((fabs(dextrapol) > uam[1]) && (nactdof[mt * k] > 0)) {
                uam[1] = fabs(dextrapol);
              }
            }
            v[mt * k + j] = vold[mt * k + j] + dextrapol;
          } else {
            v[mt * k + j] = vold[mt * k + j];
          }
        }
      }
    } else {
      for (k = 0; k < *nk; ++k) {
        for (j = jstart; j < mt; j++) {
          v[mt * k + j] = vold[mt * k + j];
        }
      }
    }
  }
  *idiscon = 0;
  return;
}
```