user: 请将以下的汇编代码转换成C语言代码：

```asm
<MakePgr>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x60,%rsp
  mov    %edi,-0x34(%rbp)
  mov    %esi,-0x38(%rbp)
  mov    %rdx,-0x40(%rbp)
  mov    %ecx,-0x44(%rbp)
  mov    %r8,-0x50(%rbp)
  mov    %r9,-0x58(%rbp)
  mov    -0x34(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x28(%rbp)
  jmp    L17
L54:
  mov    -0x28(%rbp),%eax
  add    $0x2,%eax
  mov    %eax,-0x24(%rbp)
  jmp    L83
L81:
  mov    -0x44(%rbp),%edi
  mov    -0x38(%rbp),%ecx
  mov    -0x24(%rbp),%edx
  mov    -0x28(%rbp),%esi
  mov    -0x34(%rbp),%eax
  mov    %edi,%r8d
  mov    %eax,%edi
  mov    $0x0,%eax
  call   <gap_index@plt>
  mov    %eax,-0x1c(%rbp)
  mov    -0x24(%rbp),%eax
  mov    %eax,-0x20(%rbp)
  jmp    L13
L31:
  mov    -0x44(%rbp),%edi
  mov    -0x38(%rbp),%ecx
  mov    -0x20(%rbp),%edx
  mov    -0x28(%rbp),%esi
  mov    -0x34(%rbp),%eax
  mov    %edi,%r8d
  mov    %eax,%edi
  mov    $0x0,%eax
  call   <gap_index@plt>
  mov    %eax,-0x18(%rbp)
  mov    -0x20(%rbp),%eax
  cmp    -0x24(%rbp),%eax
  jne    L73
  mov    -0x44(%rbp),%eax
  add    $0x1,%eax
  imul   -0x44(%rbp),%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  mov    %eax,%edx
  mov    -0x24(%rbp),%eax
  add    %edx,%eax
  jmp    L25
L73:
  mov    -0x24(%rbp),%eax
  imul   -0x44(%rbp),%eax
  mov    %eax,%edx
  mov    -0x20(%rbp),%eax
  sub    $0x1,%eax
  add    %eax,%edx
  mov    -0x24(%rbp),%eax
  add    $0x1,%eax
  imul   -0x24(%rbp),%eax
  mov    %eax,%ecx
  shr    $0x1f,%ecx
  add    %ecx,%eax
  sar    %eax
  neg    %eax
  add    %edx,%eax
L25:
  mov    %eax,-0x14(%rbp)
  mov    -0x1c(%rbp),%eax
  cltq
  shl    $0x4,%rax
  mov    %rax,%rdx
  mov    0x18(%rbp),%rax
  add    %rdx,%rax
  fldz
  fldt   (%rax)
  fcomip %st(1),%st
  fstp   %st(0)
  jbe    L80
  mov    -0x1c(%rbp),%eax
  cltq
  shl    $0x4,%rax
  mov    %rax,%rdx
  mov    0x18(%rbp),%rax
  add    %rdx,%rax
  fldt   (%rax)
  mov    -0x18(%rbp),%eax
  cltq
  shl    $0x4,%rax
  mov    %rax,%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  fldt   (%rax)
  fmulp  %st,%st(1)
  mov    -0x14(%rbp),%eax
  cltq
  shl    $0x4,%rax
  mov    %rax,%rdx
  mov    0x10(%rbp),%rax
  add    %rdx,%rax
  fldt   (%rax)
  fmulp  %st,%st(1)
  mov    -0x1c(%rbp),%eax
  cltq
  shl    $0x4,%rax
  mov    %rax,%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  fldt   (%rax)
  fdivrp %st,%st(1)
  fstpt  -0x10(%rbp)
  mov    -0x18(%rbp),%eax
  cltq
  shl    $0x4,%rax
  mov    %rax,%rdx
  mov    0x20(%rbp),%rax
  add    %rdx,%rax
  fldt   (%rax)
  mov    -0x18(%rbp),%eax
  cltq
  shl    $0x4,%rax
  mov    %rax,%rdx
  mov    0x20(%rbp),%rax
  add    %rdx,%rax
  fldt   -0x10(%rbp)
  faddp  %st,%st(1)
  fstpt  (%rax)
  mov    -0x14(%rbp),%eax
  cltq
  shl    $0x4,%rax
  mov    %rax,%rdx
  mov    0x28(%rbp),%rax
  add    %rdx,%rax
  fldt   (%rax)
  mov    -0x14(%rbp),%eax
  cltq
  shl    $0x4,%rax
  mov    %rax,%rdx
  mov    0x28(%rbp),%rax
  add    %rdx,%rax
  fldt   -0x10(%rbp)
  faddp  %st,%st(1)
  fstpt  (%rax)
  fld1
  fldt   -0x10(%rbp)
  fcomip %st(1),%st
  fstp   %st(0)
  jbe    L80
  mov    -0x38(%rbp),%edx
  mov    -0x34(%rbp),%eax
  push   -0x8(%rbp)
  push   -0x10(%rbp)
  mov    %eax,%esi
  lea    D7(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  add    $0x10,%rsp
L80:
  addl   $0x1,-0x20(%rbp)
L13:
  mov    -0x38(%rbp),%eax
  cmp    -0x20(%rbp),%eax
  jg     L31
  addl   $0x1,-0x24(%rbp)
L83:
  mov    -0x38(%rbp),%eax
  cmp    -0x24(%rbp),%eax
  jg     L81
  addl   $0x1,-0x28(%rbp)
L17:
  mov    -0x38(%rbp),%eax
  sub    $0x2,%eax
  cmp    %eax,-0x28(%rbp)
  jl     L54
  nop
  nop
  leave
  ret
```

tool_calls: name: parse_data
arguments: label: D7
type_guessed: string

tool: D7: j %d %d %Le


assistant: ```c
void MakePgr(int i, int j, int seq[], int seqlength, long double *Qgr, long double *Qgl, long double *Qz, long double *Pgr, long double *Pgl, long double *Pz) {
  int d, e, f;
  int gap_idej, gap_idfj, pf_ef1;
  long double prob;
  for (d = i + 1; d <= j - 3; d++) {
    for (e = d + 2; e <= j - 1; e++) {
      gap_idej = gap_index(i, d, e, j, seqlength);
      for (f = e; f <= j - 1; f++) {
        gap_idfj = gap_index(i, d, f, j, seqlength);
        pf_ef1 = ((f - 1) == (e)-1 ? (seqlength) * ((seqlength) + 1) / 2 + (e) : ((e) * (seqlength) + (f - 1) - (e) * (1 + (e)) / 2));
        if (Pgr[gap_idej] > 0) {
          prob = Pgr[gap_idej] * Qgl[gap_idfj] * Qz[pf_ef1] / Qgr[gap_idej];
          Pgl[gap_idfj] += prob;
          Pz[pf_ef1] += prob;
          if (prob > 1) {
            printf("j %d %d %Le\n", i, j, (long double)prob);
          }
        }
      }
    }
  }
}
```