// File: /workspace/github_c_makefile_star2_O2/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 0xb551
movq %rbx, %rdi
xorl %esi, %esi
callq 0xb551
leaq 0xddd4(%rip), %rbp      # 0x141b0
cmpq $0x38, %r12
je 0x65a8
movq 0xe3a3(%rip), %rax      # 0x14790
movq 0x8(%rax,%r12), %rdi
movq 0xe38f(%rip), %rsi      # 0x14788
callq 0xbb20
movq 0xe383(%rip), %rdi      # 0x14788
leaq 0xdce4(%rip), %r13      # 0x140f0
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xb77b
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rdi
movq 0xe35a(%rip), %rsi      # 0x14788
callq 0xb83f
movq 0xe35e(%rip), %rax      # 0x14798
movq 0x8(%rax,%r12), %rdi
movq 0xe342(%rip), %rsi      # 0x14788
callq 0xbb20
movq 0xe336(%rip), %rdi      # 0x14788
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xb77b
movq 0x8(%r14), %rax
movq 0x8(%rax), %rdi
movq 0xe314(%rip), %rsi      # 0x14788
callq 0xb83f
movq 0xe310(%rip), %rax      # 0x14790
movq 0x8(%rax,%r12), %rdi
movq 0xe2fc(%rip), %rsi      # 0x14788
callq 0xbb20
movq 0xe2f0(%rip), %rdi      # 0x14788
leaq 0xdc91(%rip), %r13      # 0x14130
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xb77b
movq 0x8(%rbx), %rax
movq 0x10(%rax), %rdi
movq 0xe2c7(%rip), %rsi      # 0x14788
callq 0xb83f
movq 0xe2cb(%rip), %rax      # 0x14798
movq 0x8(%rax,%r12), %rdi
movq 0xe2af(%rip), %rsi      # 0x14788
callq 0xbb20
movq 0xe2a3(%rip), %rdi      # 0x14788
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xb77b
movq 0x8(%r14), %rax
movq 0x10(%rax), %rdi
movq 0xe281(%rip), %rsi      # 0x14788
callq 0xb83f
movq 0xe27d(%rip), %rax      # 0x14790
movq 0x8(%rax,%r12), %rdi
movq 0xe269(%rip), %rsi      # 0x14788
callq 0xbb20
movq 0xe25d(%rip), %rdi      # 0x14788
leaq 0xdc3e(%rip), %r13      # 0x14170
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xb77b
movq 0x8(%rbx), %rax
movq 0x18(%rax), %rdi
movq 0xe234(%rip), %rsi      # 0x14788
callq 0xb83f
movq 0xe238(%rip), %rax      # 0x14798
movq 0x8(%rax,%r12), %rdi
movq 0xe21c(%rip), %rsi      # 0x14788
callq 0xbb20
movq 0xe210(%rip), %rdi      # 0x14788
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xb77b
movq 0x8(%r14), %rax
movq 0x18(%rax), %rdi
movq 0xe1ee(%rip), %rsi      # 0x14788
callq 0xb83f
addq $0x8, %r12
jmp 0x63dc
pushq $0x1
popq %r12
cmpq $0x4, %r12
je 0x65e3
movq 0x8(%rbx), %rax
movq (%rax,%r12,8), %rdi
movsd 0xb8(%r15), %xmm0
callq 0xb77b
movq 0x8(%r14), %rax
movq (%rax,%r12,8), %rdi
movsd 0xb8(%r15), %xmm0
callq 0xb77b
incq %r12
jmp 0x65ac
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq