// File: /workspace/github_c_makefile_star2_O1/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 0xdea72(%rip), %xmm0    # 0xe6250
movsd 0x14052(%rip), %xmm1    # 0x1b838
divsd %xmm0, %xmm1
movsd %xmm1, 0x61d68(%rdi)
movsd 0x14046(%rip), %xmm1    # 0x1b840
divsd %xmm0, %xmm1
movsd %xmm1, 0x61d70(%rdi)
movsd 0x1403a(%rip), %xmm1    # 0x1b848
divsd %xmm0, %xmm1
movsd %xmm1, 0x61d78(%rdi)
movsd 0x1402e(%rip), %xmm1    # 0x1b850
divsd %xmm0, %xmm1
movsd %xmm1, 0xe68(%rdi)
xorl %eax, %eax
leaq 0x140e9(%rip), %rcx     # 0x1b920
movsd 0x14019(%rip), %xmm1    # 0x1b858
leaq 0x1415a(%rip), %rdx     # 0x1b9a0
leaq 0x141d3(%rip), %rsi     # 0x1ba20
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 0x784d
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 0x14747(%rip), %rsi     # 0x1c020
xorl %r8d, %r8d
leaq 0x141bd(%rip), %r9      # 0x1baa0
leaq 0x14476(%rip), %r10     # 0x1bd60
leaq 0x147ff(%rip), %r11     # 0x1c0f0
leaq 0x14898(%rip), %rbx     # 0x1c190
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 0x7915
incq %r13
addq $0x14, %r12
addq $0x28, %rdi
cmpq $0x5, %r13
jne 0x7913
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 0x7972
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 0x79e8
addsd %xmm2, %xmm3
movsd %xmm3, (%rdx,%r12,2)
addq $0x4, %r12
cmpq $0x14, %r12
jne 0x79a4
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 0x7903
leaq 0xe70(%rdi), %rax
movq %rax, -0x38(%rsp)
leaq 0x4070(%rdi), %rcx
leaq 0x13a70(%rdi), %r15
leaq 0x1dde6(%rip), %rbx     # 0x25830
xorl %r8d, %r8d
leaq 0x160dc(%rip), %r10     # 0x1db30
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 0x147a8(%rip), %rax     # 0x1c230
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 0x7b41
incq %rdx
addq $0x14, %r12
addq $0x28, %rbp
cmpq $0x5, %rdx
jne 0x7add
incq %rdi
addq $0x64, %rbx
addq $0xc8, %r15
cmpq $0x5, %rdi
jne 0x7a7a
incq %r13
movq -0x8(%rsp), %rbx
addq $0x1f4, %rbx            # imm = 0x1F4
movq -0x40(%rsp), %r15
addq $0x3e8, %r15            # imm = 0x3E8
cmpq $0x5, %r13
jne 0x7a6e
incq %r14
movq -0x18(%rsp), %rbx
addq $0x9c4, %rbx            # imm = 0x9C4
movq -0x10(%rsp), %r15
addq $0x1388, %r15           # imm = 0x1388
cmpq $0x8, %r14
jne 0x7a61
incq %r8
movq -0x28(%rsp), %rbx
addq $0x4e20, %rbx           # imm = 0x4E20
movq -0x20(%rsp), %r15
addq $0x9c40, %r15           # imm = 0x9C40
cmpq $0x8, %r8
jne 0x7a54
movq -0x30(%rsp), %rsi
addq $0x62000, %rsi          # imm = 0x62000
xorl %eax, %eax
movl $0x12c, %ecx            # imm = 0x12C
cmpl %ecx, %eax
movl $0x12c, %edx            # imm = 0x12C
cmovll %eax, %edx
addl %edx, %edx
leal (%rdx,%rdx,4), %edx
negl %edx
xorps %xmm1, %xmm1
cvtsi2sd %edx, %xmm1
divsd %xmm0, %xmm1
movsd %xmm1, (%rsi)
addq $0x32, %rax
addq $0x8, %rsi
cmpq $0x60e, %rax            # imm = 0x60E
jne 0x7c15
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq