// File: /workspace/github_c_makefile_star2_O1/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 0xc136
movq %rbx, %rdi
xorl %esi, %esi
callq 0xc136
leaq 0xde19(%rip), %rbp      # 0x151c0
movq 0xe3f2(%rip), %rax      # 0x157a0
movq 0x8(%rax,%r12), %rdi
movq 0xe3de(%rip), %rsi      # 0x15798
callq 0xc92e
movq 0xe3d2(%rip), %rdi      # 0x15798
leaq 0xdd33(%rip), %r13      # 0x15100
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc558
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rdi
movq 0xe3a9(%rip), %rsi      # 0x15798
callq 0xc625
movq 0xe3ad(%rip), %rax      # 0x157a8
movq 0x8(%rax,%r12), %rdi
movq 0xe391(%rip), %rsi      # 0x15798
callq 0xc92e
movq 0xe385(%rip), %rdi      # 0x15798
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc558
movq 0x8(%r14), %rax
movq 0x8(%rax), %rdi
movq 0xe363(%rip), %rsi      # 0x15798
callq 0xc625
movq 0xe35f(%rip), %rax      # 0x157a0
movq 0x8(%rax,%r12), %rdi
movq 0xe34b(%rip), %rsi      # 0x15798
callq 0xc92e
movq 0xe33f(%rip), %rdi      # 0x15798
leaq 0xdce0(%rip), %r13      # 0x15140
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc558
movq 0x8(%rbx), %rax
movq 0x10(%rax), %rdi
movq 0xe316(%rip), %rsi      # 0x15798
callq 0xc625
movq 0xe31a(%rip), %rax      # 0x157a8
movq 0x8(%rax,%r12), %rdi
movq 0xe2fe(%rip), %rsi      # 0x15798
callq 0xc92e
movq 0xe2f2(%rip), %rdi      # 0x15798
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc558
movq 0x8(%r14), %rax
movq 0x10(%rax), %rdi
movq 0xe2d0(%rip), %rsi      # 0x15798
callq 0xc625
movq 0xe2cc(%rip), %rax      # 0x157a0
movq 0x8(%rax,%r12), %rdi
movq 0xe2b8(%rip), %rsi      # 0x15798
callq 0xc92e
movq 0xe2ac(%rip), %rdi      # 0x15798
leaq 0xdc8d(%rip), %r13      # 0x15180
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc558
movq 0x8(%rbx), %rax
movq 0x18(%rax), %rdi
movq 0xe283(%rip), %rsi      # 0x15798
callq 0xc625
movq 0xe287(%rip), %rax      # 0x157a8
movq 0x8(%rax,%r12), %rdi
movq 0xe26b(%rip), %rsi      # 0x15798
callq 0xc92e
movq 0xe25f(%rip), %rdi      # 0x15798
movsd 0x8(%r12,%r13), %xmm0
mulsd 0x8(%r12,%rbp), %xmm0
callq 0xc558
movq 0x8(%r14), %rax
movq 0x18(%rax), %rdi
movq 0xe23d(%rip), %rsi      # 0x15798
callq 0xc625
addq $0x8, %r12
cmpq $0x38, %r12
jne 0x73a7
movl $0x1, %r12d
movq 0x8(%rbx), %rax
movq (%rax,%r12,8), %rdi
movsd 0xb8(%r15), %xmm0
callq 0xc558
movq 0x8(%r14), %rax
movq (%rax,%r12,8), %rdi
movsd 0xb8(%r15), %xmm0
callq 0xc558
incq %r12
cmpq $0x4, %r12
jne 0x7574
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq