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

```asm
<argConvGLcpara2>:
  endbr64
  push   %r12
  mov    %esi,%r12d
  push   %rbp
  mov    %edx,%ebp
  push   %rbx
  mov    %rcx,%rbx
  sub    $0x1a0,%rsp
  movsd  %xmm1,(%rsp)
  lea    0xb0(%rsp),%rdx
  lea    0x50(%rsp),%rsi
  movsd  %xmm0,0x10(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x198(%rsp)
  xor    %eax,%eax
  call   <arParamDecompMat@plt>
  movsd  (%rsp),%xmm1
  movsd  0x10(%rsp),%xmm4
  test   %eax,%eax
  js     L4
  movapd 0x50(%rsp),%xmm0
  pxor   %xmm6,%xmm6
  movapd 0x70(%rsp),%xmm2
  shufpd $0x1,0x80(%rsp),%xmm2
  cvtsi2sd %r12d,%xmm6
  movapd %xmm2,%xmm3
  pxor   %xmm8,%xmm8
  movsd  0xa0(%rsp),%xmm5
  cvtsi2sd %ebp,%xmm8
  pxor   %xmm7,%xmm7
  movq   $0x0,0x148(%rsp)
  movsd  0xc8(%rsp),%xmm9
  unpcklpd %xmm5,%xmm5
  movups %xmm7,0x128(%rsp)
  movsd  0xd0(%rsp),%xmm14
  movsd  0xf0(%rsp),%xmm13
  divpd  %xmm5,%xmm0
  unpcklpd %xmm9,%xmm9
  movsd  0xd8(%rsp),%xmm12
  movsd  0xf8(%rsp),%xmm11
  movapd %xmm6,%xmm2
  movaps %xmm9,0x20(%rsp)
  unpcklpd %xmm14,%xmm14
  movsd  0xe0(%rsp),%xmm10
  unpcklpd %xmm2,%xmm2
  movapd %xmm14,%xmm9
  unpcklpd %xmm13,%xmm13
  unpcklpd %xmm12,%xmm12
  unpcklpd %xmm11,%xmm11
  unpcklpd %xmm10,%xmm10
  mulpd  %xmm7,%xmm14
  divpd  %xmm5,%xmm3
  addpd  %xmm0,%xmm0
  divpd  %xmm2,%xmm0
  movapd 0x60(%rsp),%xmm2
  movhpd 0x70(%rsp),%xmm2
  divpd  %xmm5,%xmm2
  addsd  %xmm2,%xmm2
  divsd  %xmm6,%xmm2
  movsd  D18(%rip),%xmm6
  subsd  %xmm6,%xmm2
  movsd  %xmm2,0x120(%rsp)
  movapd %xmm3,%xmm2
  addsd  %xmm3,%xmm2
  unpckhpd %xmm3,%xmm3
  movapd %xmm2,%xmm5
  movapd %xmm3,%xmm2
  addsd  %xmm3,%xmm2
  divsd  %xmm8,%xmm5
  divsd  %xmm8,%xmm2
  movsd  0x108(%rsp),%xmm8
  unpcklpd %xmm8,%xmm8
  movaps %xmm8,0x40(%rsp)
  movapd %xmm5,%xmm3
  movsd  0xb0(%rsp),%xmm5
  unpcklpd %xmm5,%xmm5
  subsd  %xmm6,%xmm2
  movsd  0x100(%rsp),%xmm6
  unpcklpd %xmm6,%xmm6
  unpcklpd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movaps %xmm6,0x10(%rsp)
  movapd 0x120(%rsp),%xmm6
  movups %xmm3,0x138(%rsp)
  movapd %xmm1,%xmm3
  addsd  %xmm4,%xmm2
  mulsd  D33(%rip),%xmm1
  subsd  %xmm4,%xmm3
  mulsd  %xmm4,%xmm1
  movsd  0xb8(%rsp),%xmm4
  unpcklpd %xmm4,%xmm4
  unpcklpd %xmm1,%xmm2
  movapd %xmm3,%xmm1
  movsd  0xc0(%rsp),%xmm3
  unpcklpd %xmm1,%xmm1
  divpd  %xmm1,%xmm2
  unpcklpd %xmm3,%xmm3
  movsd  0xe8(%rsp),%xmm1
  unpcklpd %xmm1,%xmm1
  movaps %xmm1,0x30(%rsp)
  movapd %xmm0,%xmm1
  unpckhpd %xmm6,%xmm0
  movapd 0x130(%rsp),%xmm6
  movhpd 0x120(%rsp),%xmm1
  movhpd 0x140(%rsp),%xmm6
  movapd %xmm1,%xmm8
  movapd 0x140(%rsp),%xmm15
  movlpd 0x138(%rsp),%xmm15
  unpcklpd %xmm6,%xmm8
  unpckhpd %xmm6,%xmm1
  movapd %xmm0,%xmm6
  unpcklpd %xmm15,%xmm6
  movaps %xmm15,(%rsp)
  movapd %xmm5,%xmm15
  mulpd  %xmm8,%xmm15
  mulpd  %xmm6,%xmm9
  addpd  %xmm15,%xmm9
  movapd %xmm1,%xmm15
  mulpd  %xmm13,%xmm15
  addpd  %xmm15,%xmm9
  movapd %xmm8,%xmm15
  mulpd  %xmm4,%xmm15
  movups %xmm9,(%rbx)
  movapd %xmm6,%xmm9
  mulpd  %xmm12,%xmm9
  mulpd  %xmm7,%xmm12
  addpd  %xmm15,%xmm9
  movapd %xmm1,%xmm15
  mulpd  %xmm11,%xmm15
  addpd  %xmm15,%xmm9
  movapd %xmm3,%xmm15
  mulpd  %xmm8,%xmm15
  movups %xmm9,0x20(%rbx)
  movapd %xmm6,%xmm9
  mulpd  %xmm10,%xmm9
  mulpd  %xmm7,%xmm10
  addpd  %xmm15,%xmm9
  movapd 0x10(%rsp),%xmm15
  mulpd  %xmm1,%xmm15
  addpd  %xmm15,%xmm9
  movapd 0x30(%rsp),%xmm15
  mulpd  %xmm15,%xmm6
  movups %xmm9,0x40(%rbx)
  movapd 0x20(%rsp),%xmm9
  mulpd  %xmm15,%xmm7
  mulpd  %xmm9,%xmm8
  addpd  %xmm8,%xmm6
  movapd 0x40(%rsp),%xmm8
  mulpd  %xmm8,%xmm1
  addpd  %xmm6,%xmm1
  movapd (%rsp),%xmm6
  unpckhpd %xmm6,%xmm0
  movapd %xmm2,%xmm6
  addpd  %xmm0,%xmm1
  pxor   %xmm0,%xmm0
  movsd  %xmm0,%xmm6
  movups %xmm1,0x60(%rbx)
  movdqa %xmm2,%xmm1
  pxor   %xmm2,%xmm2
  pslldq $0x8,%xmm1
  movapd %xmm1,%xmm0
  unpcklpd %xmm2,%xmm0
  movapd D36(%rip),%xmm2
  mulpd  %xmm0,%xmm5
  mulpd  %xmm0,%xmm4
  unpckhpd %xmm2,%xmm1
  movapd 0x10(%rsp),%xmm2
  mulpd  %xmm0,%xmm3
  mulpd  %xmm9,%xmm0
  mulpd  %xmm1,%xmm2
  mulpd  %xmm1,%xmm13
  addpd  %xmm14,%xmm5
  mulpd  %xmm1,%xmm11
  addpd  %xmm12,%xmm4
  mulpd  %xmm8,%xmm1
  addpd  %xmm10,%xmm3
  addpd  %xmm7,%xmm0
  addpd  %xmm2,%xmm3
  movdqa %xmm6,%xmm2
  addpd  %xmm5,%xmm13
  psrldq $0x8,%xmm2
  addpd  %xmm4,%xmm11
  addpd  %xmm1,%xmm0
  movups %xmm13,0x10(%rbx)
  movups %xmm11,0x30(%rbx)
  addpd  %xmm0,%xmm2
  movups %xmm3,0x50(%rbx)
  movups %xmm2,0x70(%rbx)
  mov    0x198(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L6
  add    $0x1a0,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  ret
  nopl   0x0(%rax,%rax,1)
L4:
  lea    D31(%rip),%rdi
  call   <puts@plt>
  xor    %edi,%edi
  call   <exit@plt>
L6:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: label: D18
type_infered: f64
name: unpack_data
arguments: label: D33
type_infered: f32[2]
name: unpack_data
arguments: label: D36
type_infered: f32[4]
name: unpack_data
arguments: label: D31
type_infered: string

tool: D18: 1

tool: {"D33": [0.0,-2.0]}

tool: {"D36": [0.0,0.0,0.0,1.875]}

tool: D31: gConvGLcpara: Parameter error!!

assistant: ```c
void argConvGLcpara2(double cparam[3][4], int width, int height, double gnear, double gfar, double m[16]) {
  double icpara[3][4];
  double trans[3][4];
  double p[3][3], q[4][4];
  int i, j;
  if (arParamDecompMat(cparam, icpara, trans) < 0) {
    printf("gConvGLcpara: Parameter error!!\n");
    exit(0);
  }
  for (i = 0; i < 3; i++) {
    for (j = 0; j < 3; j++) {
      p[i][j] = icpara[i][j] / icpara[2][2];
    }
  }
  q[0][0] = (2.0 * p[0][0] / width);
  q[0][1] = (2.0 * p[0][1] / width);
  q[0][2] = ((2.0 * p[0][2] / width) - 1.0);
  q[0][3] = 0.0;
  q[1][0] = 0.0;
  q[1][1] = (2.0 * p[1][1] / height);
  q[1][2] = ((2.0 * p[1][2] / height) - 1.0);
  q[1][3] = 0.0;
  q[2][0] = 0.0;
  q[2][1] = 0.0;
  q[2][2] = (gfar + gnear) / (gfar - gnear);
  q[2][3] = -2.0 * gfar * gnear / (gfar - gnear);
  q[3][0] = 0.0;
  q[3][1] = 0.0;
  q[3][2] = 1.0;
  q[3][3] = 0.0;
  for (i = 0; i < 4; i++) {
    for (j = 0; j < 3; j++) {
      m[i + j * 4] = q[i][0] * trans[0][j] + q[i][1] * trans[1][j] + q[i][2] * trans[2][j];
    }
    m[i + 3 * 4] = q[i][0] * trans[0][3] + q[i][1] * trans[1][3] + q[i][2] * trans[2][3] + q[i][3];
  }
}
```