// File: /workspace/github_c_makefile_star2_O1/markpeerdeman[P]mbemm/src/emath/contactc.c
// Function: make_rowc
void make_rowc(point sourcenode, hypermatrix crow, hypermatrix erow,
                                hypermatrix c,    hypermatrix e, cmesh theCMesh)
{ element fieldelement;
  int i;
  mesh theMesh;

  theMesh=theCMesh->merged_mesh;

  fillhypermatrix(crow,ZEROFILL);
  fillhypermatrix(erow,ZEROFILL);

  fieldelement=(element)element_dll(theMesh->mesh_e,START,0);
  while (fieldelement!=(element)NULL)
  { /* Do collocations when in the right matrix quadrant: */
    if ( ((sourcenode->label<=theCMesh->nr_of_nodes_basemesh) &&
          (fieldelement->label<=theCMesh->nr_of_elements_basemesh)) ||
         ((sourcenode->label>theCMesh->nr_of_nodes_basemesh) &&
          (fieldelement->label>theCMesh->nr_of_elements_basemesh)) )
    { collocatec(sourcenode,fieldelement,c,e);

      matsum3x3(crow->data[fieldelement->p1],c->data[1]);
      matsum3x3(erow->data[fieldelement->p1],e->data[1]);

      matsum3x3(crow->data[fieldelement->p2],c->data[2]);
      matsum3x3(erow->data[fieldelement->p2],e->data[2]);

      matsum3x3(crow->data[fieldelement->p3],c->data[3]);
      matsum3x3(erow->data[fieldelement->p3],e->data[3]);
    }

    fieldelement=fieldelement->NEXT;
  }

  /* complete the diagonal term: */
  fillmatrix(erow->data[sourcenode->label],ZEROFILL);
  for (i=1; i<=cn_nodes; i++)
  { if (i!=sourcenode->label)
    { matsum3x3(erow->data[sourcenode->label],erow->data[i]);
    }  
  }
  scalemat3x3(erow->data[sourcenode->label],-1.0);

}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x28, %rsp
movq %r9, %r15
movq %r8, 0x18(%rsp)
movq %rcx, 0x10(%rsp)
movq %rdx, %rbx
movq %rdi, %r14
movq (%r9), %rbp
movq %rsi, 0x20(%rsp)
movq %rsi, %rdi
xorl %esi, %esi
callq 0xc136
movq %rbx, (%rsp)
movq %rbx, %rdi
xorl %esi, %esi
callq 0xc136
movq 0x8(%rbp), %rdi
xorl %esi, %esi
xorl %edx, %edx
callq 0xb834
testq %rax, %rax
je 0x7780
movq %rax, %rbp
movq %r15, 0x8(%rsp)
movq 0x10(%rsp), %r12
movq 0x18(%rsp), %r13
movq 0x20(%rsp), %rbx
movl 0x10(%r14), %eax
movl 0x8(%r15), %ecx
cmpl %ecx, %eax
jle 0x76a8
movl 0x14(%rbp), %eax
cmpl 0xc(%r15), %eax
jg 0x76ba
jmp 0x7773
movl 0x14(%rbp), %edx
cmpl 0xc(%r15), %edx
jle 0x76ba
cmpl %ecx, %eax
jg 0x769a
jmp 0x7773
movq %r14, %rdi
movq %rbp, %rsi
movq %r12, %rdx
movq %r13, %rcx
callq 0x75b8
movq 0x8(%rbx), %rax
movslq 0x18(%rbp), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x8(%r12), %rax
movq 0x8(%rax), %rsi
callq 0xc625
movq %r14, %r15
movq (%rsp), %r14
movq 0x8(%r14), %rax
movslq 0x18(%rbp), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x8(%r13), %rax
movq 0x8(%rax), %rsi
callq 0xc625
movq 0x8(%rbx), %rax
movslq 0x1c(%rbp), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x8(%r12), %rax
movq 0x10(%rax), %rsi
callq 0xc625
movq 0x8(%r14), %rax
movslq 0x1c(%rbp), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x8(%r13), %rax
movq 0x10(%rax), %rsi
callq 0xc625
movq 0x8(%rbx), %rax
movslq 0x20(%rbp), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x8(%r12), %rax
movq 0x18(%rax), %rsi
callq 0xc625
movq 0x8(%r14), %rax
movq %r15, %r14
movq 0x8(%rsp), %r15
movslq 0x20(%rbp), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x8(%r13), %rax
movq 0x18(%rax), %rsi
callq 0xc625
movq 0x8(%rbp), %rbp
testq %rbp, %rbp
jne 0x768e
movq (%rsp), %rax
movq 0x8(%rax), %rax
movslq 0x10(%r14), %rcx
movq (%rax,%rcx,8), %rdi
xorl %esi, %esi
callq 0xbf13
cmpl $0x0, 0xdfe2(%rip)      # 0x15780
jle 0x77d9
movl $0x1, %r15d
movl 0x10(%r14), %eax
cmpq %rax, %r15
je 0x77c6
cltq
movq (%rsp), %rcx
movq 0x8(%rcx), %rcx
movq (%rcx,%rax,8), %rdi
movq (%rcx,%r15,8), %rsi
callq 0xc625
leaq 0x1(%r15), %rax
movslq 0xdfaf(%rip), %rcx      # 0x15780
cmpq %rcx, %r15
movq %rax, %r15
jl 0x77a6
movq (%rsp), %rax
movq 0x8(%rax), %rax
movslq 0x10(%r14), %rcx
movq (%rax,%rcx,8), %rdi
movsd 0x780f(%rip), %xmm0     # 0xf000
addq $0x28, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xc558