user: What is the c source code of the assembly code below:

```asm
<BatchInterpolatedGradZ3DTranMirrWarp>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0xb0,%rsp
  mov    %rdi,-0x48(%rbp)
  mov    %rsi,-0x50(%rbp)
  mov    %rdx,-0x58(%rbp)
  mov    %rcx,-0x60(%rbp)
  mov    %r8,-0x68(%rbp)
  movsd  %xmm0,-0x70(%rbp)
  movsd  %xmm1,-0x78(%rbp)
  movsd  %xmm2,-0x80(%rbp)
  mov    %r9,-0x88(%rbp)
  movsd  %xmm3,-0x90(%rbp)
  movsd  %xmm4,-0x98(%rbp)
  movsd  %xmm5,-0xa0(%rbp)
  movsd  %xmm6,-0xa8(%rbp)
  movsd  %xmm7,-0xb0(%rbp)
  movq   $0x0,-0x38(%rbp)
  jmp    L38
L32:
  mov    -0x38(%rbp),%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  addq   $0x1,-0x38(%rbp)
L38:
  pxor   %xmm1,%xmm1
  cvtsi2sdq -0x38(%rbp),%xmm1
  movsd  -0x70(%rbp),%xmm0
  mulsd  -0x90(%rbp),%xmm0
  mulsd  -0xa8(%rbp),%xmm0
  comisd %xmm1,%xmm0
  ja     L32
  movq   $0x0,-0x38(%rbp)
  movq   $0x0,-0x20(%rbp)
  jmp    L47
L50:
  movq   $0x0,-0x28(%rbp)
  jmp    L3
L71:
  movq   $0x0,-0x30(%rbp)
  jmp    L97
L74:
  pxor   %xmm1,%xmm1
  cvtsi2ssq -0x30(%rbp),%xmm1
  mov    -0x38(%rbp),%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x88(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  addss  %xmm1,%xmm0
  cvtss2sd %xmm0,%xmm0
  subsd  -0x78(%rbp),%xmm0
  divsd  -0x80(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  pxor   %xmm1,%xmm1
  cvtsi2ssq -0x28(%rbp),%xmm1
  mov    -0x38(%rbp),%rax
  lea    0x0(,%rax,4),%rdx
  mov    0x10(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  addss  %xmm1,%xmm0
  cvtss2sd %xmm0,%xmm0
  subsd  -0x98(%rbp),%xmm0
  divsd  -0xa0(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  pxor   %xmm1,%xmm1
  cvtsi2ssq -0x20(%rbp),%xmm1
  mov    -0x38(%rbp),%rax
  lea    0x0(,%rax,4),%rdx
  mov    0x20(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  addss  %xmm1,%xmm0
  cvtss2sd %xmm0,%xmm0
  subsd  -0xb0(%rbp),%xmm0
  divsd  0x18(%rbp),%xmm0
  movsd  %xmm0,-0x8(%rbp)
  mov    -0x38(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x38(%rbp)
  lea    0x0(,%rax,4),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm2
  mov    0x28(%rbp),%rcx
  movsd  -0x8(%rbp),%xmm5
  movsd  -0x10(%rbp),%xmm4
  movsd  -0x18(%rbp),%xmm3
  movsd  -0xa8(%rbp),%xmm1
  movsd  -0x90(%rbp),%xmm0
  mov    -0x70(%rbp),%rdx
  mov    -0x48(%rbp),%rax
  mov    %rcx,%rsi
  movapd %xmm5,%xmm6
  movapd %xmm4,%xmm5
  movapd %xmm3,%xmm4
  movaps %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rdx,%xmm0
  mov    %rax,%rdi
  call   <InterpolatedGradZ3DTranMirr@plt>
  addq   $0x1,-0x30(%rbp)
L97:
  mov    -0x30(%rbp),%rax
  cmp    -0x58(%rbp),%rax
  jl     L74
  addq   $0x1,-0x28(%rbp)
L3:
  mov    -0x28(%rbp),%rax
  cmp    -0x60(%rbp),%rax
  jl     L71
  addq   $0x1,-0x20(%rbp)
L47:
  mov    -0x20(%rbp),%rax
  cmp    -0x68(%rbp),%rax
  jl     L50
  movq   $0x0,-0x38(%rbp)
  jmp    L68
L21:
  mov    -0x38(%rbp),%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  cvtss2sd %xmm0,%xmm0
  divsd  0x18(%rbp),%xmm0
  mov    -0x38(%rbp),%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%rax)
  addq   $0x1,-0x38(%rbp)
L68:
  pxor   %xmm1,%xmm1
  cvtsi2sdq -0x38(%rbp),%xmm1
  movsd  -0x70(%rbp),%xmm0
  mulsd  -0x90(%rbp),%xmm0
  mulsd  -0xa8(%rbp),%xmm0
  comisd %xmm1,%xmm0
  ja     L21
  nop
  nop
  leave
  ret
```

assistant: ```c
extern void BatchInterpolatedGradZ3DTranMirrWarp(float *Bout, float *Bcoeff, long Width, long Height, long Slice, double nx, double offx, double mx, float *WarpX, double ny, double offy, double my, float *WarpY, double nz, double offz, double mz, float *WarpZ, long SplineDegree) {
  double x, y, z;
  long idx;
  long idcoordx, idcoordy, idcoordz;
  for (idx = 0; idx < nx * ny * nz; idx++)
    Bout[idx] = 0;
  idx = 0;
  for (idcoordz = 0; idcoordz < Slice; idcoordz++) {
    for (idcoordy = 0; idcoordy < Height; idcoordy++) {
      for (idcoordx = 0; idcoordx < Width; idcoordx++) {
        x = (idcoordx + WarpX[idx] - offx) / mx;
        y = (idcoordy + WarpY[idx] - offy) / my;
        z = (idcoordz + WarpZ[idx] - offz) / mz;
        InterpolatedGradZ3DTranMirr(Bout, nx, ny, nz, Bcoeff[idx++], x, y, z, SplineDegree);
      }
    }
  }
  for (idx = 0; idx < nx * ny * nz; idx++)
    Bout[idx] = Bout[idx] / mz;
}
```