// File: /workspace/github_c_makefile_star2_O0/markpeerdeman[P]mbemm/src/emath/parse.c
// Function: parse
void parse(char *name, mesh theMesh)
/* This is the main parse function. This function is called somewhere from
 * the mainline. It reads the inputdeck, identified with the filename 'name'.
 * All database dlls are filled (elements,points(nodes), tractions and disps
 */
{ FILE *fp;
  static char theKeyword[80];
  element elm;
  if ( (fp=fopen(name,"r"))==(FILE *)NULL ) evaluate_level(RED,50);
  evaluate_level(GREEN,51);

  /* do something when a keyword is encountered: */
  while (!feof(fp))
  { read_keyword(fp,theKeyword);
    if (!strcmp(theKeyword,"NODES"))         read_points(fp,theMesh); else
    if (!strcmp(theKeyword,"ELEMENTS"))      read_elements(fp,theMesh); else
    if (!strcmp(theKeyword,"TRACTIONS"))     read_tractions(fp,theMesh); else
    if (!strcmp(theKeyword,"DISPLACEMENTS")) read_displacements(fp,theMesh); else
    if (!strcmp(theKeyword,"MATERIAL"))      read_material(fp); else
    if (!strcmp(theKeyword,"WRITE_UNIVERSAL")) write_universal_req(); else
    if (!strcmp(theKeyword,"WRITE_SPECIAL")) write_special_req(); else
    if (!strcmp(theKeyword,"WRITE_OBJ"))     write_obj_req(); else
    if (!strcmp(theKeyword,"LARGE_DISPLACEMENTS")) large_displacements_req(); else
    if (!strcmp(theKeyword,"CNODES"))        skip_C_nodes(fp); else
    if (!strcmp(theKeyword,"SOLUTION"))	     skip_solutionvector(fp); else
    if (!strcmp(theKeyword,"END"))           break; else
    evaluate_level(YELLOW,53);
  }

  if ((WRITE_SPECIAL==NO)&&(WRITE_UNIVERSAL==NO)&&(WRITE_OBJ==NO))
  { evaluate_level(YELLOW,68);
  }

  if ( (modulus_of_elasticity==0.0) || (poissons_ratio==0.0) )
  { evaluate_level(YELLOW,63);
    modulus_of_elasticity=210000.0;
    poissons_ratio=0.29;
  }


/* evaluate_level(GREEN,60); */
fclose(fp);
}

