// File: /workspace/github_c_makefile_star2_O2/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
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0xd8, %rsp
movq %rdx, %r13
movq %rsi, %rbx
movq %rdi, %r14
leaq 0x285d6(%rip), %rsi     # 0x53fd5
xorl %r12d, %r12d
leaq 0x10(%rsp), %r15
movq %r15, %rdi
movq %rcx, 0x8(%rsp)
movq %rcx, %rdx
xorl %eax, %eax
callq 0x2260
leaq 0x25730(%rip), %rsi     # 0x51150
movq %r15, %rdi
callq 0x2210
movq %rax, %rbp
leaq 0x20275(%rip), %rdi     # 0x4bca7
movq %r15, %rsi
xorl %eax, %eax
callq 0x20f0
leaq 0x285a3(%rip), %rdi     # 0x53fe6
pushq $0x29
popq %rsi
pushq $0x1
popq %rdx
movq %rbp, %rcx
callq 0x2280
testq %r13, %r13
je 0x2ba6b
leaq 0x285b3(%rip), %rdi     # 0x54010
pushq $0x15
popq %rsi
pushq $0x1
popq %rdx
movq %rbp, %rcx
callq 0x2280
leaq 0x285b4(%rip), %rdi     # 0x54026
pushq $0x16
popq %rsi
pushq $0x1
popq %rdx
movq %rbp, %rcx
callq 0x2280
xorl %r15d, %r15d
movslq 0x8(%rbx), %rax
cmpq %rax, %r15
jge 0x2bad0
testq %r13, %r13
je 0x2ba9e
cmpl $0x0, (%r13,%r15,4)
je 0x2ba9e
incl %r12d
jmp 0x2bacb
movq 0x50(%rbx), %rax
cvtss2sd (%rax,%r15,4), %xmm0
movq 0x18(%r14), %rax
movss (%rax,%r15,4), %xmm1
mulss %xmm1, %xmm1
cvtss2sd %xmm1, %xmm1
movq %rbp, %rdi
leaq 0x28579(%rip), %rsi     # 0x5403d
movb $0x2, %al
callq 0x2190
incq %r15
jmp 0x2ba83
testq %r13, %r13
je 0x2bae9
leaq 0x2856c(%rip), %rsi     # 0x54048
movq %rbp, %rdi
movl %r12d, %edx
xorl %eax, %eax
callq 0x2190
movq %rbp, %rdi
callq 0x20c0
leaq 0x28566(%rip), %rsi     # 0x5405e
xorl %r13d, %r13d
leaq 0x10(%rsp), %r12
movq %r12, %rdi
movq 0x8(%rsp), %rdx
xorl %eax, %eax
callq 0x2260
leaq 0x2563a(%rip), %rsi     # 0x51150
movq %r12, %rdi
callq 0x2210
movq %rax, %r15
leaq 0x2017f(%rip), %rdi     # 0x4bca7
movq %r12, %rsi
xorl %eax, %eax
callq 0x20f0
leaq 0x28536(%rip), %rdi     # 0x5406f
pushq $0x30
popq %rsi
pushq $0x1
popq %r12
movq %r12, %rdx
movq %r15, %rcx
callq 0x2280
leaq 0x284d4(%rip), %rdi     # 0x54026
pushq $0x16
popq %rsi
movq %r12, %rdx
movq %r15, %rcx
callq 0x2280
leaq 0x284d6(%rip), %r12     # 0x5403d
movslq 0xc(%rbx), %rax
cmpq %rax, %r13
jge 0x2bb9e
movq 0x58(%rbx), %rax
cvtss2sd (%rax,%r13,4), %xmm0
movq 0x8(%r14), %rax
movss (%rax,%r13,4), %xmm1
mulss %xmm1, %xmm1
cvtss2sd %xmm1, %xmm1
movq %r15, %rdi
movq %r12, %rsi
movb $0x2, %al
callq 0x2190
incq %r13
jmp 0x2bb67
movq %r15, %rdi
callq 0x20c0
addq $0xd8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq