user: What would the C source look like for the assembly code provided here:

```asm
<main>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %rbx
  lea    -0xb000(%rsp),%r11
L159:
  sub    $0x1000,%rsp
  orq    $0x0,(%rsp)
  cmp    %r11,%rsp
  jne    L159
  sub    $0xc08,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x18(%rbp)
  xor    %eax,%eax
  mov    %rsp,%rax
  mov    %rax,%rbx
  movl   $0x0,-0xbbdc(%rbp)
  movl   $0x0,-0xbbd8(%rbp)
  movl   $0x0,-0xbbd4(%rbp)
  movl   $0x3e8,-0xbbd0(%rbp)
  mov    -0xbbd0(%rbp),%eax
  movslq %eax,%rdx
  sub    $0x1,%rdx
  mov    %rdx,-0xbbc8(%rbp)
  movslq %eax,%rdx
  mov    %rdx,%r8
  mov    $0x0,%r9d
  movslq %eax,%rdx
  mov    %rdx,%rsi
  mov    $0x0,%edi
  cltq
  mov    $0x10,%edx
  sub    $0x1,%rdx
  add    %rdx,%rax
  mov    $0x10,%ecx
  mov    $0x0,%edx
  div    %rcx
  imul   $0x10,%rax,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  mov    %rsp,%rdx
  sub    %rcx,%rdx
L41:
  cmp    %rdx,%rsp
  je     L120
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L41
L120:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  mov    %rax,%rdx
  and    $0xfff,%edx
  test   %rdx,%rdx
  je     L42
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L42:
  mov    %rsp,%rax
  add    $0x0,%rax
  mov    %rax,-0xbbc0(%rbp)
  movl   $0x0,-0xbbdc(%rbp)
  jmp    L82
L54:
  mov    -0xbbd0(%rbp),%eax
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,%rdx
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    %rdx,-0xbba0(%rbp,%rax,8)
  mov    -0xbbd0(%rbp),%eax
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,%rdx
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    %rdx,-0x9c60(%rbp,%rax,8)
  mov    -0xbbd0(%rbp),%eax
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,%rdx
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    %rdx,-0x7d20(%rbp,%rax,8)
  mov    -0xbbd0(%rbp),%eax
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,%rdx
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    %rdx,-0x5de0(%rbp,%rax,8)
  mov    -0xbbd0(%rbp),%eax
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,%rdx
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    %rdx,-0x3ea0(%rbp,%rax,8)
  mov    -0xbbd0(%rbp),%eax
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,%rdx
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    %rdx,-0x1f60(%rbp,%rax,8)
  addl   $0x1,-0xbbdc(%rbp)
L82:
  cmpl   $0x3e7,-0xbbdc(%rbp)
  jle    L54
  lea    D116(%rip),%rax
  mov    %rax,%rsi
  lea    D165(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <fopen@plt>
  mov    %rax,-0xbbb8(%rbp)
  lea    D116(%rip),%rax
  mov    %rax,%rsi
  lea    D40(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <fopen@plt>
  mov    %rax,-0xbbb0(%rbp)
  lea    D20(%rip),%rax
  mov    %rax,%rsi
  lea    D31(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <fopen@plt>
  mov    %rax,-0xbba8(%rbp)
  movl   $0x0,-0xbbd8(%rbp)
  jmp    L87
L126:
  mov    -0xbbb8(%rbp),%rdx
  mov    -0xbbd0(%rbp),%ecx
  mov    -0xbbc0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x1f60(%rbp,%rax,8),%r8
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x3ea0(%rbp,%rax,8),%rdi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x5de0(%rbp,%rax,8),%rsi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%r10
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rcx
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rdx
  lea    -0xbc0c(%rbp),%r11
  mov    -0xbbc0(%rbp),%rax
  lea    -0xbc00(%rbp),%r9
  push   %r9
  push   %r8
  lea    -0xbc04(%rbp),%r8
  push   %r8
  push   %rdi
  lea    -0xbc08(%rbp),%rdi
  push   %rdi
  push   %rsi
  mov    %r11,%r9
  mov    %r10,%r8
  lea    D32(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  add    $0x30,%rsp
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%rax
  mov    $0x8,%edx
  lea    D100(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %rax,%rax
  je     L157
  nop
  addl   $0x1,-0xbbd8(%rbp)
L87:
  cmpl   $0x3e7,-0xbbd8(%rbp)
  jle    L126
  jmp    L12
L157:
  nop
L12:
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%rsi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rcx
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rdx
  lea    -0xbbfc(%rbp),%rdi
  mov    -0xbbc0(%rbp),%rax
  mov    %rdi,%r9
  mov    %rsi,%r8
  lea    D168(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  mov    -0xbbb8(%rbp),%rdx
  mov    -0xbbd0(%rbp),%ecx
  mov    -0xbbc0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%rsi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rcx
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rdx
  lea    -0xbbf8(%rbp),%rdi
  mov    -0xbbc0(%rbp),%rax
  mov    %rdi,%r9
  mov    %rsi,%r8
  lea    D168(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  mov    -0xbbb8(%rbp),%rdx
  mov    -0xbbd0(%rbp),%ecx
  mov    -0xbbc0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rcx
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rdx
  lea    -0xbbf4(%rbp),%rsi
  mov    -0xbbc0(%rbp),%rax
  mov    %rsi,%r8
  lea    D200(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  mov    -0xbbb8(%rbp),%rdx
  mov    -0xbbd0(%rbp),%ecx
  mov    -0xbbc0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%rdi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rsi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rcx
  lea    -0xbbe4(%rbp),%rdx
  mov    -0xbbc0(%rbp),%rax
  mov    %rdi,%r9
  mov    %rsi,%r8
  lea    D80(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  mov    -0xbbb8(%rbp),%rdx
  mov    -0xbbd0(%rbp),%ecx
  mov    -0xbbc0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%rdi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rsi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rcx
  lea    -0xbbf4(%rbp),%rdx
  mov    -0xbbc0(%rbp),%rax
  mov    %rdi,%r9
  mov    %rsi,%r8
  lea    D80(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  movl   $0x0,-0xbbd8(%rbp)
  jmp    L99
L135:
  mov    -0xbbb0(%rbp),%rdx
  mov    -0xbbd0(%rbp),%ecx
  mov    -0xbbc0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x1f60(%rbp,%rax,8),%r8
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x3ea0(%rbp,%rax,8),%rdi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x5de0(%rbp,%rax,8),%rsi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%r10
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rcx
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rdx
  lea    -0xbc0c(%rbp),%r11
  mov    -0xbbc0(%rbp),%rax
  lea    -0xbc00(%rbp),%r9
  push   %r9
  push   %r8
  lea    -0xbc04(%rbp),%r8
  push   %r8
  push   %rdi
  lea    -0xbc08(%rbp),%rdi
  push   %rdi
  push   %rsi
  mov    %r11,%r9
  mov    %r10,%r8
  lea    D32(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  add    $0x30,%rsp
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%rax
  mov    $0x8,%edx
  lea    D100(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %rax,%rax
  je     L32
  nop
  addl   $0x1,-0xbbd8(%rbp)
L99:
  cmpl   $0x3e7,-0xbbd8(%rbp)
  jle    L135
  jmp    L60
L32:
  nop
L60:
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%rsi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rcx
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rdx
  lea    -0xbbf0(%rbp),%rdi
  mov    -0xbbc0(%rbp),%rax
  mov    %rdi,%r9
  mov    %rsi,%r8
  lea    D168(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  mov    -0xbbb0(%rbp),%rdx
  mov    -0xbbd0(%rbp),%ecx
  mov    -0xbbc0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%rsi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rcx
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rdx
  lea    -0xbbec(%rbp),%rdi
  mov    -0xbbc0(%rbp),%rax
  mov    %rdi,%r9
  mov    %rsi,%r8
  lea    D168(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  mov    -0xbbb0(%rbp),%rdx
  mov    -0xbbd0(%rbp),%ecx
  mov    -0xbbc0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rcx
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rdx
  lea    -0xbbe8(%rbp),%rsi
  mov    -0xbbc0(%rbp),%rax
  mov    %rsi,%r8
  lea    D200(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  mov    -0xbbb0(%rbp),%rdx
  mov    -0xbbd0(%rbp),%ecx
  mov    -0xbbc0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%rdi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rsi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rcx
  lea    -0xbbe0(%rbp),%rdx
  mov    -0xbbc0(%rbp),%rax
  mov    %rdi,%r9
  mov    %rsi,%r8
  lea    D80(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  mov    -0xbbb0(%rbp),%rdx
  mov    -0xbbd0(%rbp),%ecx
  mov    -0xbbc0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%rdi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rsi
  mov    -0xbbd8(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rcx
  lea    -0xbbe8(%rbp),%rdx
  mov    -0xbbc0(%rbp),%rax
  mov    %rdi,%r9
  mov    %rsi,%r8
  lea    D80(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  movss  -0xbbe8(%rbp),%xmm0
  movss  -0xbbf4(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  %xmm0,-0xbbcc(%rbp)
  movss  -0xbbe0(%rbp),%xmm0
  movss  -0xbbe4(%rbp),%xmm1
  movaps %xmm0,%xmm4
  subss  %xmm1,%xmm4
  movss  -0xbbe0(%rbp),%xmm3
  movss  -0xbbe4(%rbp),%xmm2
  movss  -0xbbe8(%rbp),%xmm0
  mov    -0xbbf4(%rbp),%edx
  movss  -0xbbcc(%rbp),%xmm1
  mov    -0xbba8(%rbp),%rax
  movaps %xmm4,%xmm5
  movaps %xmm3,%xmm4
  movaps %xmm2,%xmm3
  movaps %xmm1,%xmm2
  movaps %xmm0,%xmm1
  movd   %edx,%xmm0
  lea    D51(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <fprintf@plt>
  movl   $0x0,-0xbbdc(%rbp)
  jmp    L11
L53:
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    -0xbba0(%rbp,%rax,8),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    -0x9c60(%rbp,%rax,8),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    -0x7d20(%rbp,%rax,8),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    -0x5de0(%rbp,%rax,8),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    -0x3ea0(%rbp,%rax,8),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0xbbdc(%rbp),%eax
  cltq
  mov    -0x1f60(%rbp,%rax,8),%rax
  mov    %rax,%rdi
  call   <free@plt>
  addl   $0x1,-0xbbdc(%rbp)
L11:
  cmpl   $0x3e7,-0xbbdc(%rbp)
  jle    L53
  mov    -0xbbb8(%rbp),%rax
  mov    %rax,%rdi
  call   <fclose@plt>
  mov    -0xbbb0(%rbp),%rax
  mov    %rax,%rdi
  call   <fclose@plt>
  mov    -0xbba8(%rbp),%rax
  mov    %rax,%rdi
  call   <fclose@plt>
  mov    %rbx,%rsp
  mov    $0x0,%eax
  mov    -0x18(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L103
  call   <__stack_chk_fail@plt>
L103:
  mov    -0x8(%rbp),%rbx
  leave
  ret
```

