// File: /workspace/github_c_makefile_star2_O2/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 0xdccd4(%rip), %xmm0    # 0xe3250
movapd %xmm0, %xmm1
unpcklpd %xmm0, %xmm1            # xmm1 = xmm1[0],xmm0[0]
movapd 0x102b4(%rip), %xmm2    # 0x16840
divpd %xmm1, %xmm2
movupd %xmm2, 0x61d68(%rdi)
movsd 0x102b0(%rip), %xmm1    # 0x16850
divsd %xmm0, %xmm1
movsd %xmm1, 0x61d78(%rdi)
movsd 0x102a4(%rip), %xmm1    # 0x16858
divsd %xmm0, %xmm1
movsd %xmm1, 0xe68(%rdi)
xorl %eax, %eax
leaq 0x10357(%rip), %rcx     # 0x16920
movsd 0x1028f(%rip), %xmm1    # 0x16860
leaq 0x103c8(%rip), %rdx     # 0x169a0
leaq 0x10441(%rip), %rsi     # 0x16a20
cmpq $0x7c, %rax
je 0x663e
xorl %r8d, %r8d
subl (%rax,%rcx), %r8d
cvtsi2sd %r8d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, (%rdi,%rax,2)
xorl %r8d, %r8d
subl (%rax,%rdx), %r8d
cvtsi2sd %r8d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, 0xd70(%rdi,%rax,2)
xorl %r8d, %r8d
subl (%rax,%rsi), %r8d
cvtsi2sd %r8d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, 0x61c70(%rdi,%rax,2)
addq $0x4, %rax
jmp 0x65df
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
leaq 0x670(%rdi), %r12
leaq 0xbe8(%rdi), %rcx
movq %rdi, -0x38(%rsp)
leaq 0x61ec0(%rdi), %rdx
leaq 0x109b7(%rip), %rsi     # 0x17020
xorl %r8d, %r8d
leaq 0x10a7d(%rip), %r9      # 0x170f0
leaq 0x10b16(%rip), %r10     # 0x17190
leaq 0x1041f(%rip), %r11     # 0x16aa0
leaq 0x106d8(%rip), %rbx     # 0x16d60
xorl %r13d, %r13d
xorl %r15d, %r15d
cmpq $0x7, %r15
je 0x67b3
movq %r12, -0x28(%rsp)
movq %r12, %rdi
movq %r13, -0x30(%rsp)
movq %r13, %r12
xorl %r13d, %r13d
cmpq $0x5, %r13
je 0x6706
xorl %ebp, %ebp
cmpq $0x14, %rbp
je 0x66f9
leaq (%r12,%rbp), %rax
xorl %r14d, %r14d
subl (%r11,%rax), %r14d
cvtsi2sd %r14d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, (%rdi,%rbp,2)
xorl %r14d, %r14d
subl (%rbx,%rax), %r14d
cvtsi2sd %r14d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, -0x578(%rdi,%rbp,2)
addq $0x4, %rbp
jmp 0x66b3
incq %r13
addq $0x14, %r12
addq $0x28, %rdi
jmp 0x66ab
xorl %edi, %edi
movq -0x28(%rsp), %r12
movq -0x30(%rsp), %r13
cmpq $0x7, %rdi
je 0x6733
xorl %eax, %eax
subl (%rsi,%rdi,4), %eax
cvtsi2sd %eax, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, (%rcx,%rdi,8)
incq %rdi
jmp 0x6712
movq -0x38(%rsp), %rax
movsd 0xe68(%rax), %xmm2
xorl %edi, %edi
cmpq $0x14, %rdi
je 0x6790
leaq (%r8,%rdi), %rax
xorl %ebp, %ebp
subl (%r9,%rax), %ebp
xorl %r14d, %r14d
subl (%r10,%rax), %r14d
cvtsi2sd %ebp, %xmm4
mulsd %xmm1, %xmm4
divsd %xmm0, %xmm4
cvtsi2sd %r14d, %xmm3
movsd %xmm4, -0x140(%rdx,%rdi,2)
mulsd %xmm1, %xmm3
divsd %xmm0, %xmm3
cmpq $0x3, %r15
jb 0x6785
addsd %xmm2, %xmm3
movsd %xmm3, (%rdx,%rdi,2)
addq $0x4, %rdi
jmp 0x6742
incq %r15
addq $0x64, %r13
addq $0xc8, %r12
addq $0x1c, %rsi
addq $0x38, %rcx
addq $0x14, %r8
addq $0x28, %rdx
jmp 0x668e
movq -0x38(%rsp), %rdx
leaq 0xe70(%rdx), %rax
leaq 0x4070(%rdx), %rcx
leaq 0x13a70(%rdx), %r15
leaq 0x1a05c(%rip), %rbx     # 0x20830
xorl %r8d, %r8d
leaq 0x12352(%rip), %r10     # 0x18b30
cmpq $0x8, %r8
je 0x699a
movq %r15, -0x18(%rsp)
movq %rbx, -0x20(%rsp)
xorl %r14d, %r14d
cmpq $0x8, %r14
je 0x697a
movq %r15, -0x8(%rsp)
movq %rbx, -0x10(%rsp)
xorl %r13d, %r13d
cmpq $0x5, %r13
je 0x695a
movq %r15, -0x28(%rsp)
movq %rbx, -0x30(%rsp)
xorl %edx, %edx
cmpq $0x5, %rdx
je 0x693a
imulq $0x320, %r8, %rdi       # imm = 0x320
leaq 0x109f6(%rip), %rsi     # 0x17230
addq %rsi, %rdi
imulq $0x64, %r14, %r11
imulq $0x14, %r13, %r12
addq %r11, %r12
addq %rdi, %r12
xorl %edi, %edi
subl (%r12,%rdx,4), %edi
cvtsi2sd %edi, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
imulq $0x640, %r8, %rdi       # imm = 0x640
addq %rax, %rdi
imulq $0xc8, %r14, %r11
imulq $0x28, %r13, %r12
addq %r11, %r12
addq %rdi, %r12
movsd %xmm2, (%r12,%rdx,8)
movq %r15, %rbp
movq %rbx, %r12
xorl %edi, %edi
cmpq $0x5, %rdi
je 0x6927
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
imulq $0x14, %rdx, %rsi
addq %r9, %rsi
xorl %r9d, %r9d
subl (%rsi,%rdi,4), %r9d
cvtsi2sd %r9d, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
imulq $0x1f40, %r8, %rsi      # imm = 0x1F40
addq %rcx, %rsi
imulq $0x3e8, %r14, %r9       # imm = 0x3E8
imulq $0xc8, %r13, %r11
addq %r9, %r11
addq %rsi, %r11
imulq $0x28, %rdx, %rsi
addq %r11, %rsi
movsd %xmm2, (%rsi,%rdi,8)
xorl %r11d, %r11d
cmpq $0x5, %r11
je 0x6917
xorl %esi, %esi
subl (%r12,%r11,4), %esi
cvtsi2sd %esi, %xmm2
mulsd %xmm1, %xmm2
divsd %xmm0, %xmm2
movsd %xmm2, (%rbp,%r11,8)
incq %r11
jmp 0x68f3
incq %rdi
addq $0x14, %r12
addq $0x28, %rbp
jmp 0x6886
incq %rdx
addq $0x64, %rbx
addq $0xc8, %r15
jmp 0x6822
incq %r13
movq -0x30(%rsp), %rbx
addq $0x1f4, %rbx            # imm = 0x1F4
movq -0x28(%rsp), %r15
addq $0x3e8, %r15            # imm = 0x3E8
jmp 0x680c
incq %r14
movq -0x10(%rsp), %rbx
addq $0x9c4, %rbx            # imm = 0x9C4
movq -0x8(%rsp), %r15
addq $0x1388, %r15           # imm = 0x1388
jmp 0x67f5
incq %r8
movq -0x20(%rsp), %rbx
addq $0x4e20, %rbx           # imm = 0x4E20
movq -0x18(%rsp), %r15
addq $0x9c40, %r15           # imm = 0x9C40
jmp 0x67de
movq -0x38(%rsp), %rsi
addq $0x62000, %rsi          # imm = 0x62000
xorl %eax, %eax
movl $0x12c, %ecx            # imm = 0x12C
cmpq $0x60e, %rax            # imm = 0x60E
je 0x69d8
cmpl %ecx, %eax
movl $0x12c, %edx            # imm = 0x12C
cmovll %eax, %edx
imull $-0xa, %edx, %edx
cvtsi2sd %edx, %xmm1
divsd %xmm0, %xmm1
movsd %xmm1, (%rsi)
addq $0x32, %rax
addq $0x8, %rsi
jmp 0x69ad
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
nop