// File: /workspace/github_c_makefile_star2_O3/fukunagatsu[P]RIblast/./raccess.h
// Function: Raccess::set_energy_parameters()
void set_energy_parameters(){
    MLclosing = -ML_closing37*10/kT;
    MLintern = -ML_intern37*10./kT;
    MLbase = -ML_BASE37*10./kT;
    TermAU= -TerminalAU*10/kT;
    
    for (int i=0; i<=30; i++) {
      hairpin[i] = -hairpin37[i]*10./kT;
      bulge[i] = - bulge37[i]*10./kT;
      internal[i] = -internal_loop37[i]*10./kT;
    }
    
    for (int i=0; i< 7; i++){
      for (int j=0; j<5; j++){
	for (int k=0; k<5; k++) {
	  mismatchI[i][j][k] = -mismatchI37[i][j][k]*10.0/kT;
	  mismatchH[i][j][k] = -mismatchH37[i][j][k]*10.0/kT;
	}
      }

      for (int j=0; j<7; j++) {
	stack[i][j] = -stack37[i][j]*10./kT;
      }

      for (int j=0; j<=4; j++) {
	dangle5[i][j] = -dangle5_37[i][j]*10./kT;
	dangle3[i][j] = -dangle3_37[i][j]*10./kT;
	if (i>2){
	  dangle3[i][j] += TermAU;
	}
      }
    }
    
    for (int i=0; i<=7; i++){
      for (int j=0; j<=7; j++){
	for (int k=0; k<5; k++){
	  for (int l=0; l<5; l++){
	    int11[i][j][k][l] = -int11_37[i][j][k][l]*10./kT;
	    for (int m=0; m<5; m++){
	      int21[i][j][k][l][m] = -int21_37[i][j][k][l][m]*10./kT;
	      for (int n=0; n<5; n++){
		int22[i][j][k][l][m][n] = -int22_37[i][j][k][l][m][n]*10./kT;
	      }
	    }
	  }
	}
      }
    }
    
    for (int i=0; i<=MAXLOOP; i++){
      ninio[i]= -min(MAX_NINIO, i*F_ninio37)*10/kT ;
    } 
  }

