// File: /workspace/github_c_makefile_star2_O1/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 0x2b1fc(%rip), %rsi     # 0x5a0d1
xorl %ebp, %ebp
leaq 0x10(%rsp), %r15
movq %r15, %rdi
movq %rcx, 0x8(%rsp)
movq %rcx, %rdx
xorl %eax, %eax
callq 0x2260
leaq 0x2834b(%rip), %rsi     # 0x57240
movq %r15, %rdi
callq 0x2210
movq %rax, %r13
leaq 0x22dd4(%rip), %rdi     # 0x51cdb
movq %r15, %rsi
xorl %eax, %eax
callq 0x20f0
leaq 0x2b1ca(%rip), %rdi     # 0x5a0e2
movl $0x29, %esi
movl $0x1, %edx
movq %r13, %rcx
callq 0x2280
testq %r12, %r12
je 0x2ef48
leaq 0x2b1d6(%rip), %rdi     # 0x5a10c
movl $0x15, %esi
movl $0x1, %edx
movq %r13, %rcx
callq 0x2280
leaq 0x2b1d3(%rip), %rdi     # 0x5a122
movl $0x16, %esi
movl $0x1, %edx
movq %r13, %rcx
callq 0x2280
cmpl $0x0, 0x8(%rbx)
jle 0x2efb8
xorl %r15d, %r15d
xorl %ebp, %ebp
testq %r12, %r12
je 0x2ef7c
cmpl $0x0, (%r12,%r15,4)
je 0x2ef7c
incl %ebp
jmp 0x2efac
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 0x2b194(%rip), %rsi     # 0x5a139
movb $0x2, %al
callq 0x2190
incq %r15
movslq 0x8(%rbx), %rax
cmpq %rax, %r15
jl 0x2ef6c
testq %r12, %r12
je 0x2efd0
leaq 0x2b180(%rip), %rsi     # 0x5a144
movq %r13, %rdi
movl %ebp, %edx
xorl %eax, %eax
callq 0x2190
movq %r13, %rdi
callq 0x20c0
leaq 0x2b17b(%rip), %rsi     # 0x5a15a
leaq 0x10(%rsp), %r12
movq %r12, %rdi
movq 0x8(%rsp), %rdx
xorl %eax, %eax
callq 0x2260
leaq 0x28246(%rip), %rsi     # 0x57240
movq %r12, %rdi
callq 0x2210
movq %rax, %r15
leaq 0x22ccf(%rip), %rdi     # 0x51cdb
movq %r12, %rsi
xorl %eax, %eax
callq 0x20f0
leaq 0x2b14e(%rip), %rdi     # 0x5a16b
movl $0x30, %esi
movl $0x1, %edx
movq %r15, %rcx
callq 0x2280
leaq 0x2b0ec(%rip), %rdi     # 0x5a122
movl $0x16, %esi
movl $0x1, %edx
movq %r15, %rcx
callq 0x2280
cmpl $0x0, 0xc(%rbx)
jle 0x2f090
xorl %r13d, %r13d
leaq 0x2b0e1(%rip), %r12     # 0x5a139
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 0x2190
incq %r13
movslq 0xc(%rbx), %rax
cmpq %rax, %r13
jl 0x2f058
movq %r15, %rdi
callq 0x20c0
addq $0xd8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq