// File: /workspace/github_c_makefile_star2_O2/markpeerdeman[P]mbemm/src/emath/mcheck.c
// Function: do_meshcheck
void do_meshcheck(char *argv)
{ mesh mesh1;
  WRITE_SPECIAL = NO;
  WRITE_UNIVERSAL = NO;

  /* initialize global datastructures: */
  mesh1=(mesh)malloc(sizeof(meshtype));
  mesh1->mesh_p = point_dll((point)NULL,NEW,0);
  mesh1->mesh_e = element_dll((element)NULL,NEW,0);
  mesh1->mesh_t = restraint_dll((restraint)NULL,NEW,0); mesh1->mesh_t->type=TRACTION;
  mesh1->mesh_d = restraint_dll((restraint)NULL,NEW,0); mesh1->mesh_d->type=DISPLACEMENT;

  /* parse the inputdeck: */
  parse(argv,mesh1); 

  /* kill the boundary conditions which are read from file: */
  restraint_dll(mesh1->mesh_d,KILL,0);
  restraint_dll(mesh1->mesh_t,KILL,0);
  /* and make new ones: */
  mesh1->mesh_t = restraint_dll((restraint)NULL,NEW,0); mesh1->mesh_t->type=TRACTION;
  mesh1->mesh_d = restraint_dll((restraint)NULL,NEW,0); mesh1->mesh_d->type=DISPLACEMENT;

  evaluate_level(GREEN,130);

  /* apply the analytical displacement field: */
  make_restraints(mesh1);
  scalemesh(mesh1);

  /* do the linear analysis: */
  linear3(mesh1); 

  /* solve the linear system of equations: */
  /* solve_3(main_E,main_f); */

  process_results(mesh1,main_f);

  /* kill the globals: */
  point_dll(mesh1->mesh_p,KILL,0);
  element_dll(mesh1->mesh_e,KILL,0);
  restraint_dll(mesh1->mesh_d,KILL,0);
  restraint_dll(mesh1->mesh_t,KILL,0);
  free(mesh1);

  delmatrix(main_E);
  delvector(main_f);  
  delvector(main_u);
   
  evaluate_level(FINISH,41);

}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movq %rdi, %r15
leaq 0x9ad1(%rip), %rax      # 0x14418
andl $0x0, (%rax)
leaq 0x9acb(%rip), %rax      # 0x1441c
andl $0x0, (%rax)
pushq $0x50
popq %rdi
callq 0x1120
movq %rax, %r14
pushq $0x4
popq %rbx
xorl %edi, %edi
movl %ebx, %esi
xorl %edx, %edx
callq 0xc14c
movq %rax, (%r14)
xorl %edi, %edi
movl %ebx, %esi
xorl %edx, %edx
callq 0xad45
movq %rax, 0x8(%r14)
xorl %edi, %edi
movl %ebx, %esi
xorl %edx, %edx
callq 0xc3a0
movq %rax, 0x18(%r14)
andl $0x0, 0x10(%rax)
xorl %edi, %edi
movl %ebx, %esi
xorl %edx, %edx
callq 0xc3a0
movq %rax, 0x10(%r14)
pushq $0x1
popq %r12
movl %r12d, 0x10(%rax)
movq %r15, %rdi
movq %r14, %rsi
callq 0x58d4
movq 0x10(%r14), %rdi
pushq $0x5
popq %rbp
movl %ebp, %esi
xorl %edx, %edx
callq 0xc3a0
movq 0x18(%r14), %rdi
movl %ebp, %esi
xorl %edx, %edx
callq 0xc3a0
xorl %edi, %edi
movl %ebx, %esi
xorl %edx, %edx
callq 0xc3a0
movq %rax, 0x18(%r14)
andl $0x0, 0x10(%rax)
xorl %edi, %edi
movl %ebx, %esi
xorl %edx, %edx
callq 0xc3a0
movq %rax, 0x10(%r14)
movl %r12d, 0x10(%rax)
xorl %edi, %edi
movl $0x82, %esi
callq 0xb0f8
movq %r14, %rdi
callq 0xa0f8
movq %r14, %rdi
callq 0x8c50
movq %r14, %rdi
callq 0x9feb
leaq 0x9a16(%rip), %r15      # 0x14438
movq (%r15), %rsi
movq %r14, %rdi
callq 0xa279
movq (%r14), %rdi
movl %ebp, %esi
xorl %edx, %edx
callq 0xc14c
movq 0x8(%r14), %rdi
movl %ebp, %esi
xorl %edx, %edx
callq 0xad45
movq 0x10(%r14), %rdi
movl %ebp, %esi
xorl %edx, %edx
callq 0xc3a0
movq 0x18(%r14), %rdi
movl %ebp, %esi
xorl %edx, %edx
callq 0xc3a0
movq %r14, %rdi
callq 0x1030
leaq 0x99c1(%rip), %rax      # 0x14430
movq (%rax), %rdi
callq 0xb3b2
movq (%r15), %rdi
callq 0xb43d
leaq 0x99ba(%rip), %rax      # 0x14440
movq (%rax), %rdi
callq 0xb43d
pushq $0x29
popq %rsi
movl %ebx, %edi
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0xb0f8