// File: /workspace/github_c_makefile_star2_O1/markpeerdeman[P]mbemm/src/emath/linearc.c
// Function: printstatus
void printstatus(mesh theMesh) /* prints database/memory statistics */
{ point p; element e; restraint t; restraint d; long m_size;
fprintf(stderr,"\n=================================================================\n");
fprintf(stderr,"                SUMMARY FOR THIS ANALYSIS:\n");
fprintf(stderr,"-----------------------------------------------------------------\n");
  fprintf(stderr,"\nDatabase information:\n");
  p=(point)point_dll(theMesh->mesh_p,START,0); n_nodes=1;
  while (p->NEXT!=(point)NULL) { n_nodes++; p=p->NEXT; } 
  theMesh->nr_of_nodes=n_nodes;
  fprintf(stderr,"* number of points loaded:        %12d\n",n_nodes);

  e=(element)element_dll(theMesh->mesh_e,START,0); n_elements=1;
  while (e->NEXT!=(element)NULL) { n_elements++; e=e->NEXT; }
  theMesh->nr_of_elements=n_elements;
  fprintf(stderr,"* number of elements loaded:      %12d\n", n_elements);
/*  if (n_elements>500) 
  { fprintf(stderr,"MAXIMUM NR. OF ELEMENTS EXCEEDED...\n");
    exit(-1);
  }
*/
  t=(restraint)restraint_dll(theMesh->mesh_t,START,0); n_tractions=1;
  if (theMesh->mesh_t->NEXT==(restraint)NULL) { n_tractions=0; theMesh->nr_of_tractions=0;}
  else
  while (t->NEXT!=(restraint)NULL) { n_tractions++; t=t->NEXT; }
  theMesh->nr_of_tractions=n_tractions;
  fprintf(stderr,"* number of tractions loaded:     %12d\n", n_tractions);

  d=(restraint)restraint_dll(theMesh->mesh_d,START,0); n_displacements=1;
  if (theMesh->mesh_d->NEXT==(restraint)NULL) { n_displacements=0; theMesh->nr_of_displacements=0;}
  else
  while (d->NEXT!=(restraint)NULL) { n_displacements++; d=d->NEXT; }
  theMesh->nr_of_displacements=n_displacements;
  fprintf(stderr,"* number of displacements loaded: %12d\n", n_displacements);
  
  m_size=(long)(n_nodes*(int)sizeof(pointtype)+n_elements*
  (int)sizeof(elementtype)+(n_tractions+n_displacements)*
  (int)sizeof(restrainttype))/(long)1024;
  fprintf(stderr,"\nThe database occupies %d kB in memory.\n",(int)m_size);
  fprintf(stderr,"The total memory requirements for this run will be %d kB.\n\n",
		 (int)(m_size+(long)(8*n_nodes*3*n_nodes*(int)sizeof(double))/
		 (long)1024));
  for (m_size=1; m_size<=(long)n_nodes; m_size++)
  { p=(point)point_dll(theMesh->mesh_p,SEARCH,(int)m_size);
	if (CURRENT_STATUS!=GREEN) evaluate_level(RED,106); }
  for (m_size=1; m_size<=(long)n_elements; m_size++)
  { e=(element)element_dll(theMesh->mesh_e,SEARCH,(int)m_size);
	if (CURRENT_STATUS!=GREEN) evaluate_level(RED,107); }
  fprintf(stderr,"Material data:\n* E  = %.10lE\n* MU = %.10lE\n* NU = %f\n\n",
  EMOD,MU,NU);
fprintf(stderr,"-----------------------------------------------------------------\n\n");
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x120a4(%rip), %r15     # 0x14ff8
movq (%r15), %rcx
leaq 0xc0aa(%rip), %rdi      # 0xf008
pushq $0x43
popq %rsi
pushq $0x1
popq %r14
movq %r14, %rdx
callq 0x11a0
movq (%r15), %rcx
leaq 0xc0d5(%rip), %rdi      # 0xf04c
pushq $0x2b
popq %rsi
movq %r14, %rdx
callq 0x11a0
movq (%r15), %rcx
leaq 0xb299(%rip), %rdi      # 0xe225
pushq $0x42
popq %rsi
movq %r14, %rdx
callq 0x11a0
movq (%r15), %rcx
leaq 0xc0d7(%rip), %rdi      # 0xf078
pushq $0x17
popq %rsi
movq %r14, %rdx
callq 0x11a0
movq (%rbx), %rdi
xorl %r14d, %r14d
xorl %esi, %esi
xorl %edx, %edx
callq 0xcf07
movq 0x8(%rax), %rax
incl %r14d
testq %rax, %rax
jne 0x2fbb
movl %r14d, 0x128ca(%rip)    # 0x15898
movl %r14d, 0x20(%rbx)
movq (%r15), %rdi
leaq 0xc0b4(%rip), %rsi      # 0xf090
xorl %ebp, %ebp
movl %r14d, %edx
xorl %eax, %eax
callq 0x1100
movq 0x8(%rbx), %rdi
xorl %esi, %esi
xorl %edx, %edx
callq 0xb834
movq 0x8(%rax), %rax
incl %ebp
testq %rax, %rax
jne 0x2ff5
movl %ebp, 0x12896(%rip)     # 0x1589c
movl %ebp, 0x24(%rbx)
movq (%r15), %rdi
leaq 0xc0a5(%rip), %rsi      # 0xf0b8
movl %ebp, %edx
xorl %eax, %eax
callq 0x1100
movq 0x18(%rbx), %rdi
xorl %esi, %esi
xorl %edx, %edx
callq 0xd1d1
movl $0x1, 0x1286d(%rip)     # 0x158a0
movq 0x18(%rbx), %rcx
cmpq $0x0, 0x8(%rcx)
jne 0x304b
andl $0x0, 0x1285b(%rip)     # 0x158a0
andl $0x0, 0x2c(%rbx)
jmp 0x306b
movq 0x8(%rax), %rax
testq %rax, %rax
je 0x306b
movl 0x12846(%rip), %ecx     # 0x158a0
incl %ecx
movq 0x8(%rax), %rax
testq %rax, %rax
jne 0x305a
movl %ecx, 0x12835(%rip)     # 0x158a0
movl 0x1282f(%rip), %edx     # 0x158a0
movl %edx, 0x2c(%rbx)
movq (%r15), %rdi
leaq 0xc062(%rip), %rsi      # 0xf0e0
xorl %eax, %eax
callq 0x1100
movq 0x10(%rbx), %rdi
xorl %esi, %esi
xorl %edx, %edx
callq 0xd1d1
movl $0x1, 0x12808(%rip)     # 0x158a4
movq 0x10(%rbx), %rcx
cmpq $0x0, 0x8(%rcx)
jne 0x30b4
andl $0x0, 0x127f6(%rip)     # 0x158a4
andl $0x0, 0x28(%rbx)
jmp 0x30d4
movq 0x8(%rax), %rax
testq %rax, %rax
je 0x30d4
movl 0x127e1(%rip), %ecx     # 0x158a4
incl %ecx
movq 0x8(%rax), %rax
testq %rax, %rax
jne 0x30c3
movl %ecx, 0x127d0(%rip)     # 0x158a4
movl 0x127ca(%rip), %edx     # 0x158a4
movl %edx, 0x28(%rbx)
movq (%r15), %rdi
leaq 0xc021(%rip), %rsi      # 0xf108
xorl %eax, %eax
callq 0x1100
imull $0x88, 0x127a0(%rip), %eax # 0x15898
imull $0xc0, 0x1279a(%rip), %ecx # 0x1589c
addl %eax, %ecx
movl 0x1279a(%rip), %eax     # 0x158a4
addl 0x12790(%rip), %eax     # 0x158a0
imull $0x48, %eax, %eax
addl %ecx, %eax
movl $0x400, %ecx            # imm = 0x400
cltd
idivl %ecx
movl %eax, %ebp
movq (%r15), %rdi
leaq 0xc007(%rip), %rsi      # 0xf130
movl %eax, %edx
xorl %eax, %eax
callq 0x1100
movq (%r15), %rdi
movl 0x1275d(%rip), %eax     # 0x15898
imull %eax, %eax
imull $0x18, %eax, %eax
movl $0x80, %ecx
cltd
idivl %ecx
addl %eax, %ebp
leaq 0xc007(%rip), %rsi      # 0xf159
movl %ebp, %edx
xorl %eax, %eax
callq 0x1100
cmpl $0x0, 0x12736(%rip)     # 0x15898
jle 0x31a4
xorl %r12d, %r12d
pushq $0x2
popq %rbp
leaq 0x12767(%rip), %r13     # 0x158d8
pushq $0x6a
popq %r14
movq (%rbx), %rdi
leal 0x1(%r12), %edx
movl %ebp, %esi
callq 0xcf07
cmpl $0x0, (%r13)
je 0x3195
movl %ebp, %edi
movl %r14d, %esi
callq 0xbc50
movslq 0x126fc(%rip), %rax     # 0x15898
incq %r12
cmpq %rax, %r12
jl 0x3175
cmpl $0x0, 0x126f1(%rip)     # 0x1589c
jle 0x31ee
xorl %r12d, %r12d
pushq $0x2
popq %rbp
leaq 0x1271e(%rip), %r13     # 0x158d8
pushq $0x6b
popq %r14
movq 0x8(%rbx), %rdi
leal 0x1(%r12), %edx
movl %ebp, %esi
callq 0xb834
cmpl $0x0, (%r13)
je 0x31df
movl %ebp, %edi
movl %r14d, %esi
callq 0xbc50
movslq 0x126b6(%rip), %rax     # 0x1589c
incq %r12
cmpq %rax, %r12
jl 0x31be
movq (%r15), %rdi
leaq 0x12210(%rip), %rax     # 0x15408
movsd (%rax), %xmm0
movsd 0xb264(%rip), %xmm1     # 0xe468
mulsd %xmm0, %xmm1
leaq 0x12201(%rip), %rax     # 0x15410
movsd (%rax), %xmm2
movsd 0xaded(%rip), %xmm3     # 0xe008
addsd %xmm2, %xmm3
divsd %xmm3, %xmm1
leaq 0xbf6b(%rip), %rsi      # 0xf195
movb $0x3, %al
callq 0x1100
movq (%r15), %rcx
leaq 0xbf91(%rip), %rdi      # 0xf1cc
pushq $0x43
popq %rsi
pushq $0x1
popq %rdx
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x11a0