// Assembly:
movsd 0xdea7a(%rip), %xmm0    # 0xe7250
movapd %xmm0, %xmm1
unpcklpd %xmm0, %xmm1            # xmm1 = xmm1[0],xmm0[0]
movapd 0x1410a(%rip), %xmm2    # 0x1c8f0
divpd %xmm1, %xmm2
movupd %xmm2, 0x61d68(%rdi)
movsd 0x14136(%rip), %xmm1    # 0x1c930
divsd %xmm0, %xmm1
movsd %xmm1, 0x61d78(%rdi)
movsd 0x1412a(%rip), %xmm1    # 0x1c938
divsd %xmm0, %xmm1
movsd %xmm1, 0xe68(%rdi)
xorl %eax, %eax
leaq 0x141dd(%rip), %rcx     # 0x1ca00
movsd 0x14115(%rip), %xmm1    # 0x1c940
leaq 0x1424e(%rip), %rdx     # 0x1ca80
leaq 0x142c7(%rip), %rsi     # 0x1cb00
xorl %r8d, %r8d
subl (%rax,%rcx), %r8d
xorps %xmm2, %xmm2
cvtsi2sd %r8d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, (%rdi,%rax,2)
xorl %r8d, %r8d
subl (%rax,%rdx), %r8d
xorps %xmm2, %xmm2
cvtsi2sd %r8d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, 0xd70(%rdi,%rax,2)
xorl %r8d, %r8d
subl (%rax,%rsi), %r8d
xorps %xmm2, %xmm2
cvtsi2sd %r8d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, 0x61c70(%rdi,%rax,2)
addq $0x4, %rax
cmpq $0x7c, %rax
jne 0x8839
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
leaq 0x670(%rdi), %rax
leaq 0xbe8(%rdi), %rcx
leaq 0x61ec0(%rdi), %rdx
leaq 0x1483b(%rip), %rsi     # 0x1d100
xorl %r8d, %r8d
leaq 0x142b1(%rip), %r9      # 0x1cb80
leaq 0x1456a(%rip), %r10     # 0x1ce40
leaq 0x148f3(%rip), %r11     # 0x1d1d0
leaq 0x1498c(%rip), %rbx     # 0x1d270
xorl %r12d, %r12d
xorl %r15d, %r15d
movq %rdi, -0x30(%rsp)
movq %rax, -0x38(%rsp)
movq %rax, %rdi
movq %r12, -0x40(%rsp)
xorl %r13d, %r13d
xorl %ebp, %ebp
leaq (%r12,%rbp), %rax
xorl %r14d, %r14d
subl (%r9,%rax), %r14d
xorps %xmm2, %xmm2
cvtsi2sd %r14d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, (%rdi,%rbp,2)
xorl %r14d, %r14d
subl (%r10,%rax), %r14d
xorps %xmm2, %xmm2
cvtsi2sd %r14d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, -0x578(%rdi,%rbp,2)
addq $0x4, %rbp
cmpq $0x14, %rbp
jne 0x8901
incq %r13
addq $0x14, %r12
addq $0x28, %rdi
cmpq $0x5, %r13
jne 0x88ff
xorl %edi, %edi
xorl %eax, %eax
subl (%rsi,%rdi,4), %eax
xorps %xmm2, %xmm2
cvtsi2sd %eax, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, (%rcx,%rdi,8)
incq %rdi
cmpq $0x7, %rdi
jne 0x895e
movq -0x30(%rsp), %rdi
movsd 0xe68(%rdi), %xmm2
xorl %r12d, %r12d
leaq (%r8,%r12), %rax
xorl %ebp, %ebp
subl (%r11,%rax), %ebp
xorl %r14d, %r14d
subl (%rbx,%rax), %r14d
xorps %xmm4, %xmm4
cvtsi2sd %ebp, %xmm4
mulsd %xmm1, %xmm4
divsd %xmm0, %xmm4
xorps %xmm3, %xmm3
cvtsi2sd %r14d, %xmm3
movsd %xmm4, -0x140(%rdx,%r12,2)
mulsd %xmm1, %xmm3
divsd %xmm0, %xmm3
cmpq $0x3, %r15
jb 0x89d4
addsd %xmm2, %xmm3
movsd %xmm3, (%rdx,%r12,2)
addq $0x4, %r12
cmpq $0x14, %r12
jne 0x8990
incq %r15
movq -0x40(%rsp), %r12
addq $0x64, %r12
movq -0x38(%rsp), %rax
addq $0xc8, %rax
addq $0x1c, %rsi
addq $0x38, %rcx
addq $0x14, %r8
addq $0x28, %rdx
cmpq $0x7, %r15
jne 0x88ef
leaq 0xe70(%rdi), %rax
movq %rax, -0x38(%rsp)
leaq 0x4070(%rdi), %rcx
leaq 0x13a70(%rdi), %r15
leaq 0x1deda(%rip), %rbx     # 0x26910
xorl %r8d, %r8d
leaq 0x161d0(%rip), %r10     # 0x1ec10
movq %r15, -0x20(%rsp)
movq %rbx, -0x28(%rsp)
xorl %r14d, %r14d
movq %r15, -0x10(%rsp)
movq %rbx, -0x18(%rsp)
xorl %r13d, %r13d
movq %r15, -0x40(%rsp)
movq %rbx, -0x8(%rsp)
xorl %edi, %edi
imulq $0x320, %r8, %rdx       # imm = 0x320
leaq 0x1489c(%rip), %rax     # 0x1d310
addq %rax, %rdx
imulq $0x64, %r14, %r11
addq %rdx, %r11
leaq (,%r13,4), %rdx
addq %r13, %rdx
leaq (%r11,%rdx,4), %r11
xorl %ebp, %ebp
subl (%r11,%rdi,4), %ebp
xorps %xmm2, %xmm2
cvtsi2sd %ebp, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
imulq $0x640, %r8, %r11       # imm = 0x640
addq -0x38(%rsp), %r11
imulq $0xc8, %r14, %r12
addq %r11, %r12
leaq (%r12,%rdx,8), %rdx
movsd %xmm2, (%rdx,%rdi,8)
movq %r15, %rbp
movq %rbx, %r12
xorl %edx, %edx
imulq $0xfa0, %r8, %r11       # imm = 0xFA0
addq %r10, %r11
imulq $0x1f4, %r14, %rsi      # imm = 0x1F4
imulq $0x64, %r13, %r9
addq %rsi, %r9
addq %r11, %r9
leaq (%rdi,%rdi,4), %rsi
leaq (%r9,%rsi,4), %r9
xorl %r11d, %r11d
subl (%r9,%rdx,4), %r11d
xorps %xmm2, %xmm2
cvtsi2sd %r11d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
imulq $0x1f40, %r8, %r9       # imm = 0x1F40
addq %rcx, %r9
imulq $0x3e8, %r14, %r11      # imm = 0x3E8
imulq $0xc8, %r13, %rax
addq %r11, %rax
addq %r9, %rax
leaq (%rax,%rsi,8), %rax
movsd %xmm2, (%rax,%rdx,8)
xorl %r11d, %r11d
xorl %eax, %eax
subl (%r12,%r11,4), %eax
xorps %xmm2, %xmm2
cvtsi2sd %eax, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, (%rbp,%r11,8)
incq %r11
cmpq $0x5, %r11
jne 0x8b2d
incq %rdx
addq $0x14, %r12
addq $0x28, %rbp
cmpq $0x5, %rdx
jne 0x8ac9
incq %rdi
addq $0x64, %rbx
addq $0xc8, %r15
cmpq $0x5, %rdi
jne 0x8a66
incq %r13
movq -0x8(%rsp), %rbx
addq $0x1f4, %rbx            # imm = 0x1F4
movq -0x40(%rsp), %r15
addq $0x3e8, %r15            # imm = 0x3E8
cmpq $0x5, %r13
jne 0x8a5a
incq %r14
movq -0x18(%rsp), %rbx
addq $0x9c4, %rbx            # imm = 0x9C4
movq -0x10(%rsp), %r15
addq $0x1388, %r15           # imm = 0x1388
cmpq $0x8, %r14
jne 0x8a4d
incq %r8
movq -0x28(%rsp), %rbx
addq $0x4e20, %rbx           # imm = 0x4E20
movq -0x20(%rsp), %r15
addq $0x9c40, %r15           # imm = 0x9C40
cmpq $0x8, %r8
jne 0x8a40
movq -0x30(%rsp), %rdx
addq $0x62008, %rdx          # imm = 0x62008
movdqa 0x1344e(%rip), %xmm1    # 0x1c050
xorl %eax, %eax
movdqa 0x13454(%rip), %xmm2    # 0x1c060
movdqa 0x13cec(%rip), %xmm3    # 0x1c900
pshufd $0xf5, %xmm3, %xmm4     # xmm4 = xmm3[1,1,3,3]
movdqa 0x13cef(%rip), %xmm5    # 0x1c910
movdqa 0x13cf7(%rip), %xmm6    # 0x1c920
movdqa %xmm1, %xmm7
pxor %xmm2, %xmm7
movdqa %xmm3, %xmm8
pcmpgtd %xmm7, %xmm8
pshufd $0xf5, %xmm7, %xmm7     # xmm7 = xmm7[1,1,3,3]
pcmpeqd %xmm4, %xmm7
pand %xmm8, %xmm7
movd %eax, %xmm9
leal 0x32(%rax), %ecx
movd %ecx, %xmm8
punpckldq %xmm8, %xmm9    # xmm9 = xmm9[0],xmm8[0],xmm9[1],xmm8[1]
movdqa %xmm5, %xmm8
pcmpgtd %xmm9, %xmm8
pand %xmm8, %xmm9
pandn %xmm5, %xmm8
por %xmm9, %xmm8
movd %xmm7, %ecx
testb $0x1, %cl
je 0x8c9d
movd %xmm8, %ecx
addl %ecx, %ecx
leal (%rcx,%rcx,4), %ecx
negl %ecx
xorps %xmm9, %xmm9
cvtsi2sd %ecx, %xmm9
divsd %xmm0, %xmm9
movsd %xmm9, -0x8(%rdx)
pextrw $0x4, %xmm7, %ecx
testb $0x1, %cl
je 0x8cc7
pshufd $0x55, %xmm8, %xmm7     # xmm7 = xmm8[1,1,1,1]
movd %xmm7, %ecx
addl %ecx, %ecx
leal (%rcx,%rcx,4), %ecx
negl %ecx
xorps %xmm7, %xmm7
cvtsi2sd %ecx, %xmm7
divsd %xmm0, %xmm7
movsd %xmm7, (%rdx)
paddq %xmm6, %xmm1
addq $0x10, %rdx
addq $0x64, %rax
cmpq $0x640, %rax            # imm = 0x640
jne 0x8c29
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq