// File: /workspace/github_c_makefile_star2_O0/markpeerdeman[P]mbemm/src/emath/contactc.c
// Function: plug_inc
void plug_inc(int label, hypermatrix erow)
{ int i;
  for (i=1; i<=cn_nodes; i++)
  { M(main_E,label*3-2,i*3-2)=H(erow,1,1,i);
    M(main_E,label*3-2,i*3-1)=H(erow,1,2,i);
    M(main_E,label*3-2,i*3  )=H(erow,1,3,i);

    M(main_E,label*3-1,i*3-2)=H(erow,2,1,i);
    M(main_E,label*3-1,i*3-1)=H(erow,2,2,i);
    M(main_E,label*3-1,i*3  )=H(erow,2,3,i);

    M(main_E,label*3  ,i*3-2)=H(erow,3,1,i);
    M(main_E,label*3  ,i*3-1)=H(erow,3,2,i);
    M(main_E,label*3  ,i*3  )=H(erow,3,3,i);
  }
}

// Assembly:
movl %edi, -0x4(%rsp)
movq %rsi, -0x10(%rsp)
movl $0x1, -0x14(%rsp)
movl -0x14(%rsp), %eax
cmpl 0x133c5(%rip), %eax     # 0x1e750
jg 0xb66b
movq -0x10(%rsp), %rax
movq 0x8(%rax), %rax
movslq -0x14(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq 0x8(%rax), %rax
movq (%rax), %rax
movsd (%rax), %xmm0
leaq 0x1305b(%rip), %rax     # 0x1e410
movq (%rax), %rax
movq 0x8(%rax), %rax
imull $0x3, -0x4(%rsp), %ecx
subl $0x2, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq (%rax,%rcx,8), %rax
imull $0x3, -0x14(%rsp), %ecx
subl $0x2, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movsd %xmm0, (%rax,%rcx,8)
movq -0x10(%rsp), %rax
movq 0x8(%rax), %rax
movslq -0x14(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq 0x8(%rax), %rax
movq (%rax), %rax
movsd 0x8(%rax), %xmm0
leaq 0x1300a(%rip), %rax     # 0x1e410
movq (%rax), %rax
movq 0x8(%rax), %rax
imull $0x3, -0x4(%rsp), %ecx
subl $0x2, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq (%rax,%rcx,8), %rax
imull $0x3, -0x14(%rsp), %ecx
subl $0x1, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movsd %xmm0, (%rax,%rcx,8)
movq -0x10(%rsp), %rax
movq 0x8(%rax), %rax
movslq -0x14(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq 0x8(%rax), %rax
movq (%rax), %rax
movsd 0x10(%rax), %xmm0
leaq 0x12fb9(%rip), %rax     # 0x1e410
movq (%rax), %rax
movq 0x8(%rax), %rax
imull $0x3, -0x4(%rsp), %ecx
subl $0x2, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq (%rax,%rcx,8), %rax
imull $0x3, -0x14(%rsp), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movsd %xmm0, (%rax,%rcx,8)
movq -0x10(%rsp), %rax
movq 0x8(%rax), %rax
movslq -0x14(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rax
movsd (%rax), %xmm0
leaq 0x12f6b(%rip), %rax     # 0x1e410
movq (%rax), %rax
movq 0x8(%rax), %rax
imull $0x3, -0x4(%rsp), %ecx
subl $0x1, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq (%rax,%rcx,8), %rax
imull $0x3, -0x14(%rsp), %ecx
subl $0x2, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movsd %xmm0, (%rax,%rcx,8)
movq -0x10(%rsp), %rax
movq 0x8(%rax), %rax
movslq -0x14(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rax
movsd 0x8(%rax), %xmm0
leaq 0x12f19(%rip), %rax     # 0x1e410
movq (%rax), %rax
movq 0x8(%rax), %rax
imull $0x3, -0x4(%rsp), %ecx
subl $0x1, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq (%rax,%rcx,8), %rax
imull $0x3, -0x14(%rsp), %ecx
subl $0x1, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movsd %xmm0, (%rax,%rcx,8)
movq -0x10(%rsp), %rax
movq 0x8(%rax), %rax
movslq -0x14(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rax
movsd 0x10(%rax), %xmm0
leaq 0x12ec7(%rip), %rax     # 0x1e410
movq (%rax), %rax
movq 0x8(%rax), %rax
imull $0x3, -0x4(%rsp), %ecx
subl $0x1, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq (%rax,%rcx,8), %rax
imull $0x3, -0x14(%rsp), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movsd %xmm0, (%rax,%rcx,8)
movq -0x10(%rsp), %rax
movq 0x8(%rax), %rax
movslq -0x14(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movsd (%rax), %xmm0
leaq 0x12e79(%rip), %rax     # 0x1e410
movq (%rax), %rax
movq 0x8(%rax), %rax
imull $0x3, -0x4(%rsp), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq (%rax,%rcx,8), %rax
imull $0x3, -0x14(%rsp), %ecx
subl $0x2, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movsd %xmm0, (%rax,%rcx,8)
movq -0x10(%rsp), %rax
movq 0x8(%rax), %rax
movslq -0x14(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movsd 0x8(%rax), %xmm0
leaq 0x12e2a(%rip), %rax     # 0x1e410
movq (%rax), %rax
movq 0x8(%rax), %rax
imull $0x3, -0x4(%rsp), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq (%rax,%rcx,8), %rax
imull $0x3, -0x14(%rsp), %ecx
subl $0x1, %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movsd %xmm0, (%rax,%rcx,8)
movq -0x10(%rsp), %rax
movq 0x8(%rax), %rax
movslq -0x14(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movsd 0x10(%rax), %xmm0
leaq 0x12ddb(%rip), %rax     # 0x1e410
movq (%rax), %rax
movq 0x8(%rax), %rax
imull $0x3, -0x4(%rsp), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq (%rax,%rcx,8), %rax
imull $0x3, -0x14(%rsp), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movsd %xmm0, (%rax,%rcx,8)
movl -0x14(%rsp), %eax
addl $0x1, %eax
movl %eax, -0x14(%rsp)
jmp 0xb381
retq
nopl (%rax)