// File: /workspace/github_c_makefile_star2_O0/markpeerdeman[P]mbemm/src/emath/contactc.c
// Function: printstatusc
void printstatusc(mesh theMesh) /* prints database/memory statistics */
{ point p; element e; restraint t; restraint d; long m_size; int lab;
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); cn_nodes=1;
  while (p->NEXT!=(point)NULL) 
  { cn_nodes++; 
    p=p->NEXT; 
  } 
  theMesh->nr_of_nodes=cn_nodes;
  fprintf(stderr,"* number of points loaded:        %12d\n",cn_nodes);

  e=(element)element_dll(theMesh->mesh_e,START,0); cn_elements=1;
  while (e->NEXT!=(element)NULL) { cn_elements++; e=e->NEXT; }
  theMesh->nr_of_elements=cn_elements;
  fprintf(stderr,"* number of elements loaded:      %12d\n", cn_elements);
  if (cn_elements>500) {
  }

  t=(restraint)restraint_dll(theMesh->mesh_t,START,0); cn_tractions=1;
  if (theMesh->mesh_t->NEXT==(restraint)NULL) { cn_tractions=0; theMesh->nr_of_tractions=0;}
  else
  while (t->NEXT!=(restraint)NULL) { cn_tractions++; t=t->NEXT; }
  theMesh->nr_of_tractions=cn_tractions;
  fprintf(stderr,"* number of tractions loaded:     %12d\n", cn_tractions);

  d=(restraint)restraint_dll(theMesh->mesh_d,START,0); cn_displacements=1;
  if (theMesh->mesh_d->NEXT==(restraint)NULL) { cn_displacements=0; theMesh->nr_of_displacements=0;}
  else
  while (d->NEXT!=(restraint)NULL) { cn_displacements++; d=d->NEXT; }
  theMesh->nr_of_displacements=cn_displacements;
  fprintf(stderr,"* number of displacements loaded: %12d\n", cn_displacements);
  
  m_size=(long)(cn_nodes*(int)sizeof(pointtype)+cn_elements*
  (int)sizeof(elementtype)+(cn_tractions+cn_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*cn_nodes*3*cn_nodes*(int)sizeof(double))/
		 (long)1024));
  for (m_size=1; m_size<=(long)cn_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)cn_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:
