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

```asm
<implicit_precalc_3Dz>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  mov    %r9d,%r13d
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x78,%rsp
  movslq 0xb0(%rsp),%rbx
  mov    0xb8(%rsp),%r12d
  mov    %rdi,0x48(%rsp)
  mov    0xc0(%rsp),%eax
  mov    %rsi,0x50(%rsp)
  lea    0x0(,%rbx,8),%ebp
  mov    %rdx,0x58(%rsp)
  mov    %ebp,%edi
  mov    %rcx,0x60(%rsp)
  mov    %r9d,0x2c(%rsp)
  movsd  %xmm0,0x30(%rsp)
  mov    %r12d,0x38(%rsp)
  mov    %eax,0x40(%rsp)
  mov    %ebx,0x8(%rsp)
  call   <malloc@plt>
  mov    %ebp,%edi
  mov    %rax,0x18(%rsp)
  call   <malloc@plt>
  mov    %ebp,%edi
  mov    %rax,0x10(%rsp)
  call   <malloc@plt>
  mov    %ebp,%edi
  mov    %rax,%r15
  call   <malloc@plt>
  mov    %ebp,%edi
  mov    %rax,%r14
  call   <malloc@plt>
  mov    0x8(%rsp),%edi
  mov    %rax,0x68(%rsp)
  call   <tridiag_malloc@plt>
  mov    0x40(%rsp),%eax
  mov    0x10(%rsp),%rsi
  mov    0x18(%rsp),%r10
  cmp    %eax,%r12d
  jge    L46
  mov    %r13d,%eax
  mov    0x8(%rsp),%r9d
  mov    %r15,%rdx
  mov    %r14,%rcx
  imul   %eax,%r12d
  lea    0x0(,%rbx,8),%r11
  mov    %rsi,%r15
  mov    %r10,%r14
  imul   %r9d,%r13d
  mov    %r12d,%eax
  imul   %r9d,%eax
  mov    %r13d,0x44(%rsp)
  mov    %eax,0x3c(%rsp)
  nopl   0x0(%rax,%rax,1)
L2:
  mov    0x2c(%rsp),%eax
  test   %eax,%eax
  jle    L23
  movslq 0x3c(%rsp),%rbp
  mov    0x48(%rsp),%rax
  xor    %r10d,%r10d
  shl    $0x3,%rbp
  lea    (%rax,%rbp,1),%rbx
  mov    0x50(%rsp),%rax
  lea    (%rax,%rbp,1),%r13
  mov    0x58(%rsp),%rax
  lea    (%rax,%rbp,1),%r12
  add    0x60(%rsp),%rbp
  nopl   0x0(%rax,%rax,1)
L16:
  test   %r9d,%r9d
  jle    L13
  lea    -0x1(%r9),%edi
  xor    %eax,%eax
  movsd  D7(%rip),%xmm0
  divsd  0x30(%rsp),%xmm0
  nopl   0x0(%rax)
L27:
  movsd  0x0(%r13,%rax,8),%xmm1
  mov    %rax,%rsi
  movsd  %xmm1,(%r14,%rax,8)
  movsd  (%r12,%rax,8),%xmm1
  addsd  %xmm0,%xmm1
  movsd  %xmm1,(%r15,%rax,8)
  movsd  0x0(%rbp,%rax,8),%xmm1
  movsd  %xmm1,(%rdx,%rax,8)
  movsd  (%rbx,%rax,8),%xmm1
  mulsd  %xmm0,%xmm1
  movsd  %xmm1,(%rcx,%rax,8)
  add    $0x1,%rax
  cmp    %rdi,%rsi
  jne    L27
L13:
  mov    %rbx,%r8
  mov    %r15,%rsi
  mov    %r14,%rdi
  mov    %r10d,0x28(%rsp)
  mov    %r11,0x20(%rsp)
  mov    %r9d,0x18(%rsp)
  mov    %rcx,0x10(%rsp)
  mov    %rdx,0x8(%rsp)
  call   <tridiag_premalloc@plt>
  mov    0x20(%rsp),%r11
  mov    0x28(%rsp),%r10d
  mov    0x8(%rsp),%rdx
  mov    0x10(%rsp),%rcx
  add    $0x1,%r10d
  add    %r11,%rbx
  add    %r11,%r13
  add    %r11,%r12
  add    %r11,%rbp
  cmp    %r10d,0x2c(%rsp)
  mov    0x18(%rsp),%r9d
  jne    L16
L23:
  addl   $0x1,0x38(%rsp)
  mov    0x44(%rsp),%ebx
  mov    0x38(%rsp),%eax
  add    %ebx,0x3c(%rsp)
  cmp    %eax,0x40(%rsp)
  jne    L2
  mov    %r14,%r10
  mov    %r15,%rsi
  mov    %rcx,%r14
  mov    %rdx,%r15
L46:
  xor    %eax,%eax
  mov    %rsi,0x10(%rsp)
  mov    %r10,0x8(%rsp)
  call   <tridiag_free@plt>
  mov    0x8(%rsp),%rdi
  call   <free@plt>
  mov    0x10(%rsp),%rdi
  call   <free@plt>
  mov    %r15,%rdi
  call   <free@plt>
  mov    %r14,%rdi
  call   <free@plt>
  mov    0x68(%rsp),%rdi
  add    $0x78,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    1090 <free@plt>
```

tool_calls: name: disassemble_data
arguments: data_tag: D7
data_type: byte[8]

tool: {"D7": [0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x3f]}

assistant: ```c
void implicit_precalc_3Dz(double *phi, double *az, double *bz, double *cz, double dt, int L, int M, int N, int Lstart, int Lend) {
  int ii, jj, kk;
  int index;
  double *a = malloc(N * sizeof(*a));
  double *b = malloc(N * sizeof(*b));
  double *c = malloc(N * sizeof(*c));
  double *r = malloc(N * sizeof(*r));
  double *new_row = malloc(N * sizeof(*new_row));
  tridiag_malloc(N);
  for (ii = Lstart; ii < Lend; ii++) {
    for (jj = 0; jj < M; jj++) {
      for (kk = 0; kk < N; kk++) {
        index = ii * M * N + jj * N + kk;
        a[kk] = az[index];
        b[kk] = bz[index] + 1 / dt;
        c[kk] = cz[index];
        r[kk] = 1 / dt * phi[index];
      }
      tridiag_premalloc(a, b, c, r, &phi[ii * M * N + jj * N], N);
    }
  }
  tridiag_free();
  free(a);
  free(b);
  free(c);
  free(r);
  free(new_row);
}
```