// File: /workspace/github_c_makefile_star2_O0/markpeerdeman[P]mbemm/src/emath/gauss.c
// Function: element_int
void element_int(element elist)
{ double cx,cy,cz;
  double t1, t2, t3;
  double res1, res2, res3;
  int i;
  element e;

  fprintf(stderr,"entering element_int()\n");
  e= (element)element_dll(elist,START,0);
  while (e!=(element)NULL)
  {
  res1=0.0; res2=0.0; res3=0.0;
  for (i=1; i<=7; i++)
  { cx = gi1[i]*e->p1x + gi2[i]*e->p2x + gi3[i]*e->p3x;
	cy = gi1[i]*e->p1y + gi2[i]*e->p2y + gi3[i]*e->p3y;
	cz = gi1[i]*e->p1z + gi2[i]*e->p2z + gi3[i]*e->p3z;
	t1 = traction1(cx, cy, cz, e->nx, e->ny, e->nz)*wt[i];
	t2 = traction2(cx, cy, cz, e->nx, e->ny, e->nz)*wt[i];
	t3 = traction3(cx, cy, cz, e->nx, e->ny, e->nz)*wt[i];
	res1+=t1; res2+=t2; res3+=t3;
  }
  res1=res1*e->area;
  res2=res2*e->area;
  res3=res3*e->area;
  printf("Force on element %4d (Analytical) is % 8.8E %8.8E %8.8E\n",e->label,res1, res2, res3);
  e=e->NEXT;
  } /* while */
}

