// File: WolfgangLechner[P]StructureAnalysis/molecular_system.cpp
// Function: CMolecularSystem::writeQ4Q6Histograms()
void CMolecularSystem::writeQ4Q6Histograms()
{
  FILE *ofBCC,*ofFCC,*ofHCP,*ofLIQ;
  
  char IntStr[80];
  sprintf( IntStr, "./output/QBCC.dat") ;
  ofBCC = fopen(IntStr,"w");
  sprintf( IntStr, "./output/QFCC.dat") ;
  ofFCC = fopen(IntStr,"w");
  sprintf( IntStr, "./output/QHCP.dat") ;
  ofHCP = fopen(IntStr,"w");
  sprintf( IntStr, "./output/QLIQ.dat") ;
  ofLIQ = fopen(IntStr,"w");
  
  for (int j = 0;j<Q6SIZE;j++)
  {
    for (int i = 0;i<Q4SIZE;i++)
    {
      fprintf(ofBCC,"%d %d %.18lf\n",i ,j ,QBCC[i][j]);
      fprintf(ofFCC,"%d %d %.18lf\n",i ,j ,QFCC[i][j]);
      fprintf(ofHCP,"%d %d %.18lf\n",i ,j ,QHCP[i][j]);
      fprintf(ofLIQ,"%d %d %.18lf\n",i ,j ,QLIQ[i][j]);
    }
    fprintf(ofBCC,"\n");
    fprintf(ofFCC,"\n");
    fprintf(ofHCP,"\n");
    fprintf(ofLIQ,"\n");
  }
  fclose(ofBCC);
  fclose(ofFCC);
  fclose(ofHCP);
  fclose(ofLIQ);
 
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x90, %rsp
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rax
movq %rax, -0x90(%rbp)
leaq -0x80(%rbp), %rdi
leaq 0x3b6b(%rip), %rsi      # 0xc3c0
movb $0x0, %al
callq 0x3090
leaq -0x80(%rbp), %rdi
leaq 0x3b6b(%rip), %rsi      # 0xc3d2
callq 0x32b0
movq %rax, -0x10(%rbp)
leaq -0x80(%rbp), %rdi
leaq 0x3b59(%rip), %rsi      # 0xc3d4
movb $0x0, %al
callq 0x3090
leaq -0x80(%rbp), %rdi
leaq 0x3b45(%rip), %rsi      # 0xc3d2
callq 0x32b0
movq %rax, -0x18(%rbp)
leaq -0x80(%rbp), %rdi
leaq 0x3b45(%rip), %rsi      # 0xc3e6
movb $0x0, %al
callq 0x3090
leaq -0x80(%rbp), %rdi
leaq 0x3b1f(%rip), %rsi      # 0xc3d2
callq 0x32b0
movq %rax, -0x20(%rbp)
leaq -0x80(%rbp), %rdi
leaq 0x3b31(%rip), %rsi      # 0xc3f8
movb $0x0, %al
callq 0x3090
leaq -0x80(%rbp), %rdi
leaq 0x3af9(%rip), %rsi      # 0xc3d2
callq 0x32b0
movq %rax, -0x28(%rbp)
movl $0x0, -0x84(%rbp)
cmpl $0x258, -0x84(%rbp)     # imm = 0x258
jge 0x8aa6
movl $0x0, -0x88(%rbp)
cmpl $0xc8, -0x88(%rbp)
jge 0x8a4a
movq -0x90(%rbp), %rax
movq -0x10(%rbp), %rdi
movl -0x88(%rbp), %edx
movl -0x84(%rbp), %ecx
addq $0x7a50b8, %rax         # imm = 0x7A50B8
movslq -0x88(%rbp), %rsi
imulq $0x12c0, %rsi, %rsi     # imm = 0x12C0
addq %rsi, %rax
movslq -0x84(%rbp), %rsi
movsd (%rax,%rsi,8), %xmm0
leaq 0x3ab3(%rip), %rsi      # 0xc40a
movb $0x1, %al
callq 0x3360
movq -0x90(%rbp), %rax
movq -0x18(%rbp), %rdi
movl -0x88(%rbp), %edx
movl -0x84(%rbp), %ecx
addq $0x88f6b8, %rax         # imm = 0x88F6B8
movslq -0x88(%rbp), %rsi
imulq $0x12c0, %rsi, %rsi     # imm = 0x12C0
addq %rsi, %rax
movslq -0x84(%rbp), %rsi
movsd (%rax,%rsi,8), %xmm0
leaq 0x3a6b(%rip), %rsi      # 0xc40a
movb $0x1, %al
callq 0x3360
movq -0x90(%rbp), %rax
movq -0x20(%rbp), %rdi
movl -0x88(%rbp), %edx
movl -0x84(%rbp), %ecx
addq $0x979cb8, %rax         # imm = 0x979CB8
movslq -0x88(%rbp), %rsi
imulq $0x12c0, %rsi, %rsi     # imm = 0x12C0
addq %rsi, %rax
movslq -0x84(%rbp), %rsi
movsd (%rax,%rsi,8), %xmm0
leaq 0x3a23(%rip), %rsi      # 0xc40a
movb $0x1, %al
callq 0x3360
movq -0x90(%rbp), %rax
movq -0x28(%rbp), %rdi
movl -0x88(%rbp), %edx
movl -0x84(%rbp), %ecx
addq $0xa642b8, %rax         # imm = 0xA642B8
movslq -0x88(%rbp), %rsi
imulq $0x12c0, %rsi, %rsi     # imm = 0x12C0
addq %rsi, %rax
movslq -0x84(%rbp), %rsi
movsd (%rax,%rsi,8), %xmm0
leaq 0x39db(%rip), %rsi      # 0xc40a
movb $0x1, %al
callq 0x3360
movl -0x88(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x88(%rbp)
jmp 0x8906
movq -0x10(%rbp), %rdi
leaq 0x3a35(%rip), %rsi      # 0xc48a
movb $0x0, %al
callq 0x3360
movq -0x18(%rbp), %rdi
leaq 0x3a23(%rip), %rsi      # 0xc48a
movb $0x0, %al
callq 0x3360
movq -0x20(%rbp), %rdi
leaq 0x3a11(%rip), %rsi      # 0xc48a
movb $0x0, %al
callq 0x3360
movq -0x28(%rbp), %rdi
leaq 0x39ff(%rip), %rsi      # 0xc48a
movb $0x0, %al
callq 0x3360
movl -0x84(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x84(%rbp)
jmp 0x88ec
movq -0x10(%rbp), %rdi
callq 0x3210
movq -0x18(%rbp), %rdi
callq 0x3210
movq -0x20(%rbp), %rdi
callq 0x3210
movq -0x28(%rbp), %rdi
callq 0x3210
addq $0x90, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)