// File: /workspace/github_c_makefile_star2_O1/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 %rbx
pushq %rax
movq %rdi, %r14
leaq 0xa088(%rip), %rax      # 0x15428
xorl %r15d, %r15d
movl %r15d, (%rax)
leaq 0xa07f(%rip), %rax      # 0x1542c
movl %r15d, (%rax)
movl $0x50, %edi
callq 0x1130
movq %rax, %rbx
xorl %edi, %edi
movl $0x4, %esi
xorl %edx, %edx
callq 0xcf07
movq %rax, (%rbx)
xorl %edi, %edi
movl $0x4, %esi
xorl %edx, %edx
callq 0xb834
movq %rax, 0x8(%rbx)
xorl %edi, %edi
movl $0x4, %esi
xorl %edx, %edx
callq 0xd1d1
movq %rax, 0x18(%rbx)
movl %r15d, 0x10(%rax)
xorl %edi, %edi
movl $0x4, %esi
xorl %edx, %edx
callq 0xd1d1
movq %rax, 0x10(%rbx)
movl $0x1, %ebp
movl %ebp, 0x10(%rax)
movq %r14, %rdi
movq %rbx, %rsi
callq 0x6bfc
movq 0x10(%rbx), %rdi
movl $0x5, %esi
xorl %edx, %edx
callq 0xd1d1
movq 0x18(%rbx), %rdi
movl $0x5, %esi
xorl %edx, %edx
callq 0xd1d1
xorl %edi, %edi
movl $0x4, %esi
xorl %edx, %edx
callq 0xd1d1
movq %rax, 0x18(%rbx)
movl %r15d, 0x10(%rax)
xorl %edi, %edi
movl $0x4, %esi
xorl %edx, %edx
callq 0xd1d1
movq %rax, 0x10(%rbx)
movl %ebp, 0x10(%rax)
xorl %edi, %edi
movl $0x82, %esi
callq 0xbc50
movq %rbx, %rdi
callq 0xaa74
movq %rbx, %rdi
callq 0x98f8
movq %rbx, %rdi
callq 0x3254
leaq 0x9fb7(%rip), %r14      # 0x15448
movq (%r14), %rsi
movq %rbx, %rdi
callq 0xabfc
movq (%rbx), %rdi
movl $0x5, %esi
xorl %edx, %edx
callq 0xcf07
movq 0x8(%rbx), %rdi
movl $0x5, %esi
xorl %edx, %edx
callq 0xb834
movq 0x10(%rbx), %rdi
movl $0x5, %esi
xorl %edx, %edx
callq 0xd1d1
movq 0x18(%rbx), %rdi
movl $0x5, %esi
xorl %edx, %edx
callq 0xd1d1
movq %rbx, %rdi
callq 0x1030
leaq 0x9f56(%rip), %rax      # 0x15440
movq (%rax), %rdi
callq 0xbe4b
movq (%r14), %rdi
callq 0xbef3
leaq 0x9f4f(%rip), %rax      # 0x15450
movq (%rax), %rdi
callq 0xbef3
movl $0x4, %edi
movl $0x29, %esi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xbc50
nop