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

```asm
<padcon_standard_track>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r12
  push   %rbx
  sub    $0x20,%rsp
  mov    0x10(%rbp),%r10
  mov    %fs:0x28,%rax
  mov    %rax,-0x18(%rbp)
  xor    %eax,%eax
  movl   $0x0,-0x30(%rbp)
  mov    %edi,-0x2c(%rbp)
  mov    %ecx,-0x28(%rbp)
  mov    %r8d,-0x24(%rbp)
  mov    %edx,-0x20(%rbp)
  mov    %r9d,-0x1c(%rbp)
  cmp    $0x1,%r8d
  jle    L194
  mov    %rsp,%rbx
  movslq %r9d,%rax
  lea    0xf(,%rax,8),%rax
  mov    %rax,%rcx
  and    $0xfffffffffffffff0,%rcx
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rdx
  sub    %rax,%rdx
L112:
  cmp    %rdx,%rsp
  je     L43
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L112
L194:
  test   %edi,%edi
  je     L148
  mov    %rsp,%rbx
  movslq %edi,%rax
  lea    0xf(,%rax,4),%rax
  mov    %rax,%rcx
  and    $0xfffffffffffffff0,%rcx
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rdx
  sub    %rax,%rdx
L86:
  cmp    %rdx,%rsp
  je     L186
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L86
L148:
  lea    -0x30(%rbp),%rsi
  mov    $0x0,%r8d
  mov    $0x0,%ecx
  mov    $0x0,%edx
  mov    $0x2e3,%edi
  call   <_ada_use_c2phc4c@plt>
  jmp    L113
L186:
  mov    %rcx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  je     L138
  orq    $0x0,-0x8(%rsp,%rax,1)
L138:
  mov    %rsp,%r9
  test   %edi,%edi
  jle    L189
  mov    %edi,%edi
  mov    $0x0,%eax
L215:
  movsbl (%rsi,%rax,1),%edx
  mov    %edx,(%r9,%rax,4)
  add    $0x1,%rax
  cmp    %rdi,%rax
  jne    L215
L189:
  lea    -0x30(%rbp),%rsi
  mov    $0x0,%r8d
  mov    $0x0,%ecx
  mov    %r9,%rdx
  mov    $0x2e3,%edi
  call   <_ada_use_c2phc4c@plt>
  mov    %rbx,%rsp
  jmp    L113
L43:
  mov    %rcx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  je     L61
  orq    $0x0,-0x8(%rsp,%rax,1)
L61:
  mov    %rsp,%rcx
  test   %r9d,%r9d
  jle    L1
  mov    %r9d,%r9d
  mov    $0x0,%eax
L161:
  pxor   %xmm0,%xmm0
  cvtsi2sdl (%r10,%rax,4),%xmm0
  movsd  %xmm0,(%rcx,%rax,8)
  add    $0x1,%rax
  cmp    %r9,%rax
  jne    L161
L1:
  test   %edi,%edi
  je     L6
  mov    %rsp,%r12
  movslq %edi,%rax
  lea    0xf(,%rax,4),%rax
  mov    %rax,%r8
  and    $0xfffffffffffffff0,%r8
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rdx
  sub    %rax,%rdx
L140:
  cmp    %rdx,%rsp
  je     L106
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L140
L6:
  lea    -0x30(%rbp),%rsi
  mov    $0x0,%r8d
  mov    $0x0,%edx
  mov    $0x2e3,%edi
  call   <_ada_use_c2phc4c@plt>
  jmp    L196
L106:
  mov    %r8,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  je     L47
  orq    $0x0,-0x8(%rsp,%rax,1)
L47:
  mov    %rsp,%r9
  test   %edi,%edi
  jle    L82
  mov    %edi,%edi
  mov    $0x0,%eax
L99:
  movsbl (%rsi,%rax,1),%edx
  mov    %edx,(%r9,%rax,4)
  add    $0x1,%rax
  cmp    %rdi,%rax
  jne    L99
L82:
  lea    -0x30(%rbp),%rsi
  mov    $0x0,%r8d
  mov    %r9,%rdx
  mov    $0x2e3,%edi
  call   <_ada_use_c2phc4c@plt>
  mov    %r12,%rsp
L196:
  mov    %rbx,%rsp
L113:
  mov    -0x18(%rbp),%rdx
  sub    %fs:0x28,%rdx
  jne    L177
  lea    -0x10(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %rbp
  ret
L177:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
int padcon_standard_track(int nbc, char *name, int locfile, int verbose, int mhom, int nvr, int *idz) {
  int fail, idx;
  int pars[6];
  int *b;
  double *c;
  pars[0] = 0;
  pars[1] = nbc;
  pars[2] = verbose;
  pars[3] = mhom;
  pars[4] = locfile;
  pars[5] = nvr;
  if (mhom < 2) {
    if (nbc == 0)
      fail = _ada_use_c2phc4c(739, pars, b, c, 0);
    else {
      int iname[nbc];
      for (idx = 0; idx < nbc; idx++)
        iname[idx] = (int)name[idx];
      fail = _ada_use_c2phc4c(739, pars, iname, c, 0);
    }
  } else {
    double z[nvr];
    for (int idx = 0; idx < nvr; idx++)
      z[idx] = (double)idz[idx];
    if (nbc == 0)
      fail = _ada_use_c2phc4c(739, pars, b, z, 0);
    else {
      int iname[nbc];
      for (int i = 0; i < nbc; i++)
        iname[i] = (int)name[i];
      fail = _ada_use_c2phc4c(739, pars, iname, z, 0);
    }
  }
  return fail;
}
```