// Assembly:
subq $0x68, %rsp
movq %rdi, 0x60(%rsp)
movq 0xe1b8(%rip), %rax      # 0x1dff8
movq (%rax), %rdi
leaq 0xa3ce(%rip), %rsi      # 0x1a218
movb $0x0, %al
callq 0x10d0
movq 0x60(%rsp), %rdi
xorl %edx, %edx
movl %edx, %esi
callq 0x14570
movq %rax, 0x8(%rsp)
cmpq $0x0, 0x8(%rsp)
je 0x1019e
xorps %xmm0, %xmm0
movsd %xmm0, 0x28(%rsp)
xorps %xmm0, %xmm0
movsd %xmm0, 0x20(%rsp)
xorps %xmm0, %xmm0
movsd %xmm0, 0x18(%rsp)
movl $0x1, 0x14(%rsp)
cmpl $0x7, 0x14(%rsp)
jg 0x10118
movslq 0x14(%rsp), %rcx
leaq 0xe326(%rip), %rax      # 0x1e1d0
movsd (%rax,%rcx,8), %xmm1
movq 0x8(%rsp), %rax
movsd 0x28(%rax), %xmm2
movslq 0x14(%rsp), %rcx
leaq 0xe34b(%rip), %rax      # 0x1e210
movsd (%rax,%rcx,8), %xmm0
movq 0x8(%rsp), %rax
mulsd 0x40(%rax), %xmm0
mulsd %xmm2, %xmm1
addsd %xmm0, %xmm1
movslq 0x14(%rsp), %rcx
leaq 0xe368(%rip), %rax      # 0x1e250
movsd (%rax,%rcx,8), %xmm0
movq 0x8(%rsp), %rax
movsd 0x58(%rax), %xmm2
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
movsd %xmm0, 0x58(%rsp)
movslq 0x14(%rsp), %rcx
leaq 0xe2bf(%rip), %rax      # 0x1e1d0
movsd (%rax,%rcx,8), %xmm1
movq 0x8(%rsp), %rax
movsd 0x30(%rax), %xmm2
movslq 0x14(%rsp), %rcx
leaq 0xe2e4(%rip), %rax      # 0x1e210
movsd (%rax,%rcx,8), %xmm0
movq 0x8(%rsp), %rax
mulsd 0x48(%rax), %xmm0
mulsd %xmm2, %xmm1
addsd %xmm0, %xmm1
movslq 0x14(%rsp), %rcx
leaq 0xe301(%rip), %rax      # 0x1e250
movsd (%rax,%rcx,8), %xmm0
movq 0x8(%rsp), %rax
movsd 0x60(%rax), %xmm2
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
movsd %xmm0, 0x50(%rsp)
movslq 0x14(%rsp), %rcx
leaq 0xe258(%rip), %rax      # 0x1e1d0
movsd (%rax,%rcx,8), %xmm1
movq 0x8(%rsp), %rax
movsd 0x38(%rax), %xmm2
movslq 0x14(%rsp), %rcx
leaq 0xe27d(%rip), %rax      # 0x1e210
movsd (%rax,%rcx,8), %xmm0
movq 0x8(%rsp), %rax
mulsd 0x50(%rax), %xmm0
mulsd %xmm2, %xmm1
addsd %xmm0, %xmm1
movslq 0x14(%rsp), %rcx
leaq 0xe29a(%rip), %rax      # 0x1e250
movsd (%rax,%rcx,8), %xmm0
movq 0x8(%rsp), %rax
movsd 0x68(%rax), %xmm2
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
movsd %xmm0, 0x48(%rsp)
movsd 0x58(%rsp), %xmm0
movsd 0x50(%rsp), %xmm1
movsd 0x48(%rsp), %xmm2
movq 0x8(%rsp), %rax
movsd 0xa0(%rax), %xmm3
movq 0x8(%rsp), %rax
movsd 0xa8(%rax), %xmm4
movq 0x8(%rsp), %rax
movsd 0xb0(%rax), %xmm5
callq 0xfcb0
movslq 0x14(%rsp), %rcx
leaq 0xe273(%rip), %rax      # 0x1e290
mulsd (%rax,%rcx,8), %xmm0
movsd %xmm0, 0x40(%rsp)
movsd 0x58(%rsp), %xmm0
movsd 0x50(%rsp), %xmm1
movsd 0x48(%rsp), %xmm2
movq 0x8(%rsp), %rax
movsd 0xa0(%rax), %xmm3
movq 0x8(%rsp), %rax
movsd 0xa8(%rax), %xmm4
movq 0x8(%rsp), %rax
movsd 0xb0(%rax), %xmm5
callq 0xfd40
movslq 0x14(%rsp), %rcx
leaq 0xe21e(%rip), %rax      # 0x1e290
mulsd (%rax,%rcx,8), %xmm0
movsd %xmm0, 0x38(%rsp)
movsd 0x58(%rsp), %xmm0
movsd 0x50(%rsp), %xmm1
movsd 0x48(%rsp), %xmm2
movq 0x8(%rsp), %rax
movsd 0xa0(%rax), %xmm3
movq 0x8(%rsp), %rax
movsd 0xa8(%rax), %xmm4
movq 0x8(%rsp), %rax
movsd 0xb0(%rax), %xmm5
callq 0xfdc0
movslq 0x14(%rsp), %rcx
leaq 0xe1c9(%rip), %rax      # 0x1e290
mulsd (%rax,%rcx,8), %xmm0
movsd %xmm0, 0x30(%rsp)
movsd 0x40(%rsp), %xmm0
addsd 0x28(%rsp), %xmm0
movsd %xmm0, 0x28(%rsp)
movsd 0x38(%rsp), %xmm0
addsd 0x20(%rsp), %xmm0
movsd %xmm0, 0x20(%rsp)
movsd 0x30(%rsp), %xmm0
addsd 0x18(%rsp), %xmm0
movsd %xmm0, 0x18(%rsp)
movl 0x14(%rsp), %eax
addl $0x1, %eax
movl %eax, 0x14(%rsp)
jmp 0xfe93
movsd 0x28(%rsp), %xmm0
movq 0x8(%rsp), %rax
mulsd 0xb8(%rax), %xmm0
movsd %xmm0, 0x28(%rsp)
movsd 0x20(%rsp), %xmm0
movq 0x8(%rsp), %rax
mulsd 0xb8(%rax), %xmm0
movsd %xmm0, 0x20(%rsp)
movsd 0x18(%rsp), %xmm0
movq 0x8(%rsp), %rax
mulsd 0xb8(%rax), %xmm0
movsd %xmm0, 0x18(%rsp)
movq 0x8(%rsp), %rax
movl 0x14(%rax), %esi
movsd 0x28(%rsp), %xmm0
movsd 0x20(%rsp), %xmm1
movsd 0x18(%rsp), %xmm2
leaq 0xa0ac(%rip), %rdi      # 0x1a230
movb $0x3, %al
callq 0x1070
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x8(%rsp)
jmp 0xfe64
addq $0x68, %rsp
retq
nopw %cs:(%rax,%rax)
nopl (%rax)