double decdrho_p__(n)
double *n;
{
  double ret_val;
  static double cvas;
  extern int ldavasip_();
  static double beta1, beta2, a, b, d__, gamma, x;
  extern double decdrho_();
  if (*n <= 0.) {
    ret_val = 0.;
    return ret_val;
  }
  ldavasip_(&a, &b, &cvas, &d__, &x, &gamma, &beta1, &beta2);
  ret_val = decdrho_(n, &a, &b, &cvas, &d__, &x, &gamma, &beta1, &beta2);
  return ret_val;
}


x86 assembly (clang, -O0):
<decdrho_p__>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
xorps  %xmm0,%xmm0
ucomisd (%rax),%xmm0
jb     1154 <decdrho_p__+0x34>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x18(%rbp)
movsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    11fc <decdrho_p__+0xdc>
lea    0x2ef5(%rip),%rdi
lea    0x2ef6(%rip),%rsi
lea    0x2ecf(%rip),%rdx
lea    0x2ef0(%rip),%rcx
lea    0x2ef9(%rip),%r8
lea    0x2eea(%rip),%r9
lea    0x2ebb(%rip),%r10
lea    0x2ebc(%rip),%rax
mov    %r10,(%rsp)
mov    %rax,0x8(%rsp)
mov    $0x0,%al
call   1040 <ldavasip_@plt>
mov    -0x10(%rbp),%rdi
lea    0x2ea9(%rip),%rsi
lea    0x2eaa(%rip),%rdx
lea    0x2e83(%rip),%rcx
lea    0x2ea4(%rip),%r8
lea    0x2ead(%rip),%r9
lea    0x2e9e(%rip),%r11
lea    0x2e6f(%rip),%r10
lea    0x2e70(%rip),%rax
mov    %r11,(%rsp)
mov    %r10,0x8(%rsp)
mov    %rax,0x10(%rsp)
mov    $0x0,%al
call   1030 <decdrho_@plt>
movsd  %xmm0,-0x18(%rbp)
movsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<decdrho_p__>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
xorpd  %xmm0,%xmm0
ucomisd (%rdi),%xmm0
jae    11c2 <decdrho_p__+0xa2>
mov    %rdi,%rbx
lea    0x2f05(%rip),%r10
lea    0x2ef6(%rip),%rbp
lea    0x2eff(%rip),%r14
lea    0x2f00(%rip),%r15
lea    0x2ed9(%rip),%r12
lea    0x2efa(%rip),%r13
lea    0x2f03(%rip),%r8
lea    0x2ef4(%rip),%r9
mov    %r14,%rdi
mov    %r15,%rsi
mov    %r12,%rdx
mov    %r13,%rcx
xor    %eax,%eax
push   %r10
push   %rbp
call   1040 <ldavasip_@plt>
add    $0x8,%rsp
mov    %rbx,%rdi
mov    %r14,%rsi
mov    %r15,%rdx
mov    %r12,%rcx
mov    %r13,%r8
lea    0x2ecc(%rip),%r9
xor    %eax,%eax
lea    0x2e9b(%rip),%rbx
push   %rbx
push   %rbp
lea    0x2eb2(%rip),%rbp
push   %rbp
call   1030 <decdrho_@plt>
add    $0x28,%rsp
jmp    11ca <decdrho_p__+0xaa>
xorpd  %xmm0,%xmm0
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@decdrho_p__.cvas = internal global double 0.000000e+00
@decdrho_p__.beta1 = internal global double 0.000000e+00
@decdrho_p__.beta2 = internal global double 0.000000e+00
@decdrho_p__.a = internal global double 0.000000e+00
@decdrho_p__.b = internal global double 0.000000e+00
@decdrho_p__.d__ = internal global double 0.000000e+00
@decdrho_p__.gamma = internal global double 0.000000e+00
@decdrho_p__.x = internal global double 0.000000e+00
define double @decdrho_p__(double* %0) {
%2 = alloca double
%3 = alloca double*
%4 = alloca double
store double* %0, double** %3
%5 = load double*, double** %3
%6 = load double, double* %5
%7 = fcmp ole double %6, 0.000000e+00
br i1 %7, label %8, label %10
8: ; preds = %1
store double 0.000000e+00, double* %4
%9 = load double, double* %4
store double %9, double* %2
br label %15
10: ; preds = %1
%11 = call i32 (double*, double*, double*, double*, double*, double*, double*, double*, ...) bitcast (i32 (...)* @ldavasip_ to i32 (double*, double*, double*, double*, double*, double*, double*, double*, ...)*)(double* @decdrho_p__.a, double* @decdrho_p__.b, double* @decdrho_p__.cvas, double* @decdrho_p__.d__, double* @decdrho_p__.x, double* @decdrho_p__.gamma, double* @decdrho_p__.beta1, double* @decdrho_p__.beta2)
%12 = load double*, double** %3
%13 = call double (double*, double*, double*, double*, double*, double*, double*, double*, double*, ...) bitcast (double (...)* @decdrho_ to double (double*, double*, double*, double*, double*, double*, double*, double*, double*, ...)*)(double* %12, double* @decdrho_p__.a, double* @decdrho_p__.b, double* @decdrho_p__.cvas, double* @decdrho_p__.d__, double* @decdrho_p__.x, double* @decdrho_p__.gamma, double* @decdrho_p__.beta1, double* @decdrho_p__.beta2)
store double %13, double* %4
%14 = load double, double* %4
store double %14, double* %2
br label %15
15: ; preds = %10, %8
%16 = load double, double* %2
ret double %16
}

LLVM IR (-O2):
@decdrho_p__.cvas = internal global double 0.000000e+00
@decdrho_p__.beta1 = internal global double 0.000000e+00
@decdrho_p__.beta2 = internal global double 0.000000e+00
@decdrho_p__.a = internal global double 0.000000e+00
@decdrho_p__.b = internal global double 0.000000e+00
@decdrho_p__.d__ = internal global double 0.000000e+00
@decdrho_p__.gamma = internal global double 0.000000e+00
@decdrho_p__.x = internal global double 0.000000e+00
define double @decdrho_p__(double* %0) {
%2 = load double, double* %0
%3 = fcmp ugt double %2, 0.000000e+00
br i1 %3, label %4, label %7
4: ; preds = %1
%5 = tail call i32 (double*, double*, double*, double*, double*, double*, double*, double*, ...) bitcast (i32 (...)* @ldavasip_ to i32 (double*, double*, double*, double*, double*, double*, double*, double*, ...)*)(double* @decdrho_p__.a, double* @decdrho_p__.b, double* @decdrho_p__.cvas, double* @decdrho_p__.d__, double* @decdrho_p__.x, double* @decdrho_p__.gamma, double* @decdrho_p__.beta1, double* @decdrho_p__.beta2)
%6 = tail call double (double*, double*, double*, double*, double*, double*, double*, double*, double*, ...) bitcast (double (...)* @decdrho_ to double (double*, double*, double*, double*, double*, double*, double*, double*, double*, ...)*)(double* %0, double* @decdrho_p__.a, double* @decdrho_p__.b, double* @decdrho_p__.cvas, double* @decdrho_p__.d__, double* @decdrho_p__.x, double* @decdrho_p__.gamma, double* @decdrho_p__.beta1, double* @decdrho_p__.beta2)
br label %7
7: ; preds = %1, %4
%8 = phi double [ %6, %4 ], [ 0.000000e+00, %1 ]
ret double %8
}