// File: /workspace/github_c_makefile_star2_O0/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:
subq $0x48, %rsp
movq %rdi, 0x40(%rsp)
movq %rsi, 0x38(%rsp)
movq %rdx, 0x30(%rsp)
movq %rcx, 0x28(%rsp)
movq %r8, 0x20(%rsp)
movq %r9, 0x18(%rsp)
movq 0x18(%rsp), %rax
movq (%rax), %rax
movq %rax, (%rsp)
movq 0x38(%rsp), %rdi
xorl %esi, %esi
callq 0x159a0
movq 0x30(%rsp), %rdi
xorl %esi, %esi
callq 0x159a0
movq (%rsp), %rax
movq 0x8(%rax), %rdi
xorl %edx, %edx
movl %edx, %esi
callq 0x14570
movq %rax, 0x10(%rsp)
cmpq $0x0, 0x10(%rsp)
je 0xabe4
movq 0x40(%rsp), %rax
movl 0x10(%rax), %eax
movq 0x18(%rsp), %rcx
cmpl 0x8(%rcx), %eax
jg 0xaa9c
movq 0x10(%rsp), %rax
movl 0x14(%rax), %eax
movq 0x18(%rsp), %rcx
cmpl 0xc(%rcx), %eax
jle 0xaac8
movq 0x40(%rsp), %rax
movl 0x10(%rax), %eax
movq 0x18(%rsp), %rcx
cmpl 0x8(%rcx), %eax
jle 0xabd1
movq 0x10(%rsp), %rax
movl 0x14(%rax), %eax
movq 0x18(%rsp), %rcx
cmpl 0xc(%rcx), %eax
jle 0xabd1
movq 0x40(%rsp), %rdi
movq 0x10(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x20(%rsp), %rcx
callq 0xa940
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rsp), %rcx
movslq 0x18(%rcx), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rsi
callq 0x16090
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rsp), %rcx
movslq 0x18(%rcx), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x20(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rsi
callq 0x16090
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rsp), %rcx
movslq 0x1c(%rcx), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rsi
callq 0x16090
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rsp), %rcx
movslq 0x1c(%rcx), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x20(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rsi
callq 0x16090
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rsp), %rcx
movslq 0x20(%rcx), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x18(%rax), %rsi
callq 0x16090
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rsp), %rcx
movslq 0x20(%rcx), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x20(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x18(%rax), %rsi
callq 0x16090
movq 0x10(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
jmp 0xaa6c
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x40(%rsp), %rcx
movslq 0x10(%rcx), %rcx
movq (%rax,%rcx,8), %rdi
xorl %esi, %esi
callq 0x157c0
movl $0x1, 0xc(%rsp)
movl 0xc(%rsp), %eax
cmpl 0x13b3d(%rip), %eax     # 0x1e750
jg 0xac5f
movl 0xc(%rsp), %eax
movq 0x40(%rsp), %rcx
cmpl 0x10(%rcx), %eax
je 0xac50
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x40(%rsp), %rcx
movslq 0x10(%rcx), %rcx
movq (%rax,%rcx,8), %rdi
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movslq 0xc(%rsp), %rcx
movq (%rax,%rcx,8), %rsi
callq 0x16090
jmp 0xac52
movl 0xc(%rsp), %eax
addl $0x1, %eax
movl %eax, 0xc(%rsp)
jmp 0xac09
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x40(%rsp), %rcx
movslq 0x10(%rcx), %rcx
movq (%rax,%rcx,8), %rdi
movsd 0xf35b(%rip), %xmm0     # 0x19fd8
callq 0x15ea0
addq $0x48, %rsp
retq
nopw (%rax,%rax)