// File: /workspace/github_c_makefile_star2_O3/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, %r12
movq %rsi, %rbx
movq %rdi, %r14
leaq 0x2b471(%rip), %rsi     # 0x5a075
xorl %ebp, %ebp
leaq 0x10(%rsp), %r15
movq %r15, %rdi
movq %rcx, 0x8(%rsp)
movq %rcx, %rdx
xorl %eax, %eax
callq 0x2270
leaq 0x285dc(%rip), %rsi     # 0x57200
movq %r15, %rdi
callq 0x2220
movq %rax, %r13
leaq 0x23119(%rip), %rdi     # 0x51d4f
movq %r15, %rsi
xorl %eax, %eax
callq 0x20f0
leaq 0x2b43f(%rip), %rdi     # 0x5a086
movl $0x29, %esi
movl $0x1, %edx
movq %r13, %rcx
callq 0x2290
testq %r12, %r12
je 0x2ec77
leaq 0x2b44b(%rip), %rdi     # 0x5a0b0
movl $0x15, %esi
movl $0x1, %edx
movq %r13, %rcx
callq 0x2290
leaq 0x2b448(%rip), %rdi     # 0x5a0c6
movl $0x16, %esi
movl $0x1, %edx
movq %r13, %rcx
callq 0x2290
movl 0x8(%rbx), %eax
testl %eax, %eax
jle 0x2ecea
xorl %r15d, %r15d
xorl %ebp, %ebp
testq %r12, %r12
je 0x2ecac
cmpl $0x0, (%r12,%r15,4)
je 0x2ecac
incl %ebp
jmp 0x2ecdf
movq 0x50(%rbx), %rax
xorps %xmm0, %xmm0
cvtss2sd (%rax,%r15,4), %xmm0
movq 0x18(%r14), %rax
movss (%rax,%r15,4), %xmm1
mulss %xmm1, %xmm1
cvtss2sd %xmm1, %xmm1
movq %r13, %rdi
leaq 0x2b408(%rip), %rsi     # 0x5a0dd
movb $0x2, %al
callq 0x21a0
movl 0x8(%rbx), %eax
incq %r15
movslq %eax, %rcx
cmpq %rcx, %r15
jl 0x2ec9c
testq %r12, %r12
je 0x2ed02
leaq 0x2b3f2(%rip), %rsi     # 0x5a0e8
movq %r13, %rdi
movl %ebp, %edx
xorl %eax, %eax
callq 0x21a0
movq %r13, %rdi
callq 0x20c0
leaq 0x2b3ed(%rip), %rsi     # 0x5a0fe
leaq 0x10(%rsp), %r12
movq %r12, %rdi
movq 0x8(%rsp), %rdx
xorl %eax, %eax
callq 0x2270
leaq 0x284d4(%rip), %rsi     # 0x57200
movq %r12, %rdi
callq 0x2220
movq %rax, %r15
leaq 0x23011(%rip), %rdi     # 0x51d4f
movq %r12, %rsi
xorl %eax, %eax
callq 0x20f0
leaq 0x2b3c0(%rip), %rdi     # 0x5a10f
movl $0x30, %esi
movl $0x1, %edx
movq %r15, %rcx
callq 0x2290
leaq 0x2b35e(%rip), %rdi     # 0x5a0c6
movl $0x16, %esi
movl $0x1, %edx
movq %r15, %rcx
callq 0x2290
cmpl $0x0, 0xc(%rbx)
jle 0x2edc2
xorl %r13d, %r13d
leaq 0x2b353(%rip), %r12     # 0x5a0dd
movq 0x58(%rbx), %rax
xorps %xmm0, %xmm0
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 0x21a0
incq %r13
movslq 0xc(%rbx), %rax
cmpq %rax, %r13
jl 0x2ed8a
movq %r15, %rdi
callq 0x20c0
addq $0xd8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq