// File: /workspace/github_c_makefile_star2_O3/markpeerdeman[P]mbemm/src/emath/contactc.c
// Function: norm_intc
void norm_intc(element te, hypermatrix c, hypermatrix e)
{ int i;

  fillhypermatrix(c,ZEROFILL);
  fillhypermatrix(e,ZEROFILL);

  for (i=1; i<=7; i++) 
  { /* node 1: */
    matcopy3x3(ctf[i],ctemp);
    scalemat3x3(ctemp,cxi1[i]*cw[i]);
    matsum3x3(e->data[1],ctemp); 
    matcopy3x3(cuf[i],ctemp);
    scalemat3x3(ctemp,cxi1[i]*cw[i]);
    matsum3x3(c->data[1],ctemp); 

    /* node 2: */
    matcopy3x3(ctf[i],ctemp);
    scalemat3x3(ctemp,cxi2[i]*cw[i]);
    matsum3x3(e->data[2],ctemp); 
    matcopy3x3(cuf[i],ctemp);
    scalemat3x3(ctemp,cxi2[i]*cw[i]); 
    matsum3x3(c->data[2],ctemp); 

    /* node 3: */
    matcopy3x3(ctf[i],ctemp);
    scalemat3x3(ctemp,cxi3[i]*cw[i]);
    matsum3x3(e->data[3],ctemp); 
    matcopy3x3(cuf[i],ctemp);
    scalemat3x3(ctemp,cxi3[i]*cw[i]);
    matsum3x3(c->data[3],ctemp); 

  } 
  /* scale the results with the jacobian: */
  for (i=1; i<=3; i++)
  { scalemat3x3(e->data[i],te->area);
    scalemat3x3(c->data[i],te->area);
  }

}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %rbx
movq %rsi, %r14
movq %rdi, %r15
xorl %r12d, %r12d
movq %rsi, %rdi
xorl %esi, %esi
callq 0xbe66
movq %rbx, %rdi
xorl %esi, %esi
callq 0xbe66
leaq 0xdedd(%rip), %rbp      # 0x151c0
movq 0xe4b6(%rip), %rax      # 0x157a0
movq 0x8(%rax,%r12), %rdi
movq 0xe4a2(%rip), %rsi      # 0x15798
callq 0xc65a
movq 0xe496(%rip), %rdi      # 0x15798
leaq 0xddf7(%rip), %r13      # 0x15100
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc288
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rdi
movq 0xe46d(%rip), %rsi      # 0x15798
callq 0xc355
movq 0xe471(%rip), %rax      # 0x157a8
movq 0x8(%rax,%r12), %rdi
movq 0xe455(%rip), %rsi      # 0x15798
callq 0xc65a
movq 0xe449(%rip), %rdi      # 0x15798
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc288
movq 0x8(%r14), %rax
movq 0x8(%rax), %rdi
movq 0xe427(%rip), %rsi      # 0x15798
callq 0xc355
movq 0xe423(%rip), %rax      # 0x157a0
movq 0x8(%rax,%r12), %rdi
movq 0xe40f(%rip), %rsi      # 0x15798
callq 0xc65a
movq 0xe403(%rip), %rdi      # 0x15798
leaq 0xdda4(%rip), %r13      # 0x15140
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc288
movq 0x8(%rbx), %rax
movq 0x10(%rax), %rdi
movq 0xe3da(%rip), %rsi      # 0x15798
callq 0xc355
movq 0xe3de(%rip), %rax      # 0x157a8
movq 0x8(%rax,%r12), %rdi
movq 0xe3c2(%rip), %rsi      # 0x15798
callq 0xc65a
movq 0xe3b6(%rip), %rdi      # 0x15798
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc288
movq 0x8(%r14), %rax
movq 0x10(%rax), %rdi
movq 0xe394(%rip), %rsi      # 0x15798
callq 0xc355
movq 0xe390(%rip), %rax      # 0x157a0
movq 0x8(%rax,%r12), %rdi
movq 0xe37c(%rip), %rsi      # 0x15798
callq 0xc65a
movq 0xe370(%rip), %rdi      # 0x15798
leaq 0xdd51(%rip), %r13      # 0x15180
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc288
movq 0x8(%rbx), %rax
movq 0x18(%rax), %rdi
movq 0xe347(%rip), %rsi      # 0x15798
callq 0xc355
movq 0xe34b(%rip), %rax      # 0x157a8
movq 0x8(%rax,%r12), %rdi
movq 0xe32f(%rip), %rsi      # 0x15798
callq 0xc65a
movq 0xe323(%rip), %rdi      # 0x15798
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc288
movq 0x8(%r14), %rax
movq 0x18(%rax), %rdi
movq 0xe301(%rip), %rsi      # 0x15798
callq 0xc355
addq $0x8, %r12
cmpq $0x38, %r12
jne 0x72e3
movl $0x1, %r12d
movq 0x8(%rbx), %rax
movq (%rax,%r12,8), %rdi
movsd 0xb8(%r15), %xmm0
callq 0xc288
movq 0x8(%r14), %rax
movq (%rax,%r12,8), %rdi
movsd 0xb8(%r15), %xmm0
callq 0xc288
incq %r12
cmpq $0x4, %r12
jne 0x74b0
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq