// File: /workspace/github_c_makefile_star2_O0/ugobas[P]tnm/confchange.c
// Function: Print_diff_fluct
void Print_diff_fluct(struct Tors *Diff, struct Normal_Mode *NM,
		      int *outlier_tors, char *nameout2)
{
  FILE *file_out; char nameout[200];

  sprintf(nameout, "%s_Tors_diff.dat", nameout2);
  file_out=fopen(nameout, "w"); printf("Writing %s\n", nameout);
  fprintf(file_out, "# Squared fluctuations of torsion angles\n");
  if(outlier_tors)fprintf(file_out, "# Excluding outliers\n");
  fprintf(file_out, "# Thermal Conf.change\n");
  int a, ma=0;
  for(a=0; a<NM->N_axes; a++){
    if(outlier_tors && (outlier_tors[a])){ma++; continue;}
    fprintf(file_out,"%.4g\t%.4g\n", NM->tors_fluct[a],
	    Diff->Tors[a]*Diff->Tors[a]);
  }
  if(outlier_tors)fprintf(file_out, "# %d angles excluded\n", ma);
  fclose(file_out);
  
 sprintf(nameout, "%s_Cart_diff.dat", nameout2);
  file_out=fopen(nameout, "w"); printf("Writing %s\n", nameout);
  fprintf(file_out, "# Squared fluctuations of Cartesian coordinates\n");
  fprintf(file_out, "# Thermal Conf.change\n");
  for(a=0; a<NM->N_Cart; a++){
    fprintf(file_out,"%.4g\t%.4g\n", NM->cart_fluct[a],
	    Diff->Cart[a]*Diff->Cart[a]);
  }
  fclose(file_out);

}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x100, %rsp            # imm = 0x100
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq %rdx, -0x18(%rbp)
movq %rcx, -0x20(%rbp)
leaq -0xf0(%rbp), %rdi
movq -0x20(%rbp), %rdx
leaq 0x3b425(%rip), %rsi     # 0x7f1e2
movb $0x0, %al
callq 0x1200
leaq -0xf0(%rbp), %rdi
leaq 0x385a0(%rip), %rsi     # 0x7c372
callq 0x11b0
movq %rax, -0x28(%rbp)
leaq -0xf0(%rbp), %rsi
leaq 0x33705(%rip), %rdi     # 0x774ee
movb $0x0, %al
callq 0x10d0
movq -0x28(%rbp), %rdi
leaq 0x3b3f8(%rip), %rsi     # 0x7f1f3
movb $0x0, %al
callq 0x1150
cmpq $0x0, -0x18(%rbp)
je 0x43e1b
movq -0x28(%rbp), %rdi
leaq 0x3b409(%rip), %rsi     # 0x7f21d
movb $0x0, %al
callq 0x1150
movq -0x28(%rbp), %rdi
leaq 0x3b40d(%rip), %rsi     # 0x7f233
movb $0x0, %al
callq 0x1150
movl $0x0, -0xf8(%rbp)
movl $0x0, -0xf4(%rbp)
movl -0xf4(%rbp), %eax
movq -0x10(%rbp), %rcx
cmpl 0x8(%rcx), %eax
jge 0x43ee7
cmpq $0x0, -0x18(%rbp)
je 0x43e7d
movq -0x18(%rbp), %rax
movslq -0xf4(%rbp), %rcx
cmpl $0x0, (%rax,%rcx,4)
je 0x43e7d
movl -0xf8(%rbp), %eax
addl $0x1, %eax
movl %eax, -0xf8(%rbp)
jmp 0x43ed3
movq -0x28(%rbp), %rdi
movq -0x10(%rbp), %rax
movq 0x50(%rax), %rax
movslq -0xf4(%rbp), %rcx
movss (%rax,%rcx,4), %xmm0
cvtss2sd %xmm0, %xmm0
movq -0x8(%rbp), %rax
movq 0x18(%rax), %rax
movslq -0xf4(%rbp), %rcx
movss (%rax,%rcx,4), %xmm1
movq -0x8(%rbp), %rax
movq 0x18(%rax), %rax
movslq -0xf4(%rbp), %rcx
mulss (%rax,%rcx,4), %xmm1
cvtss2sd %xmm1, %xmm1
leaq 0x3b37e(%rip), %rsi     # 0x7f24a
movb $0x2, %al
callq 0x1150
movl -0xf4(%rbp), %eax
addl $0x1, %eax
movl %eax, -0xf4(%rbp)
jmp 0x43e41
cmpq $0x0, -0x18(%rbp)
je 0x43f06
movq -0x28(%rbp), %rdi
movl -0xf8(%rbp), %edx
leaq 0x3b356(%rip), %rsi     # 0x7f255
movb $0x0, %al
callq 0x1150
movq -0x28(%rbp), %rdi
callq 0x10a0
leaq -0xf0(%rbp), %rdi
movq -0x20(%rbp), %rdx
leaq 0x3b34a(%rip), %rsi     # 0x7f26b
movb $0x0, %al
callq 0x1200
leaq -0xf0(%rbp), %rdi
leaq 0x3843c(%rip), %rsi     # 0x7c372
callq 0x11b0
movq %rax, -0x28(%rbp)
leaq -0xf0(%rbp), %rsi
leaq 0x335a1(%rip), %rdi     # 0x774ee
movb $0x0, %al
callq 0x10d0
movq -0x28(%rbp), %rdi
leaq 0x3b31d(%rip), %rsi     # 0x7f27c
movb $0x0, %al
callq 0x1150
movq -0x28(%rbp), %rdi
leaq 0x3b2c2(%rip), %rsi     # 0x7f233
movb $0x0, %al
callq 0x1150
movl $0x0, -0xf4(%rbp)
movl -0xf4(%rbp), %eax
movq -0x10(%rbp), %rcx
cmpl 0xc(%rcx), %eax
jge 0x43ff8
movq -0x28(%rbp), %rdi
movq -0x10(%rbp), %rax
movq 0x58(%rax), %rax
movslq -0xf4(%rbp), %rcx
movss (%rax,%rcx,4), %xmm0
cvtss2sd %xmm0, %xmm0
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rax
movslq -0xf4(%rbp), %rcx
movss (%rax,%rcx,4), %xmm1
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rax
movslq -0xf4(%rbp), %rcx
mulss (%rax,%rcx,4), %xmm1
cvtss2sd %xmm1, %xmm1
leaq 0x3b26a(%rip), %rsi     # 0x7f24a
movb $0x2, %al
callq 0x1150
movl -0xf4(%rbp), %eax
addl $0x1, %eax
movl %eax, -0xf4(%rbp)
jmp 0x43f82
movq -0x28(%rbp), %rdi
callq 0x10a0
addq $0x100, %rsp            # imm = 0x100
popq %rbp
retq
nopw (%rax,%rax)