user: Please show me the C implementation that matches the assembly code listed below:

```asm
<test_mm_anja_b_c_bc_i4_d>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x18,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x28(%rbp)
  mov    %rsp,%rax
  cmp    %rax,%rsp
  je     L96
L10:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rax,%rsp
  jne    L10
L96:
  sub    $0x790,%rsp
  orq    $0x0,0x788(%rsp)
  mov    %rsp,%rax
  mov    %rsp,%r12
  cmp    %rax,%rsp
  je     L16
L9:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rax,%rsp
  jne    L9
L16:
  sub    $0x900,%rsp
  orq    $0x0,0x8f8(%rsp)
  mov    %rsp,%rax
  mov    %rsp,%r8
  cmp    %rax,%rsp
  je     L47
L60:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rax,%rsp
  jne    L60
L47:
  sub    $0x840,%rsp
  orq    $0x0,0x838(%rsp)
  movdqa D110(%rip),%xmm6
  movdqa D117(%rip),%xmm5
  movdqa D87(%rip),%xmm4
  movdqa D28(%rip),%xmm3
  movdqa D7(%rip),%xmm2
  lea    0x3(%rsp),%rdx
  mov    %r12,%rax
  mov    %rdx,%rsi
  mov    %rdx,%rbx
  mov    $0x15,%edx
  shr    $0x2,%rsi
  and    $0xfffffffffffffffc,%rbx
  xchg   %ax,%ax
L13:
  lea    -0x15(%rdx),%edi
  lea    0x1(%rdx),%ecx
  mov    %edx,0x50(%rax)
  add    $0x5c,%rax
  movd   %edi,%xmm0
  mov    %ecx,-0x8(%rax)
  lea    0x2(%rdx),%ecx
  add    $0x15,%edx
  pshufd $0x0,%xmm0,%xmm0
  mov    %ecx,-0x4(%rax)
  movdqa %xmm0,%xmm1
  paddd  %xmm6,%xmm1
  movups %xmm1,-0x5c(%rax)
  movdqa %xmm0,%xmm1
  paddd  %xmm5,%xmm1
  movups %xmm1,-0x4c(%rax)
  movdqa %xmm0,%xmm1
  paddd  %xmm4,%xmm1
  movups %xmm1,-0x3c(%rax)
  movdqa %xmm0,%xmm1
  paddd  %xmm2,%xmm0
  paddd  %xmm3,%xmm1
  movups %xmm0,-0x1c(%rax)
  movups %xmm1,-0x2c(%rax)
  cmp    $0x1ce,%edx
  jne    L13
  movdqa D85(%rip),%xmm7
  movdqa D20(%rip),%xmm6
  mov    %r8,%rax
  xor    %edx,%edx
  movdqa D114(%rip),%xmm5
  movdqa D109(%rip),%xmm4
  movdqa D19(%rip),%xmm3
  movdqa D132(%rip),%xmm2
  nopw   0x0(%rax,%rax,1)
L94:
  movd   %edx,%xmm0
  lea    0x259(%rdx),%ecx
  add    $0x1,%edx
  add    $0x64,%rax
  pshufd $0x0,%xmm0,%xmm0
  mov    %ecx,-0x4(%rax)
  movdqa %xmm0,%xmm1
  paddd  %xmm7,%xmm1
  movups %xmm1,-0x64(%rax)
  movdqa %xmm0,%xmm1
  paddd  %xmm6,%xmm1
  movups %xmm1,-0x54(%rax)
  movdqa %xmm0,%xmm1
  paddd  %xmm5,%xmm1
  movups %xmm1,-0x44(%rax)
  movdqa %xmm0,%xmm1
  paddd  %xmm4,%xmm1
  movups %xmm1,-0x34(%rax)
  movdqa %xmm0,%xmm1
  paddd  %xmm2,%xmm0
  paddd  %xmm3,%xmm1
  movups %xmm0,-0x14(%rax)
  movups %xmm1,-0x24(%rax)
  cmp    $0x17,%edx
  jne    L94
  lea    0x8(%rbx),%rdi
  mov    %rbx,%rcx
  xor    %eax,%eax
  movq   $0x0,0x0(,%rsi,4)
  movq   $0x0,0x82c(%rbx)
  and    $0xfffffffffffffff8,%rdi
  sub    %rdi,%rcx
  add    $0x834,%ecx
  shr    $0x3,%ecx
  rep stos %rax,%es:(%rdi)
  mov    %r8,%rdi
  call   <xmp_desc_of@plt>
  mov    %r12,%rdi
  mov    %eax,%r13d
  call   <xmp_desc_of@plt>
  mov    %rbx,%rdi
  mov    %eax,%r12d
  call   <xmp_desc_of@plt>
  mov    %r13d,%edx
  mov    %r12d,%esi
  mov    %eax,%edi
  call   <xmp_matmul@plt>
  movsd  D4(%rip),%xmm7
  mov    %rbx,%rdx
  movsd  D125(%rip),%xmm6
  movsd  D123(%rip),%xmm5
  movsd  D159(%rip),%xmm4
  xor    %edi,%edi
  xor    %ecx,%ecx
  movsd  D104(%rip),%xmm8
L92:
  pxor   %xmm3,%xmm3
  xor    %eax,%eax
  cvtsi2sd %ecx,%xmm3
  mulsd  %xmm8,%xmm3
  nop
L7:
  pxor   %xmm0,%xmm0
  movapd %xmm3,%xmm1
  pxor   %xmm2,%xmm2
  cvtsi2sd %eax,%xmm0
  cvtsi2sdl (%rdx,%rax,4),%xmm2
  add    $0x1,%rax
  mulsd  %xmm7,%xmm0
  addsd  %xmm0,%xmm1
  mulsd  %xmm3,%xmm0
  mulsd  %xmm6,%xmm1
  mulsd  %xmm4,%xmm0
  addsd  %xmm5,%xmm1
  addsd  %xmm1,%xmm0
  subsd  %xmm0,%xmm2
  pxor   %xmm0,%xmm0
  cvtsi2sd %edi,%xmm0
  movapd %xmm2,%xmm1
  addsd  %xmm0,%xmm1
  cvttsd2si %xmm1,%edi
  cmp    $0x19,%rax
  jne    L7
  add    $0x1,%ecx
  add    $0x64,%rdx
  cmp    $0x15,%ecx
  jne    L92
  call   <chk_int@plt>
  mov    -0x28(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L44
  lea    -0x18(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %rbp
  ret
L44:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: data_label: D110
data_type: byte[16]
name: retrieve_data
arguments: data_label: D117
data_type: byte[16]
name: retrieve_data
arguments: data_label: D87
data_type: byte[16]
name: retrieve_data
arguments: data_label: D28
data_type: byte[16]
name: retrieve_data
arguments: data_label: D7
data_type: byte[16]
name: retrieve_data
arguments: data_label: D85
data_type: byte[16]
name: retrieve_data
arguments: data_label: D20
data_type: byte[16]
name: retrieve_data
arguments: data_label: D114
data_type: byte[16]
name: retrieve_data
arguments: data_label: D109
data_type: byte[16]
name: retrieve_data
arguments: data_label: D19
data_type: byte[16]
name: retrieve_data
arguments: data_label: D132
data_type: byte[16]
name: retrieve_data
arguments: data_label: D4
data_type: byte[8]
name: retrieve_data
arguments: data_label: D125
data_type: byte[8]
name: retrieve_data
arguments: data_label: D123
data_type: byte[8]
name: retrieve_data
arguments: data_label: D159
data_type: byte[8]
name: retrieve_data
arguments: data_label: D104
data_type: byte[8]

tool: {"D110": [0x01,0x00,0x00,0x00,0x02,0x00,0x00,0x00,0x03,0x00,0x00,0x00,0x04,0x00,0x00,0x00]}

tool: {"D117": [0x05,0x00,0x00,0x00,0x06,0x00,0x00,0x00,0x07,0x00,0x00,0x00,0x08,0x00,0x00,0x00]}

tool: {"D87": [0x09,0x00,0x00,0x00,0x0a,0x00,0x00,0x00,0x0b,0x00,0x00,0x00,0x0c,0x00,0x00,0x00]}

tool: {"D28": [0x0d,0x00,0x00,0x00,0x0e,0x00,0x00,0x00,0x0f,0x00,0x00,0x00,0x10,0x00,0x00,0x00]}

tool: {"D7": [0x11,0x00,0x00,0x00,0x12,0x00,0x00,0x00,0x13,0x00,0x00,0x00,0x14,0x00,0x00,0x00]}

tool: {"D85": [0x01,0x00,0x00,0x00,0x1a,0x00,0x00,0x00,0x33,0x00,0x00,0x00,0x4c,0x00,0x00,0x00]}

tool: {"D20": [0x65,0x00,0x00,0x00,0x7e,0x00,0x00,0x00,0x97,0x00,0x00,0x00,0xb0,0x00,0x00,0x00]}

tool: {"D114": [0xc9,0x00,0x00,0x00,0xe2,0x00,0x00,0x00,0xfb,0x00,0x00,0x00,0x14,0x01,0x00,0x00]}

tool: {"D109": [0x2d,0x01,0x00,0x00,0x46,0x01,0x00,0x00,0x5f,0x01,0x00,0x00,0x78,0x01,0x00,0x00]}

tool: {"D19": [0x91,0x01,0x00,0x00,0xaa,0x01,0x00,0x00,0xc3,0x01,0x00,0x00,0xdc,0x01,0x00,0x00]}

tool: {"D132": [0xf5,0x01,0x00,0x00,0x0e,0x02,0x00,0x00,0x27,0x02,0x00,0x00,0x40,0x02,0x00,0x00]}

tool: {"D4": [0x00,0x00,0x00,0x00,0x00,0x00,0x39,0x40]}

tool: {"D125": [0x00,0x00,0x00,0x00,0x00,0x40,0x71,0x40]}

tool: {"D123": [0x00,0x00,0x00,0x00,0x00,0xe4,0xb0,0x40]}

tool: {"D159": [0x00,0x00,0x00,0x00,0x00,0x00,0x37,0x40]}

tool: {"D104": [0x00,0x00,0x00,0x00,0x00,0x00,0x35,0x40]}

assistant: ```c
void test_mm_anja_b_c_bc_i4_d() {
  int n1 = 21, n2 = 23, n3 = 25;
  int a[n1][n2], b[n2][n3], x[n1][n3];
#pragma xmp nodes p[2][2]
#pragma xmp template tx[n2][n1]
#pragma xmp template ty[n3][n2]
#pragma xmp template tz[n3][n1]
#pragma xmp distribute tx[block][block] onto p
#pragma xmp distribute ty[cyclic][cyclic] onto p
#pragma xmp distribute tz[cyclic(2)][cyclic(2)] onto p
#pragma xmp align a[i][j] with tx[j][i]
#pragma xmp align b[i][*] with ty[*][i]
#pragma xmp align x[i][j] with tz[j][i]
  int i, j, ierr;
  double rn1, rn2, rn3, rn4, rn5, rn6, ra, rb;
#pragma xmp loop on tx[j][i]
  for (i = 0; i < n1; i++) {
    for (j = 0; j < n2; j++) {
      a[i][j] = i * n1 + j + 1;
    }
  }
#pragma xmp loop on ty[*][i]
  for (i = 0; i < n2; i++) {
    for (j = 0; j < n3; j++) {
      b[i][j] = j * n3 + i + 1;
    }
  }
#pragma xmp loop on tz[j][i]
  for (i = 0; i < n1; i++) {
    for (j = 0; j < n3; j++) {
      x[i][j] = 0;
    }
  }
  xmp_matmul(xmp_desc_of(x), xmp_desc_of(a), xmp_desc_of(b));
  ierr = 0;
  rn1 = n1;
  rn2 = n2;
  rn3 = n3;
  rn4 = rn2 * (rn2 + 1) * (2 * rn2 + 1) / 6.0;
  rn5 = rn2 * (rn2 + 1) / 2.0;
#pragma xmp loop on tz[j][i]
  for (i = 0; i < n1; i++) {
    for (j = 0; j < n3; j++) {
      ra = i * rn1;
      rb = j * rn3;
      rn6 = rn4 + rn5 * (ra + rb) + ra * rb * rn2;
      ierr = ierr + (x[i][j] - rn6);
    }
  }
  chk_int(ierr);
}
```