// Assembly:
subq $0x28, %rsp
movq %rdi, 0x20(%rsp)
movq %rsi, 0x18(%rsp)
movq 0x20(%rsp), %rdi
leaq 0x11498(%rip), %rsi     # 0x1ac22
callq 0x1110
movq %rax, 0x10(%rsp)
cmpq $0x0, %rax
jne 0x97a9
movl $0x2, %edi
movl $0x32, %esi
callq 0x15200
xorl %edi, %edi
movl $0x33, %esi
callq 0x15200
movq 0x10(%rsp), %rdi
callq 0x10e0
cmpl $0x0, %eax
setne %al
xorb $-0x1, %al
testb $0x1, %al
jne 0x97d0
jmp 0x99c9
movq 0x10(%rsp), %rdi
leaq 0x14e84(%rip), %rsi     # 0x1e660
callq 0x8f80
leaq 0x14e78(%rip), %rdi     # 0x1e660
leaq 0x1073d(%rip), %rsi     # 0x19f2c
callq 0x10c0
cmpl $0x0, %eax
jne 0x980d
movq 0x10(%rsp), %rdi
movq 0x18(%rsp), %rsi
callq 0x9080
jmp 0x99c4
leaq 0x14e4c(%rip), %rdi     # 0x1e660
leaq 0x11ce9(%rip), %rsi     # 0x1b504
callq 0x10c0
cmpl $0x0, %eax
jne 0x9839
movq 0x10(%rsp), %rdi
movq 0x18(%rsp), %rsi
callq 0x9570
jmp 0x99c2
leaq 0x14e20(%rip), %rdi     # 0x1e660
leaq 0x11c9d(%rip), %rsi     # 0x1b4e4
callq 0x10c0
cmpl $0x0, %eax
jne 0x9865
movq 0x10(%rsp), %rdi
movq 0x18(%rsp), %rsi
callq 0x95d0
jmp 0x99c0
leaq 0x14df4(%rip), %rdi     # 0x1e660
leaq 0x11c7f(%rip), %rsi     # 0x1b4f2
callq 0x10c0
cmpl $0x0, %eax
jne 0x9891
movq 0x10(%rsp), %rdi
movq 0x18(%rsp), %rsi
callq 0x9610
jmp 0x99be
leaq 0x14dc8(%rip), %rdi     # 0x1e660
leaq 0x10698(%rip), %rsi     # 0x19f37
callq 0x10c0
cmpl $0x0, %eax
jne 0x98b8
movq 0x10(%rsp), %rdi
callq 0x9650
jmp 0x99bc
leaq 0x14da1(%rip), %rdi     # 0x1e660
leaq 0x1067a(%rip), %rsi     # 0x19f40
callq 0x10c0
cmpl $0x0, %eax
jne 0x98da
callq 0x96b0
jmp 0x99ba
leaq 0x14d7f(%rip), %rdi     # 0x1e660
leaq 0x10668(%rip), %rsi     # 0x19f50
callq 0x10c0
cmpl $0x0, %eax
jne 0x98fc
callq 0x96e0
jmp 0x99b8
leaq 0x14d5d(%rip), %rdi     # 0x1e660
leaq 0x10654(%rip), %rsi     # 0x19f5e
callq 0x10c0
cmpl $0x0, %eax
jne 0x991e
callq 0x9710
jmp 0x99b6
leaq 0x14d3b(%rip), %rdi     # 0x1e660
leaq 0x1063c(%rip), %rsi     # 0x19f68
callq 0x10c0
cmpl $0x0, %eax
jne 0x993d
callq 0x9750
jmp 0x99b4
leaq 0x14d1c(%rip), %rdi     # 0x1e660
leaq 0x105e0(%rip), %rsi     # 0x19f2b
callq 0x10c0
cmpl $0x0, %eax
jne 0x9961
movq 0x10(%rsp), %rdi
callq 0x92e0
jmp 0x99b2
leaq 0x14cf8(%rip), %rdi     # 0x1e660
leaq 0x105af(%rip), %rsi     # 0x19f1e
callq 0x10c0
cmpl $0x0, %eax
jne 0x9985
movq 0x10(%rsp), %rdi
callq 0x91a0
jmp 0x99b0
leaq 0x14cd4(%rip), %rdi     # 0x1e660
leaq 0x105e9(%rip), %rsi     # 0x19f7c
callq 0x10c0
cmpl $0x0, %eax
jne 0x999f
jmp 0x99c9
movl $0x1, %edi
movl $0x35, %esi
callq 0x15200
jmp 0x99b0
jmp 0x99b2
jmp 0x99b4
jmp 0x99b6
jmp 0x99b8
jmp 0x99ba
jmp 0x99bc
jmp 0x99be
jmp 0x99c0
jmp 0x99c2
jmp 0x99c4
jmp 0x97b5
leaq 0x14a28(%rip), %rax     # 0x1e3f8
cmpl $0x0, (%rax)
jne 0x99fc
leaq 0x14a20(%rip), %rax     # 0x1e3fc
cmpl $0x0, (%rax)
jne 0x99fc
leaq 0x14a18(%rip), %rax     # 0x1e400
cmpl $0x0, (%rax)
jne 0x99fc
movl $0x1, %edi
movl $0x44, %esi
callq 0x15200
leaq 0x149d5(%rip), %rax     # 0x1e3d8
movsd (%rax), %xmm0
xorps %xmm1, %xmm1
ucomisd %xmm1, %xmm0
jne 0x9a14
jp 0x9a14
jmp 0x9a2a
leaq 0x149c5(%rip), %rax     # 0x1e3e0
movsd (%rax), %xmm0
xorps %xmm1, %xmm1
ucomisd %xmm1, %xmm0
jne 0x9a5f
jp 0x9a5f
movl $0x1, %edi
movl $0x3f, %esi
callq 0x15200
leaq 0x14998(%rip), %rax     # 0x1e3d8
movsd 0x104c0(%rip), %xmm0    # 0x19f08
movsd %xmm0, (%rax)
leaq 0x1498d(%rip), %rax     # 0x1e3e0
movsd 0x104a5(%rip), %xmm0    # 0x19f00
movsd %xmm0, (%rax)
movq 0x10(%rsp), %rdi
callq 0x1060
addq $0x28, %rsp
retq
nop