tool_calls: name: disassemble_data
arguments: tag: D116
type_infered: string
name: disassemble_data
arguments: tag: D165
type_infered: string
name: disassemble_data
arguments: tag: D40
type_infered: string
name: disassemble_data
arguments: tag: D20
type_infered: string
name: disassemble_data
arguments: tag: D31
type_infered: string
name: disassemble_data
arguments: tag: D32
type_infered: string
name: disassemble_data
arguments: tag: D100
type_infered: string
name: disassemble_data
arguments: tag: D168
type_infered: string
name: disassemble_data
arguments: tag: D200
type_infered: string
name: disassemble_data
arguments: tag: D80
type_infered: string
name: disassemble_data
arguments: tag: D51
type_infered: string

tool: D116: r

tool: D165: before_opt.txt

tool: D40: after_opt.txt

tool: D20: w

tool: D31: energy.txt

tool: D32: %s %s %s %i %s %f %s %f %s %f

tool: D100: internal

tool: D168: %s %s %s %f

tool: D200: %s %s %f

tool: D80: %f %s %s %s

tool: D51:  %f : %f : %f : %f : %f : %f

assistant: ```c
main() {
  int i = 0, j = 0, k = 0, line_length = 1000, atom_numb;
  float numb_1, numb_2, numb_3, bef_int, bef_ext, bef_total, aft_int, aft_ext, aft_total, bef_nonbond, aft_nonbond, delta_energy;
  char buffer[line_length], *word_1[1000], *word_2[1000], *word_3[1000], *word_4[1000], *word_5[1000], *word_6[1000];
  for (i = 0; i < 1000; i++) {
    word_1[i] = (char *)malloc(line_length);
    word_2[i] = (char *)malloc(line_length);
    word_3[i] = (char *)malloc(line_length);
    word_4[i] = (char *)malloc(line_length);
    word_5[i] = (char *)malloc(line_length);
    word_6[i] = (char *)malloc(line_length);
  }
  FILE *before, *after, *final, *fopen();
  before = fopen("before_opt.txt", "r");
  after = fopen("after_opt.txt", "r");
  final = fopen("energy.txt", "w");
  for (j = 0; j < 1000; j++) {
    fgets(buffer, line_length, before);
    sscanf(buffer, "%s %s %s %i %s %f %s %f %s %f", word_1[j], word_2[j], word_3[j], &atom_numb, word_4[j], &numb_1, word_5[j], &numb_2, word_6[j], &numb_3);
    if (strncmp(word_3[j], "internal", 8) == 0)
      break;
    else
      continue;
  }
  sscanf(buffer, "%s %s %s %f", word_1[j], word_2[j], word_3[j], &bef_int);
  fgets(buffer, line_length, before);
  sscanf(buffer, "%s %s %s %f", word_1[j], word_2[j], word_3[j], &bef_ext);
  fgets(buffer, line_length, before);
  sscanf(buffer, "%s %s %f", word_1[j], word_2[j], &bef_total);
  fgets(buffer, line_length, before);
  sscanf(buffer, "%f %s %s %s", &bef_nonbond, word_1[j], word_2[j], word_3[j]);
  fgets(buffer, line_length, before);
  sscanf(buffer, "%f %s %s %s", &bef_total, word_1[j], word_2[j], word_3[j]);
  for (j = 0; j < 1000; j++) {
    fgets(buffer, line_length, after);
    sscanf(buffer, "%s %s %s %i %s %f %s %f %s %f", word_1[j], word_2[j], word_3[j], &atom_numb, word_4[j], &numb_1, word_5[j], &numb_2, word_6[j], &numb_3);
    if (strncmp(word_3[j], "internal", 8) == 0)
      break;
    else
      continue;
  }
  sscanf(buffer, "%s %s %s %f", word_1[j], word_2[j], word_3[j], &aft_int);
  fgets(buffer, line_length, after);
  sscanf(buffer, "%s %s %s %f", word_1[j], word_2[j], word_3[j], &aft_ext);
  fgets(buffer, line_length, after);
  sscanf(buffer, "%s %s %f", word_1[j], word_2[j], &aft_total);
  fgets(buffer, line_length, after);
  sscanf(buffer, "%f %s %s %s", &aft_nonbond, word_1[j], word_2[j], word_3[j]);
  fgets(buffer, line_length, after);
  sscanf(buffer, "%f %s %s %s", &aft_total, word_1[j], word_2[j], word_3[j]);
  delta_energy = aft_total - bef_total;
  fprintf(final, " %f : %f : %f : %f : %f : %f", bef_total, aft_total, delta_energy, bef_nonbond, aft_nonbond, aft_nonbond - bef_nonbond);
  for (i = 0; i < 1000; ++i) {
    free(word_1[i]);
    free(word_2[i]);
    free(word_3[i]);
    free(word_4[i]);
    free(word_5[i]);
    free(word_6[i]);
  }
  fclose(before);
  fclose(after);
  fclose(final);
}
```