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

```asm
<test_mm_nininj_b_c_bc_i4_d>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x10,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x28(%rbp)
  xor    %eax,%eax
  mov    %rsp,%rax
L21:
  cmp    %rax,%rsp
  je     L50
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L21
L50:
  sub    $0x790,%rsp
  orq    $0x0,0x788(%rsp)
  mov    %rsp,%r13
  mov    %rsp,%rax
L94:
  cmp    %rax,%rsp
  je     L120
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L94
L120:
  sub    $0x900,%rsp
  orq    $0x0,0x8f8(%rsp)
  mov    %rsp,%rdi
  mov    %rsp,%rax
L40:
  cmp    %rax,%rsp
  je     L1
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L40
L1:
  sub    $0x840,%rsp
  orq    $0x0,0x838(%rsp)
  mov    %rsp,%r12
  mov    %r13,%rsi
  mov    $0x18,%ecx
L97:
  lea    -0x17(%rcx),%eax
  mov    %rsi,%rdx
L49:
  mov    %eax,(%rdx)
  add    $0x1,%eax
  add    $0x4,%rdx
  cmp    %ecx,%eax
  jne    L49
  add    $0x5c,%rsi
  add    $0x15,%ecx
  cmp    $0x1d1,%ecx
  jne    L97
  mov    %rdi,%rsi
  mov    $0x272,%ecx
L36:
  lea    -0x271(%rcx),%eax
  mov    %rsi,%rdx
L39:
  mov    %eax,(%rdx)
  add    $0x19,%eax
  add    $0x4,%rdx
  cmp    %ecx,%eax
  jne    L39
  add    $0x64,%rsi
  add    $0x1,%ecx
  cmp    $0x289,%ecx
  jne    L36
  mov    %r12,%rbx
  lea    0x64(%r12),%rdx
  lea    0x898(%r12),%rcx
L106:
  lea    -0x64(%rdx),%rax
L112:
  movl   $0x0,(%rax)
  add    $0x4,%rax
  cmp    %rdx,%rax
  jne    L112
  add    $0x64,%rdx
  cmp    %rcx,%rdx
  jne    L106
  call   <xmp_desc_of@plt>
  mov    %eax,%r14d
  mov    %r13,%rdi
  call   <xmp_desc_of@plt>
  mov    %eax,%r13d
  mov    %r12,%rdi
  call   <xmp_desc_of@plt>
  mov    %eax,%edi
  mov    %r14d,%edx
  mov    %r13d,%esi
  call   <xmp_matmul@plt>
  mov    $0x0,%edi
  mov    $0x0,%edx
  movsd  D23(%rip),%xmm7
  movsd  D26(%rip),%xmm6
  movsd  D14(%rip),%xmm5
  movsd  D25(%rip),%xmm4
  movsd  D39(%rip),%xmm3
L16:
  pxor   %xmm2,%xmm2
  cvtsi2sd %edx,%xmm2
  mulsd  %xmm7,%xmm2
  mov    $0x0,%eax
L20:
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  mulsd  %xmm6,%xmm0
  pxor   %xmm8,%xmm8
  cvtsi2sdl (%rbx,%rax,4),%xmm8
  movapd %xmm2,%xmm1
  addsd  %xmm0,%xmm1
  mulsd  %xmm5,%xmm1
  addsd  %xmm4,%xmm1
  mulsd  %xmm2,%xmm0
  mulsd  %xmm3,%xmm0
  addsd  %xmm1,%xmm0
  movapd %xmm8,%xmm1
  subsd  %xmm0,%xmm1
  pxor   %xmm0,%xmm0
  cvtsi2sd %edi,%xmm0
  addsd  %xmm1,%xmm0
  cvttsd2si %xmm0,%edi
  add    $0x1,%rax
  cmp    $0x19,%rax
  jne    L20
  add    $0x1,%edx
  add    $0x64,%rbx
  cmp    $0x15,%edx
  jne    L16
  call   <chk_int2@plt>
  mov    -0x28(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L81
  lea    -0x20(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %rbp
  ret
L81:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: label: D23
type_guessed: byte[8]
name: read_data
arguments: label: D26
type_guessed: byte[8]
name: read_data
arguments: label: D14
type_guessed: byte[8]
name: read_data
arguments: label: D25
type_guessed: byte[8]
name: read_data
arguments: label: D39
type_guessed: byte[8]

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

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

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

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

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

assistant: ```c
void test_mm_nininj_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(0 : n1 - 1, 0 : n2 - 1)
#pragma xmp template ty(0 : n2 - 1, 0 : n3 - 1)
#pragma xmp template tz(0 : n1 - 1, 0 : n3 - 1)
#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[*][j] with tx(*, j)
#pragma xmp align b[*][j] with ty(*, j)
#pragma xmp align x[i][*] with tz(i, *)
  int i, j, ierr;
  double rn1, rn2, rn3, rn4, rn5, rn6, ra, rb;
  for (i = 0; i < n1; i++) {
#pragma xmp loop(j) on tx(*, j)
    for (j = 0; j < n2; j++) {
      a[i][j] = i * n1 + j + 1;
    }
  }
  for (i = 0; i < n2; i++) {
#pragma xmp loop(j) on ty(*, j)
    for (j = 0; j < n3; j++) {
      b[i][j] = j * n3 + i + 1;
    }
  }
#pragma xmp loop(i) on tz(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(i) on tz(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);
    }
  }
#pragma xmp task on p(1 : 2, 1)
  { chk_int2(ierr); }
}
```