user: Translate the below assembly code into C programming language:

```asm
<rot_2_lsplane>:
  endbr64
  push   %r15
  mov    $0x3,%ecx
  push   %r14
  push   %r13
  push   %r12
  mov    %rdi,%r12
  push   %rbp
  push   %rbx
  mov    %rdx,%rbx
  mov    $0x1,%edx
  sub    $0xd8,%rsp
  mov    %rsi,0x8(%rsp)
  mov    %edi,%esi
  mov    $0x1,%edi
  mov    %fs:0x28,%rax
  mov    %rax,0xc8(%rsp)
  xor    %eax,%eax
  mov    D75(%rip),%rax
  movq   $0x0,0xa8(%rsp)
  movq   $0x0,0xb0(%rsp)
  mov    %rax,0xa0(%rsp)
  mov    D56(%rip),%rax
  mov    %rax,0xb8(%rsp)
  call   <dmatrix@plt>
  mov    %r12,%rsi
  mov    $0x1,%edi
  mov    %rax,%rbp
  call   <dvector@plt>
  mov    $0x3,%ecx
  mov    $0x1,%edx
  mov    $0x3,%esi
  mov    $0x1,%edi
  mov    %rax,0x20(%rsp)
  call   <dmatrix@plt>
  mov    %rax,%r13
  test   %r12,%r12
  jle    L81
  lea    0x1(%r12),%rax
  mov    %r13,0x28(%rsp)
  mov    $0x1,%r12d
  lea    D72(%rip),%r15
  mov    %rax,0x10(%rsp)
  xor    %eax,%eax
  lea    D71(%rip),%r14
  mov    %rbp,0x18(%rsp)
  mov    %rax,%r13
  jmp    L61
  nopl   0x0(%rax,%rax,1)
L78:
  mov    %r14,%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  je     L128
  lea    D6(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  je     L128
  lea    D12(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  je     L128
  lea    D49(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  je     L128
  lea    D30(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  je     L128
  lea    0x1(%r12),%rax
  cmp    %rax,0x10(%rsp)
  je     L113
  nopl   0x0(%rax,%rax,1)
L83:
  mov    %rax,%r12
L61:
  mov    0x8(%rsp),%rax
  mov    %r15,%rsi
  mov    (%rax,%r12,8),%rbp
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  jne    L78
L128:
  mov    (%rbx,%r12,8),%rdx
  mov    0x18(%rsp),%rax
  add    $0x1,%r13
  mov    (%rax,%r13,8),%rax
  movsd  0x8(%rdx),%xmm0
  movsd  %xmm0,0x8(%rax)
  movsd  0x10(%rdx),%xmm0
  movsd  %xmm0,0x10(%rax)
  movsd  0x18(%rdx),%xmm0
  movsd  %xmm0,0x18(%rax)
  lea    0x1(%r12),%rax
  cmp    %rax,0x10(%rsp)
  jne    L83
L113:
  mov    0x18(%rsp),%rbp
  mov    %r13,0x10(%rsp)
  lea    0x60(%rsp),%r15
  lea    0x40(%rsp),%rcx
  mov    0x20(%rsp),%r9
  mov    0x10(%rsp),%rsi
  lea    0x38(%rsp),%r8
  mov    %r15,%rdx
  mov    %rbp,%rdi
  mov    0x28(%rsp),%r13
  mov    %r12,0x8(%rsp)
  lea    0x80(%rsp),%r14
  call   <ls_plane@plt>
  lea    0xa0(%rsp),%r9
  mov    %r14,%rdx
  mov    %r15,%rdi
  mov    %r9,%rsi
  mov    %r9,0x18(%rsp)
  call   <cross@plt>
  mov    0x18(%rsp),%rdi
  mov    %r15,%rsi
  call   <magang@plt>
  mov    %r13,%rdx
  mov    %r14,%rdi
  mov    $0x1,%r14d
  mov    %eax,%esi
  call   <arb_rotation@plt>
  mov    %rbx,%rax
  mov    %r13,%rbx
  mov    %rax,%r13
  xchg   %ax,%ax
L119:
  mov    $0x8,%r12d
L13:
  mov    0x0(%rbp,%r14,8),%r15
  mov    (%rbx,%r12,1),%rsi
  mov    0x0(%r13,%r14,8),%rdi
  add    %r12,%r15
  add    $0x8,%r12
  call   <dot@plt>
  movsd  %xmm0,(%r15)
  cmp    $0x20,%r12
  jne    L13
  mov    0x0(%rbp,%r14,8),%rdx
  mov    0x0(%r13,%r14,8),%rax
  movsd  0x8(%rdx),%xmm0
  movsd  %xmm0,0x8(%rax)
  movsd  0x10(%rdx),%xmm0
  movsd  %xmm0,0x10(%rax)
  movsd  0x18(%rdx),%xmm0
  movsd  %xmm0,0x18(%rax)
  lea    0x1(%r14),%rax
  cmp    0x8(%rsp),%r14
  je     L131
  mov    %rax,%r14
  jmp    L119
  nopl   0x0(%rax,%rax,1)
L131:
  mov    0x10(%rsp),%r12d
  mov    %rbx,%r13
L76:
  mov    0x10(%rsp),%rdx
  mov    0x20(%rsp),%rdi
  mov    $0x1,%esi
  call   <free_dvector@plt>
  mov    $0x1,%ecx
  mov    %r12d,%edx
  mov    %rbp,%rdi
  mov    $0x3,%r8d
  mov    $0x1,%esi
  call   <free_dmatrix@plt>
  mov    $0x3,%r8d
  mov    $0x1,%ecx
  mov    %r13,%rdi
  mov    $0x3,%edx
  mov    $0x1,%esi
  call   <free_dmatrix@plt>
  mov    0xc8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L73
  add    $0xd8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L81:
  mov    0x20(%rsp),%r9
  lea    0x60(%rsp),%r12
  xor    %esi,%esi
  mov    %rbp,%rdi
  lea    0x40(%rsp),%rcx
  lea    0x38(%rsp),%r8
  mov    %r12,%rdx
  lea    0x80(%rsp),%r14
  lea    0xa0(%rsp),%r15
  call   <ls_plane@plt>
  mov    %r14,%rdx
  mov    %r12,%rdi
  mov    %r15,%rsi
  call   <cross@plt>
  mov    %r12,%rsi
  mov    %r15,%rdi
  xor    %r12d,%r12d
  call   <magang@plt>
  mov    %r13,%rdx
  mov    %r14,%rdi
  mov    %eax,%esi
  call   <arb_rotation@plt>
  movq   $0x0,0x10(%rsp)
  jmp    L76
L73:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: disassemble_data
arguments: tag: D75
data_type: byte[8]
name: disassemble_data
arguments: tag: D56
data_type: f64
name: disassemble_data
arguments: tag: D72
data_type: string
name: disassemble_data
arguments: tag: D71
data_type: string
name: disassemble_data
arguments: tag: D6
data_type: string
name: disassemble_data
arguments: tag: D12
data_type: string
name: disassemble_data
arguments: tag: D49
data_type: string
name: disassemble_data
arguments: tag: D30
data_type: string

tool: {"D75": [0x85,0xeb,0x51,0xb8,0xfe,0x87,0xc3,0xc0]}

tool: D56: 1

tool: D72:  P  

tool: D71:  O5'

tool: D6:  C5'

tool: D12:  C4'

tool: D49:  C3'

tool: D30:  O3'

assistant: ```c
void rot_2_lsplane(long num, char **AtomName, double **xyz) {
  double *adist, odist, ppos[4], z[4];
  double **nxyz, **rotmat, hinge[4];
  double zphy[4] = {-9999.99, 0.0, 0.0, 1.0};
  long j, k, atmnum, inum = 0;
  nxyz = dmatrix(1, num, 1, 3);
  adist = dvector(1, num);
  rotmat = dmatrix(1, 3, 1, 3);
  atmnum = 0;
  for (j = 1; j <= num; j++) {
    if (!strcmp(AtomName[j], " P  ") || !strcmp(AtomName[j], " O5'") || !strcmp(AtomName[j], " C5'") || !strcmp(AtomName[j], " C4'") || !strcmp(AtomName[j], " C3'") || !strcmp(AtomName[j], " O3'")) {
      atmnum++;
      for (k = 1; k <= 3; k++)
        nxyz[atmnum][k] = xyz[j][k];
    }
  }
  ls_plane(nxyz, atmnum, z, ppos, &odist, adist);
  cross(z, zphy, hinge);
  arb_rotation(hinge, magang(zphy, z), rotmat);
  for (j = 1; j <= num; j++) {
    for (k = 1; k <= 3; k++)
      nxyz[j][k] = dot(xyz[j], rotmat[k]);
    for (k = 1; k <= 3; k++)
      xyz[j][k] = nxyz[j][k];
  }
  free_dvector(adist, 1, atmnum);
  free_dmatrix(nxyz, 1, atmnum, 1, 3);
  free_dmatrix(rotmat, 1, 3, 1, 3);
}
```