subq $0x48, %rsp
movq %rdi, 0x40(%rsp)
movq 0x14368(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
leaq 0x10346(%rip), %rsi     # 0x19fe0
movb $0x0, %al
callq 0x10d0
movq 0x14350(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
leaq 0x10372(%rip), %rsi     # 0x1a024
movb $0x0, %al
callq 0x10d0
movq 0x14338(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
leaq 0xf550(%rip), %rsi      # 0x1921a
movb $0x0, %al
callq 0x10d0
movq 0x14320(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
leaq 0x1036e(%rip), %rsi     # 0x1a050
movb $0x0, %al
callq 0x10d0
movq 0x40(%rsp), %rax
movq (%rax), %rdi
xorl %edx, %edx
movl %edx, %esi
callq 0x175c0
movq %rax, 0x38(%rsp)
movl $0x1, 0x14a47(%rip)     # 0x1e750
movq 0x38(%rsp), %rax
cmpq $0x0, 0x8(%rax)
je 0x9d34
movl 0x14a35(%rip), %eax     # 0x1e750
addl $0x1, %eax
movl %eax, 0x14a2c(%rip)     # 0x1e750
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x38(%rsp)
jmp 0x9d09
movl 0x14a16(%rip), %ecx     # 0x1e750
movq 0x40(%rsp), %rax
movl %ecx, 0x20(%rax)
movq 0x142af(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
movl 0x149fe(%rip), %edx     # 0x1e750
leaq 0x1030f(%rip), %rsi     # 0x1a068
movb $0x0, %al
callq 0x10d0
movq 0x40(%rsp), %rax
movq 0x8(%rax), %rdi
xorl %edx, %edx
movl %edx, %esi
callq 0x14570
movq %rax, 0x30(%rsp)
movl $0x1, 0x149d3(%rip)     # 0x1e754
movq 0x30(%rsp), %rax
cmpq $0x0, 0x8(%rax)
je 0x9dac
movl 0x149c1(%rip), %eax     # 0x1e754
addl $0x1, %eax
movl %eax, 0x149b8(%rip)     # 0x1e754
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x30(%rsp)
jmp 0x9d81
movl 0x149a2(%rip), %ecx     # 0x1e754
movq 0x40(%rsp), %rax
movl %ecx, 0x24(%rax)
movq 0x14237(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
movl 0x1498a(%rip), %edx     # 0x1e754
leaq 0x102bf(%rip), %rsi     # 0x1a090
movb $0x0, %al
callq 0x10d0
cmpl $0x1f4, 0x14972(%rip)   # imm = 0x1F4
jle 0x9de6
jmp 0x9de6
movq 0x40(%rsp), %rax
movq 0x18(%rax), %rdi
xorl %edx, %edx
movl %edx, %esi
callq 0x17a40
movq %rax, 0x28(%rsp)
movl $0x1, 0x14951(%rip)     # 0x1e758
movq 0x40(%rsp), %rax
movq 0x18(%rax), %rax
cmpq $0x0, 0x8(%rax)
jne 0x9e2f
movl $0x0, 0x14937(%rip)     # 0x1e758
movq 0x40(%rsp), %rax
movl $0x0, 0x2c(%rax)
jmp 0x9e5e
jmp 0x9e31
movq 0x28(%rsp), %rax
cmpq $0x0, 0x8(%rax)
je 0x9e5c
movl 0x14915(%rip), %eax     # 0x1e758
addl $0x1, %eax
movl %eax, 0x1490c(%rip)     # 0x1e758
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x28(%rsp)
jmp 0x9e31
jmp 0x9e5e
movl 0x148f4(%rip), %ecx     # 0x1e758
movq 0x40(%rsp), %rax
movl %ecx, 0x2c(%rax)
movq 0x14185(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
movl 0x148dc(%rip), %edx     # 0x1e758
leaq 0x10235(%rip), %rsi     # 0x1a0b8
movb $0x0, %al
callq 0x10d0
movq 0x40(%rsp), %rax
movq 0x10(%rax), %rdi
xorl %edx, %edx
movl %edx, %esi
callq 0x17a40
movq %rax, 0x20(%rsp)
movl $0x1, 0x148b1(%rip)     # 0x1e75c
movq 0x40(%rsp), %rax
movq 0x10(%rax), %rax
cmpq $0x0, 0x8(%rax)
jne 0x9ed3
movl $0x0, 0x14897(%rip)     # 0x1e75c
movq 0x40(%rsp), %rax
movl $0x0, 0x28(%rax)
jmp 0x9f02
jmp 0x9ed5
movq 0x20(%rsp), %rax
cmpq $0x0, 0x8(%rax)
je 0x9f00
movl 0x14875(%rip), %eax     # 0x1e75c
addl $0x1, %eax
movl %eax, 0x1486c(%rip)     # 0x1e75c
movq 0x20(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x20(%rsp)
jmp 0x9ed5
jmp 0x9f02
movl 0x14854(%rip), %ecx     # 0x1e75c
movq 0x40(%rsp), %rax
movl %ecx, 0x28(%rax)
movq 0x140e1(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
movl 0x1483c(%rip), %edx     # 0x1e75c
leaq 0x101b9(%rip), %rsi     # 0x1a0e0
movb $0x0, %al
callq 0x10d0
imull $0x88, 0x14818(%rip), %eax # 0x1e750
imull $0xc0, 0x14812(%rip), %ecx # 0x1e754
addl %ecx, %eax
movl 0x1480e(%rip), %ecx     # 0x1e758
addl 0x1480c(%rip), %ecx     # 0x1e75c
imull $0x48, %ecx, %ecx
addl %ecx, %eax
cltq
movl $0x400, %ecx            # imm = 0x400
cqto
idivq %rcx
movq %rax, 0x18(%rsp)
movq 0x1408b(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
movq 0x18(%rsp), %rax
movl %eax, %edx
leaq 0x1018a(%rip), %rsi     # 0x1a108
movb $0x0, %al
callq 0x10d0
movq 0x1406c(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
movq 0x18(%rsp), %rax
movq %rax, 0x8(%rsp)
movl 0x147b1(%rip), %eax     # 0x1e750
shll $0x3, %eax
imull $0x3, %eax, %eax
imull 0x147a4(%rip), %eax     # 0x1e750
shll $0x3, %eax
cltq
movl $0x400, %ecx            # imm = 0x400
cqto
idivq %rcx
movq %rax, %rcx
movq 0x8(%rsp), %rax
addq %rcx, %rax
movl %eax, %edx
leaq 0x10162(%rip), %rsi     # 0x1a131
movb $0x0, %al
callq 0x10d0
movq $0x1, 0x18(%rsp)
movq 0x18(%rsp), %rax
movslq 0x14765(%rip), %rcx     # 0x1e750
cmpq %rcx, %rax
jg 0xa03b
movq 0x40(%rsp), %rax
movq (%rax), %rdi
movq 0x18(%rsp), %rax
movl %eax, %edx
movl $0x2, %esi
callq 0x175c0
movq %rax, 0x38(%rsp)
leaq 0x14893(%rip), %rax     # 0x1e8a8
cmpl $0x0, (%rax)
je 0xa029
movl $0x2, %edi
movl $0x6a, %esi
callq 0x15200
jmp 0xa02b
movq 0x18(%rsp), %rax
addq $0x1, %rax
movq %rax, 0x18(%rsp)
jmp 0x9fdf
movq $0x1, 0x18(%rsp)
movq 0x18(%rsp), %rax
movslq 0x14704(%rip), %rcx     # 0x1e754
cmpq %rcx, %rax
jg 0xa0a1
movq 0x40(%rsp), %rax
movq 0x8(%rax), %rdi
movq 0x18(%rsp), %rax
movl %eax, %edx
movl $0x2, %esi
callq 0x14570
movq %rax, 0x30(%rsp)
leaq 0x1482d(%rip), %rax     # 0x1e8a8
cmpl $0x0, (%rax)
je 0xa08f
movl $0x2, %edi
movl $0x6b, %esi
callq 0x15200
jmp 0xa091
movq 0x18(%rsp), %rax
addq $0x1, %rax
movq %rax, 0x18(%rsp)
jmp 0xa044
movq 0x13f50(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
leaq 0x14326(%rip), %rax     # 0x1e3d8
movsd (%rax), %xmm0
leaq 0x1431b(%rip), %rax     # 0x1e3d8
movsd (%rax), %xmm1
movsd 0xf36f(%rip), %xmm2     # 0x19438
divsd %xmm2, %xmm1
movsd 0xef33(%rip), %xmm2     # 0x19008
leaq 0x14304(%rip), %rax     # 0x1e3e0
addsd (%rax), %xmm2
divsd %xmm2, %xmm1
leaq 0x142f5(%rip), %rax     # 0x1e3e0
movsd (%rax), %xmm2
leaq 0x10077(%rip), %rsi     # 0x1a16d
movb $0x3, %al
callq 0x10d0
movq 0x13ef4(%rip), %rax     # 0x1dff8
movq (%rax), %rdi
leaq 0x10096(%rip), %rsi     # 0x1a1a4
movb $0x0, %al
callq 0x10d0
addq $0x48, %rsp
retq
nopw (%rax,%rax)