// File: /workspace/github_c_makefile_star2_O1/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 0x1d687
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
movss 0x10(%rdi), %xmm1
ucomiss %xmm0, %xmm1
jae 0x1d68b
movss 0x14(%rbx), %xmm1
ucomiss %xmm0, %xmm1
jae 0x1d6d6
movss 0x18(%rbx), %xmm1
ucomiss %xmm0, %xmm1
jae 0x1d7fe
leaq 0x4ba51(%rip), %rax     # 0x69068
movss (%rax), %xmm2
xorps %xmm1, %xmm1
ucomiss %xmm0, %xmm2
jbe 0x1d7ef
subss %xmm2, %xmm0
cvtss2sd %xmm0, %xmm0
movaps %xmm0, %xmm2
mulsd %xmm0, %xmm2
movsd 0xa0(%rbx), %xmm3
movsd 0xa8(%rbx), %xmm4
mulsd 0x39d22(%rip), %xmm3    # 0x57370
mulsd 0x398d2(%rip), %xmm4    # 0x56f28
mulsd %xmm2, %xmm4
mulsd %xmm0, %xmm4
mulsd %xmm2, %xmm3
movsd 0xb0(%rbx), %xmm1
mulsd 0x39d06(%rip), %xmm1    # 0x57378
addsd %xmm4, %xmm3
mulsd %xmm2, %xmm1
mulsd %xmm2, %xmm1
addsd %xmm3, %xmm1
jmp 0x1d7ef
xorps %xmm0, %xmm0
retq
leaq 0x4af5a(%rip), %rax     # 0x685ec
cmpl $0x0, (%rax)
je 0x1d74f
cvtss2sd %xmm0, %xmm0
movsd %xmm0, (%rsp)
leaq 0x4ba29(%rip), %r14     # 0x690d4
movss (%r14), %xmm1
xorps 0x39279(%rip), %xmm1    # 0x56930
cvtss2sd %xmm1, %xmm1
callq 0x20a0
xorps %xmm1, %xmm1
cvtss2sd (%r14), %xmm1
mulsd %xmm0, %xmm1
divsd (%rsp), %xmm1
jmp 0x1d77e
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 0x39c66(%rip), %xmm3    # 0x57370
mulsd %xmm2, %xmm3
addsd %xmm1, %xmm3
movsd 0x90(%rbx), %xmm4
mulsd 0x39806(%rip), %xmm4    # 0x56f28
mulsd %xmm2, %xmm4
mulsd %xmm0, %xmm4
movsd 0x98(%rbx), %xmm1
mulsd 0x39c3e(%rip), %xmm1    # 0x57378
addsd %xmm3, %xmm4
mulsd %xmm2, %xmm1
mulsd %xmm2, %xmm1
addsd %xmm4, %xmm1
jmp 0x1d7ef
leaq 0x4b97e(%rip), %r14     # 0x690d4
movss (%r14), %xmm1
xorps 0x391ce(%rip), %xmm1    # 0x56930
mulss %xmm0, %xmm1
xorps %xmm0, %xmm0
cvtss2sd %xmm1, %xmm0
callq 0x22a0
xorps %xmm1, %xmm1
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 0x1d7cb
jnp 0x1d7e3
mulsd 0x39755(%rip), %xmm3    # 0x56f28
mulsd %xmm0, %xmm3
mulsd %xmm0, %xmm3
mulsd %xmm0, %xmm3
addsd %xmm3, %xmm2
xorpd 0x338a5(%rip), %xmm1    # 0x51090
mulsd %xmm2, %xmm1
xorps %xmm0, %xmm0
cvtsd2ss %xmm1, %xmm0
addq $0x8, %rsp
popq %rbx
popq %r14
retq
leaq 0x4ade7(%rip), %rax     # 0x685ec
cmpl $0x0, (%rax)
je 0x1d842
cvtss2sd %xmm0, %xmm0
movsd %xmm0, (%rsp)
leaq 0x4b8ba(%rip), %r14     # 0x690d4
movss (%r14), %xmm1
xorps 0x3910a(%rip), %xmm1    # 0x56930
cvtss2sd %xmm1, %xmm1
callq 0x20a0
xorps %xmm1, %xmm1
cvtss2sd (%r14), %xmm1
mulsd %xmm0, %xmm1
divsd (%rsp), %xmm1
jmp 0x1d871
leaq 0x4b88b(%rip), %r14     # 0x690d4
movss (%r14), %xmm1
xorps 0x390db(%rip), %xmm1    # 0x56930
mulss %xmm0, %xmm1
xorps %xmm0, %xmm0
cvtss2sd %xmm1, %xmm0
callq 0x22a0
xorps %xmm1, %xmm1
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 0x1d7c3