user: 请从给定的汇编指令推导出C源代码：

```asm
<main>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x4e8,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  xor    %eax,%eax
  mov    %rsp,%rax
  mov    %rax,%rbx
  lea    D65(%rip),%rax
  mov    %rax,%rdi
  call   <puts@plt>
  lea    -0x2a0(%rbp),%rdx
  lea    D10(%rip),%rax
  mov    %rax,%rsi
  mov    %rdx,%rdi
  call   <sprintf@plt>
  movl   $0x3f,-0x408(%rbp)
  lea    -0x2a0(%rbp),%rax
  mov    %rax,-0x340(%rbp)
  lea    -0x408(%rbp),%rax
  mov    %rax,-0x338(%rbp)
  lea    -0x340(%rbp),%rax
  mov    %rax,%rsi
  mov    $0x2,%edi
  call   <get_total_number_of_groups@plt>
  mov    %eax,-0x404(%rbp)
  lea    -0x404(%rbp),%rax
  mov    $0x4,%edx
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <swap_Nbyte@plt>
  mov    -0x404(%rbp),%eax
  mov    %eax,%esi
  lea    D72(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x404(%rbp),%edx
  movslq %edx,%rax
  sub    $0x1,%rax
  mov    %rax,-0x3d0(%rbp)
  movslq %edx,%rax
  mov    %rax,%r12
  mov    $0x0,%r13d
  movslq %edx,%rax
  mov    %rax,%r14
  mov    $0x0,%r15d
  movslq %edx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%esi
  mov    $0x0,%edx
  div    %rsi
  imul   $0x10,%rax,%rdx
  mov    %rdx,%rax
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rcx
  sub    %rax,%rcx
L26:
  cmp    %rcx,%rsp
  je     L131
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L26
L131:
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  mov    %rdx,%rax
  and    $0xfff,%eax
  test   %rax,%rax
  je     L247
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L247:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x3c8(%rbp)
  mov    -0x404(%rbp),%edx
  movslq %edx,%rax
  sub    $0x1,%rax
  mov    %rax,-0x3c0(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x420(%rbp)
  movq   $0x0,-0x418(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x430(%rbp)
  movq   $0x0,-0x428(%rbp)
  movslq %edx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%esi
  mov    $0x0,%edx
  div    %rsi
  imul   $0x10,%rax,%rdx
  mov    %rdx,%rax
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rcx
  sub    %rax,%rcx
L41:
  cmp    %rcx,%rsp
  je     L38
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L41
L38:
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  mov    %rdx,%rax
  and    $0xfff,%eax
  test   %rax,%rax
  je     L11
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L11:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x3b8(%rbp)
  mov    -0x404(%rbp),%edx
  movslq %edx,%rax
  sub    $0x1,%rax
  mov    %rax,-0x3b0(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x440(%rbp)
  movq   $0x0,-0x438(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x450(%rbp)
  movq   $0x0,-0x448(%rbp)
  movslq %edx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%esi
  mov    $0x0,%edx
  div    %rsi
  imul   $0x10,%rax,%rdx
  mov    %rdx,%rax
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rcx
  sub    %rax,%rcx
L60:
  cmp    %rcx,%rsp
  je     L83
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L60
L83:
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  mov    %rdx,%rax
  and    $0xfff,%eax
  test   %rax,%rax
  je     L198
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L198:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x3a8(%rbp)
  mov    -0x3c8(%rbp),%rax
  mov    %rax,-0x330(%rbp)
  mov    -0x3b8(%rbp),%rax
  mov    %rax,-0x328(%rbp)
  mov    -0x3a8(%rbp),%rax
  mov    %rax,-0x320(%rbp)
  lea    -0x340(%rbp),%rax
  mov    %rax,%rsi
  mov    $0x5,%edi
  call   <get_group_catalogue@plt>
  movl   $0x0,-0x400(%rbp)
  lea    -0x1d0(%rbp),%rdx
  lea    D1(%rip),%rax
  mov    %rax,%rsi
  mov    %rdx,%rdi
  call   <sprintf@plt>
  movl   $0x0,-0x3fc(%rbp)
  lea    -0x1d0(%rbp),%rax
  mov    %rax,-0x330(%rbp)
  lea    -0x3fc(%rbp),%rax
  mov    %rax,-0x328(%rbp)
  lea    -0x340(%rbp),%rax
  mov    %rax,%rsi
  mov    $0x4,%edi
  call   <get_hash_table_size@plt>
  mov    %eax,-0x400(%rbp)
  lea    -0x400(%rbp),%rax
  mov    $0x4,%edx
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <swap_Nbyte@plt>
  lea    -0x3fc(%rbp),%rax
  mov    $0x4,%edx
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <swap_Nbyte@plt>
  mov    -0x3fc(%rbp),%eax
  mov    %eax,%esi
  lea    D13(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x400(%rbp),%eax
  mov    %eax,%esi
  lea    D92(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x400(%rbp),%edx
  movslq %edx,%rax
  sub    $0x1,%rax
  mov    %rax,-0x3a0(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x460(%rbp)
  movq   $0x0,-0x458(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x470(%rbp)
  movq   $0x0,-0x468(%rbp)
  movslq %edx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%edi
  mov    $0x0,%edx
  div    %rdi
  imul   $0x10,%rax,%rdx
  mov    %rdx,%rax
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rcx
  sub    %rax,%rcx
L63:
  cmp    %rcx,%rsp
  je     L70
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L63
L70:
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  mov    %rdx,%rax
  and    $0xfff,%eax
  test   %rax,%rax
  je     L274
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L274:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x398(%rbp)
  mov    -0x400(%rbp),%edx
  movslq %edx,%rax
  sub    $0x1,%rax
  mov    %rax,-0x390(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x480(%rbp)
  movq   $0x0,-0x478(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x490(%rbp)
  movq   $0x0,-0x488(%rbp)
  movslq %edx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%esi
  mov    $0x0,%edx
  div    %rsi
  imul   $0x10,%rax,%rdx
  mov    %rdx,%rax
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rcx
  sub    %rax,%rcx
L126:
  cmp    %rcx,%rsp
  je     L156
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L126
L156:
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  mov    %rdx,%rax
  and    $0xfff,%eax
  test   %rax,%rax
  je     L102
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L102:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x388(%rbp)
  mov    -0x400(%rbp),%edx
  movslq %edx,%rax
  sub    $0x1,%rax
  mov    %rax,-0x380(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x4a0(%rbp)
  movq   $0x0,-0x498(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x4b0(%rbp)
  movq   $0x0,-0x4a8(%rbp)
  movslq %edx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%edi
  mov    $0x0,%edx
  div    %rdi
  imul   $0x10,%rax,%rdx
  mov    %rdx,%rax
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rcx
  sub    %rax,%rcx
L48:
  cmp    %rcx,%rsp
  je     L182
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L48
L182:
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  mov    %rdx,%rax
  and    $0xfff,%eax
  test   %rax,%rax
  je     L216
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L216:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x378(%rbp)
  mov    -0x400(%rbp),%edx
  movslq %edx,%rax
  sub    $0x1,%rax
  mov    %rax,-0x370(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x4c0(%rbp)
  movq   $0x0,-0x4b8(%rbp)
  movslq %edx,%rax
  mov    %rax,-0x4d0(%rbp)
  movq   $0x0,-0x4c8(%rbp)
  movslq %edx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%esi
  mov    $0x0,%edx
  div    %rsi
  imul   $0x10,%rax,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  mov    %rsp,%rdx
  sub    %rcx,%rdx
L31:
  cmp    %rdx,%rsp
  je     L120
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L31
L120:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  mov    %rax,%rdx
  and    $0xfff,%edx
  test   %rdx,%rdx
  je     L174
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L174:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x368(%rbp)
  mov    -0x398(%rbp),%rax
  mov    %rax,-0x328(%rbp)
  mov    -0x388(%rbp),%rax
  mov    %rax,-0x320(%rbp)
  mov    -0x378(%rbp),%rax
  mov    %rax,-0x318(%rbp)
  mov    -0x368(%rbp),%rax
  mov    %rax,-0x310(%rbp)
  lea    -0x340(%rbp),%rax
  mov    %rax,%rsi
  mov    $0x8,%edi
  call   <get_hash_table@plt>
  mov    -0x400(%rbp),%ecx
  mov    -0x398(%rbp),%rax
  mov    $0x4,%edx
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swap_Nbyte@plt>
  movl   $0x1,-0x3ec(%rbp)
  mov    -0x3b8(%rbp),%rax
  mov    -0x3ec(%rbp),%edx
  movslq %edx,%rdx
  mov    (%rax,%rdx,4),%eax
  mov    %eax,-0x3f8(%rbp)
  mov    -0x3a8(%rbp),%rax
  mov    -0x3ec(%rbp),%edx
  movslq %edx,%rdx
  mov    (%rax,%rdx,4),%eax
  mov    %eax,-0x3f4(%rbp)
  mov    -0x3c8(%rbp),%rax
  mov    -0x3ec(%rbp),%edx
  movslq %edx,%rdx
  mov    (%rax,%rdx,4),%eax
  mov    %eax,-0x3f0(%rbp)
  lea    -0x100(%rbp),%rax
  lea    D73(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <sprintf@plt>
  mov    -0x3f0(%rbp),%edx
  mov    %edx,%eax
  add    %eax,%eax
  add    %edx,%eax
  movslq %eax,%rdx
  sub    $0x1,%rdx
  mov    %rdx,-0x360(%rbp)
  movslq %eax,%rdx
  mov    %rdx,-0x4e0(%rbp)
  movq   $0x0,-0x4d8(%rbp)
  movslq %eax,%rdx
  mov    %rdx,-0x4f0(%rbp)
  movq   $0x0,-0x4e8(%rbp)
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%edi
  mov    $0x0,%edx
  div    %rdi
  imul   $0x10,%rax,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  mov    %rsp,%rdx
  sub    %rcx,%rdx
L191:
  cmp    %rdx,%rsp
  je     L223
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L191
L223:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  mov    %rax,%rdx
  and    $0xfff,%edx
  test   %rdx,%rdx
  je     L257
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L257:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x358(%rbp)
  mov    -0x3f0(%rbp),%edx
  mov    %edx,%eax
  add    %eax,%eax
  add    %edx,%eax
  movslq %eax,%rdx
  sub    $0x1,%rdx
  mov    %rdx,-0x350(%rbp)
  movslq %eax,%rdx
  mov    %rdx,-0x500(%rbp)
  movq   $0x0,-0x4f8(%rbp)
  movslq %eax,%rdx
  mov    %rdx,-0x510(%rbp)
  movq   $0x0,-0x508(%rbp)
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%esi
  mov    $0x0,%edx
  div    %rsi
  imul   $0x10,%rax,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  mov    %rsp,%rdx
  sub    %rcx,%rdx
L237:
  cmp    %rdx,%rsp
  je     L214
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L237
L214:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  mov    %rax,%rdx
  and    $0xfff,%edx
  test   %rdx,%rdx
  je     L179
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L179:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x348(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x3d8(%rbp)
  lea    -0x2a0(%rbp),%rax
  mov    %rax,-0x340(%rbp)
  lea    -0x100(%rbp),%rax
  mov    %rax,-0x338(%rbp)
  lea    -0x408(%rbp),%rax
  mov    %rax,-0x330(%rbp)
  lea    -0x1d0(%rbp),%rax
  mov    %rax,-0x328(%rbp)
  mov    -0x398(%rbp),%rax
  mov    %rax,-0x320(%rbp)
  mov    -0x388(%rbp),%rax
  mov    %rax,-0x318(%rbp)
  lea    -0x400(%rbp),%rax
  mov    %rax,-0x310(%rbp)
  mov    -0x378(%rbp),%rax
  mov    %rax,-0x308(%rbp)
  mov    -0x368(%rbp),%rax
  mov    %rax,-0x300(%rbp)
  lea    -0x3f4(%rbp),%rax
  mov    %rax,-0x2f8(%rbp)
  lea    -0x3f8(%rbp),%rax
  mov    %rax,-0x2f0(%rbp)
  lea    -0x3f0(%rbp),%rax
  mov    %rax,-0x2e8(%rbp)
  mov    -0x348(%rbp),%rax
  mov    %rax,-0x2e0(%rbp)
  mov    -0x358(%rbp),%rax
  mov    %rax,-0x2d8(%rbp)
  lea    -0x3e8(%rbp),%rax
  mov    %rax,-0x2d0(%rbp)
  lea    -0x3e0(%rbp),%rax
  mov    %rax,-0x2c8(%rbp)
  lea    -0x3d8(%rbp),%rax
  mov    %rax,-0x2c0(%rbp)
  lea    -0x340(%rbp),%rax
  mov    %rax,%rsi
  mov    $0x10,%edi
  call   <get_group_coordinates@plt>
  mov    -0x3e8(%rbp),%rax
  movq   %rax,%xmm0
  lea    D90(%rip),%rax
  mov    %rax,%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  mov    -0x3e0(%rbp),%rax
  movq   %rax,%xmm0
  lea    D23(%rip),%rax
  mov    %rax,%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  mov    -0x3d8(%rbp),%rax
  movq   %rax,%xmm0
  lea    D79(%rip),%rax
  mov    %rax,%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  mov    $0x0,%eax
  mov    %rbx,%rsp
  mov    -0x38(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L135
  call   <__stack_chk_fail@plt>
L135:
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D65
type: string
name: extract_symbolic_data
arguments: data_tag: D10
type: string
name: extract_symbolic_data
arguments: data_tag: D72
type: string
name: extract_symbolic_data
arguments: data_tag: D1
type: string
name: extract_symbolic_data
arguments: data_tag: D13
type: string
name: extract_symbolic_data
arguments: data_tag: D92
type: string
name: extract_symbolic_data
arguments: data_tag: D73
type: string
name: extract_symbolic_data
arguments: data_tag: D90
type: string
name: extract_symbolic_data
arguments: data_tag: D23
type: string
name: extract_symbolic_data
arguments: data_tag: D79
type: string

tool: D65: 


tool: D10: /data/rw9/Millennium/snapdir_063

tool: D72: TotNgroups:%d


tool: D1: snap_millennium

tool: D13: NFiles:%d


tool: D92: HashTableSize:%d


tool: D73: /data/rw9/Millennium/postproc_063

tool: D90: Sx:%lf


tool: D23: Sy:%lf


tool: D79: Sz:%lf


assistant: ```c
int main() {
  printf("\n\n");
  void *Par[20];
  char OutputDir[200];
  sprintf(OutputDir, "/data/rw9/Millennium/snapdir_063");
  int num = 63;
  int TotNgroups;
  Par[0] = OutputDir;
  Par[1] = &num;
  TotNgroups = get_total_number_of_groups(2, Par);
  swap_Nbyte((char *)&TotNgroups, 1, 4);
  printf("TotNgroups:%d\n", TotNgroups);
  int GroupLen[TotNgroups];
  int GroupFileNr[TotNgroups], GroupNr[TotNgroups];
  Par[2] = &GroupLen[0];
  Par[3] = &GroupFileNr[0];
  Par[4] = &GroupNr[0];
  get_group_catalogue(5, Par);
  int HashTabsize = 0;
  char SnapBase[200];
  sprintf(SnapBase, "snap_millennium");
  int NFiles = 0;
  Par[2] = SnapBase;
  Par[3] = &NFiles;
  HashTabsize = get_hash_table_size(4, Par);
  swap_Nbyte((char *)&HashTabsize, 1, 4);
  swap_Nbyte((char *)&NFiles, 1, 4);
  printf("NFiles:%d\n", NFiles);
  printf("HashTableSize:%d\n", HashTabsize);
  int Hashtable[HashTabsize], Filetable[HashTabsize], LastHashCell[HashTabsize], NInFiles[HashTabsize];
  Par[3] = &Hashtable[0];
  Par[4] = &Filetable[0];
  Par[5] = &LastHashCell[0];
  Par[6] = &NInFiles[0];
  get_hash_table(8, Par);
  swap_Nbyte((char *)&Hashtable[0], HashTabsize, 4);
  int N = 1;
  int FiNr, GrNr, Len;
  FiNr = GroupFileNr[N];
  GrNr = GroupNr[N];
  Len = GroupLen[N];
  char PostProcDir[200];
  sprintf(PostProcDir, "/data/rw9/Millennium/postproc_063");
  float vel[Len * 3], pos[Len * 3];
  double Sx, Sy, Sz = 0.0;
  Par[0] = OutputDir;
  Par[1] = PostProcDir;
  Par[2] = &num;
  Par[3] = SnapBase;
  Par[4] = &Hashtable[0];
  Par[5] = &Filetable[0];
  Par[6] = &HashTabsize;
  Par[7] = &LastHashCell[0];
  Par[8] = &NInFiles[0];
  Par[9] = &GrNr;
  Par[10] = &FiNr;
  Par[11] = &Len;
  Par[12] = &pos[0];
  Par[13] = &vel[0];
  Par[14] = &Sx;
  Par[15] = &Sy;
  Par[16] = &Sz;
  get_group_coordinates(16, Par);
  printf("Sx:%lf\n", Sx);
  printf("Sy:%lf\n", Sy);
  printf("Sz:%lf\n", Sz);
  return 0;
}
```