// File: /workspace/github_c_makefile_star2_O2/ugobas[P]tnm/anharmonic_tnm.c
// Function: Compute_V1
float Compute_V1(struct interaction *Int, float r)
{
  if(Int==NULL)return(0);
  double V=0, f, f1;
  if(r<=Int->r1){
    if(POW){f=pow(r,-lambda); f1=lambda*f/r;}
    else{f=exp(-lambda*r); f1=lambda*f;}
    if(Int->A1)V+=Int->A1; 
    if(Int->A2)V+=2.0*Int->A2*f;
    if(Int->A4)V+=4.0*Int->A4*f*f*f;
    V*=-f1;
  }else if(r<=Int->r2){
    double d=(r-Int->r2), d2=d*d;
    V=Int->a1+2*Int->a2*d+3*Int->a3*d2+4*Int->a4*d2*d+5*Int->a5*d2*d2;
  }else if(r<=Int->r3){
    if(POW){f=pow(r,-lambda); f1=lambda*f/r;}
    else{f=exp(-lambda*r); f1=lambda*f;}
    if(Int->B1)V+=Int->B1; 
    if(Int->B2)V+=2*Int->B2*f;
    if(Int->B4)V+=4*Int->B4*f*f*f;
    V*=-f1;
  }else if(r<C_THR){
    // Final interpolation region
    double d=(r-C_THR), d2=d*d;
    V=3*Int->b3*d2+4*Int->b4*d2*d+5*Int->b5*d2*d2;
  }
  return(V);
}

// Assembly:
testq %rdi, %rdi
je 0x1b557
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
movss 0x10(%rdi), %xmm1
ucomiss %xmm0, %xmm1
jae 0x1b55b
movss 0x14(%rbx), %xmm1
ucomiss %xmm0, %xmm1
jae 0x1b5a3
movss 0x18(%rbx), %xmm1
ucomiss %xmm0, %xmm1
jae 0x1b6c2
leaq 0x48b81(%rip), %rax     # 0x64068
movss (%rax), %xmm2
xorps %xmm1, %xmm1
ucomiss %xmm0, %xmm2
jbe 0x1b6b6
subss %xmm2, %xmm0
cvtss2sd %xmm0, %xmm0
movaps %xmm0, %xmm2
mulsd %xmm0, %xmm2
movsd 0xa0(%rbx), %xmm3
movsd 0xa8(%rbx), %xmm4
mulsd 0x35d82(%rip), %xmm3    # 0x512a0
mulsd 0x35912(%rip), %xmm4    # 0x50e38
mulsd %xmm2, %xmm4
mulsd %xmm0, %xmm4
mulsd %xmm2, %xmm3
movsd 0xb0(%rbx), %xmm1
mulsd 0x35d66(%rip), %xmm1    # 0x512a8
addsd %xmm4, %xmm3
mulsd %xmm2, %xmm1
mulsd %xmm2, %xmm1
addsd %xmm3, %xmm1
jmp 0x1b6b6
xorps %xmm0, %xmm0
retq
leaq 0x4808a(%rip), %rax     # 0x635ec
cmpl $0x0, (%rax)
je 0x1b61c
cvtss2sd %xmm0, %xmm0
movsd %xmm0, (%rsp)
leaq 0x48b59(%rip), %r14     # 0x640d4
movss (%r14), %xmm1
xorps 0x352d9(%rip), %xmm1    # 0x50860
cvtss2sd %xmm1, %xmm1
callq 0x20a0
cvtss2sd (%r14), %xmm1
mulsd %xmm0, %xmm1
divsd (%rsp), %xmm1
jmp 0x1b645
subss %xmm1, %xmm0
cvtss2sd %xmm0, %xmm0
movaps %xmm0, %xmm2
mulsd %xmm0, %xmm2
movsd 0x80(%rbx), %xmm1
movsd 0x88(%rbx), %xmm3
addsd %xmm1, %xmm1
mulsd %xmm0, %xmm1
addsd 0x78(%rbx), %xmm1
mulsd 0x35cc9(%rip), %xmm3    # 0x512a0
mulsd %xmm2, %xmm3
addsd %xmm1, %xmm3
movsd 0x90(%rbx), %xmm4
mulsd 0x35849(%rip), %xmm4    # 0x50e38
mulsd %xmm2, %xmm4
mulsd %xmm0, %xmm4
movsd 0x98(%rbx), %xmm1
mulsd 0x35ca1(%rip), %xmm1    # 0x512a8
addsd %xmm3, %xmm4
mulsd %xmm2, %xmm1
mulsd %xmm2, %xmm1
addsd %xmm4, %xmm1
jmp 0x1b6b6
leaq 0x48ab1(%rip), %r14     # 0x640d4
movss (%r14), %xmm1
xorps 0x35231(%rip), %xmm1    # 0x50860
mulss %xmm0, %xmm1
cvtss2sd %xmm1, %xmm0
callq 0x22a0
cvtss2sd (%r14), %xmm1
mulsd %xmm0, %xmm1
movsd 0x38(%rbx), %xmm3
movsd 0x40(%rbx), %xmm2
xorpd %xmm4, %xmm4
movapd %xmm3, %xmm5
cmpeqsd %xmm4, %xmm5
andnpd %xmm3, %xmm5
movapd %xmm2, %xmm3
addsd %xmm2, %xmm3
mulsd %xmm0, %xmm3
addsd %xmm5, %xmm3
cmpneqsd %xmm4, %xmm2
movapd %xmm2, %xmm6
andnpd %xmm5, %xmm6
andpd %xmm3, %xmm2
orpd %xmm6, %xmm2
movsd 0x48(%rbx), %xmm3
ucomisd %xmm4, %xmm3
jne 0x1b692
jnp 0x1b6aa
mulsd 0x3579e(%rip), %xmm3    # 0x50e38
mulsd %xmm0, %xmm3
mulsd %xmm0, %xmm3
mulsd %xmm0, %xmm3
addsd %xmm3, %xmm2
xorpd 0x2fa0e(%rip), %xmm1    # 0x4b0c0
mulsd %xmm2, %xmm1
cvtsd2ss %xmm1, %xmm0
addq $0x8, %rsp
popq %rbx
popq %r14
retq
leaq 0x47f23(%rip), %rax     # 0x635ec
cmpl $0x0, (%rax)
je 0x1b703
cvtss2sd %xmm0, %xmm0
movsd %xmm0, (%rsp)
leaq 0x489f6(%rip), %r14     # 0x640d4
movss (%r14), %xmm1
xorps 0x35176(%rip), %xmm1    # 0x50860
cvtss2sd %xmm1, %xmm1
callq 0x20a0
cvtss2sd (%r14), %xmm1
mulsd %xmm0, %xmm1
divsd (%rsp), %xmm1
jmp 0x1b72c
leaq 0x489ca(%rip), %r14     # 0x640d4
movss (%r14), %xmm1
xorps 0x3514a(%rip), %xmm1    # 0x50860
mulss %xmm0, %xmm1
cvtss2sd %xmm1, %xmm0
callq 0x22a0
cvtss2sd (%r14), %xmm1
mulsd %xmm0, %xmm1
movsd 0x58(%rbx), %xmm3
movsd 0x60(%rbx), %xmm2
xorpd %xmm4, %xmm4
movapd %xmm3, %xmm5
cmpeqsd %xmm4, %xmm5
andnpd %xmm3, %xmm5
movapd %xmm2, %xmm3
addsd %xmm2, %xmm3
mulsd %xmm0, %xmm3
addsd %xmm5, %xmm3
cmpneqsd %xmm4, %xmm2
movapd %xmm2, %xmm6
andnpd %xmm5, %xmm6
andpd %xmm3, %xmm2
orpd %xmm6, %xmm2
movsd 0x68(%rbx), %xmm3
jmp 0x1b68a