double ecorltn_p__(n)
double *n;
{
  double ret_val;
  static double cvas;
  extern int ldavasip_();
  static double beta1, beta2, a, b, d__, gamma, x;
  extern double ecorltn_();
  ldavasip_(&a, &b, &cvas, &d__, &x, &gamma, &beta1, &beta2);
  ret_val = ecorltn_(n, &a, &b, &cvas, &d__, &x, &gamma, &beta1, &beta2);
  return ret_val;
}


x86 assembly (clang, -O0):
<ecorltn_p__>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
lea    0x2f1d(%rip),%rdi
lea    0x2f1e(%rip),%rsi
lea    0x2ef7(%rip),%rdx
lea    0x2f18(%rip),%rcx
lea    0x2f21(%rip),%r8
lea    0x2f12(%rip),%r9
lea    0x2ee3(%rip),%r10
lea    0x2ee4(%rip),%rax
mov    %r10,(%rsp)
mov    %rax,0x8(%rsp)
mov    $0x0,%al
call   1030 <ldavasip_@plt>
mov    -0x8(%rbp),%rdi
lea    0x2ed1(%rip),%rsi
lea    0x2ed2(%rip),%rdx
lea    0x2eab(%rip),%rcx
lea    0x2ecc(%rip),%r8
lea    0x2ed5(%rip),%r9
lea    0x2ec6(%rip),%r11
lea    0x2e97(%rip),%r10
lea    0x2e98(%rip),%rax
mov    %r11,(%rsp)
mov    %r10,0x8(%rsp)
mov    %rax,0x10(%rsp)
mov    $0x0,%al
call   1040 <ecorltn_@plt>
movsd  %xmm0,-0x10(%rbp)
movsd  -0x10(%rbp),%xmm0
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ecorltn_p__>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rdi,%rbx
lea    0x2f13(%rip),%r10
lea    0x2f04(%rip),%rbp
lea    0x2f0d(%rip),%r14
lea    0x2f0e(%rip),%r15
lea    0x2ee7(%rip),%r12
lea    0x2f08(%rip),%r13
lea    0x2f11(%rip),%r8
lea    0x2f02(%rip),%r9
mov    %r14,%rdi
mov    %r15,%rsi
mov    %r12,%rdx
mov    %r13,%rcx
xor    %eax,%eax
push   %r10
push   %rbp
call   1030 <ldavasip_@plt>
add    $0x8,%rsp
mov    %rbx,%rdi
mov    %r14,%rsi
mov    %r15,%rdx
mov    %r12,%rcx
mov    %r13,%r8
lea    0x2eda(%rip),%r9
xor    %eax,%eax
lea    0x2ea9(%rip),%rbx
push   %rbx
push   %rbp
lea    0x2ec0(%rip),%rbp
push   %rbp
call   1040 <ecorltn_@plt>
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@ecorltn_p__.cvas = internal global double 0.000000e+00
@ecorltn_p__.beta1 = internal global double 0.000000e+00
@ecorltn_p__.beta2 = internal global double 0.000000e+00
@ecorltn_p__.a = internal global double 0.000000e+00
@ecorltn_p__.b = internal global double 0.000000e+00
@ecorltn_p__.d__ = internal global double 0.000000e+00
@ecorltn_p__.gamma = internal global double 0.000000e+00
@ecorltn_p__.x = internal global double 0.000000e+00
define double @ecorltn_p__(double* %0) {
%2 = alloca double*
%3 = alloca double
store double* %0, double** %2
%4 = call i32 (double*, double*, double*, double*, double*, double*, double*, double*, ...) bitcast (i32 (...)* @ldavasip_ to i32 (double*, double*, double*, double*, double*, double*, double*, double*, ...)*)(double* @ecorltn_p__.a, double* @ecorltn_p__.b, double* @ecorltn_p__.cvas, double* @ecorltn_p__.d__, double* @ecorltn_p__.x, double* @ecorltn_p__.gamma, double* @ecorltn_p__.beta1, double* @ecorltn_p__.beta2)
%5 = load double*, double** %2
%6 = call double (double*, double*, double*, double*, double*, double*, double*, double*, double*, ...) bitcast (double (...)* @ecorltn_ to double (double*, double*, double*, double*, double*, double*, double*, double*, double*, ...)*)(double* %5, double* @ecorltn_p__.a, double* @ecorltn_p__.b, double* @ecorltn_p__.cvas, double* @ecorltn_p__.d__, double* @ecorltn_p__.x, double* @ecorltn_p__.gamma, double* @ecorltn_p__.beta1, double* @ecorltn_p__.beta2)
store double %6, double* %3
%7 = load double, double* %3
ret double %7
}

LLVM IR (-O2):
@ecorltn_p__.cvas = internal global double 0.000000e+00
@ecorltn_p__.beta1 = internal global double 0.000000e+00
@ecorltn_p__.beta2 = internal global double 0.000000e+00
@ecorltn_p__.a = internal global double 0.000000e+00
@ecorltn_p__.b = internal global double 0.000000e+00
@ecorltn_p__.d__ = internal global double 0.000000e+00
@ecorltn_p__.gamma = internal global double 0.000000e+00
@ecorltn_p__.x = internal global double 0.000000e+00
define double @ecorltn_p__(double* %0) {
%2 = 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* @ecorltn_p__.a, double* @ecorltn_p__.b, double* @ecorltn_p__.cvas, double* @ecorltn_p__.d__, double* @ecorltn_p__.x, double* @ecorltn_p__.gamma, double* @ecorltn_p__.beta1, double* @ecorltn_p__.beta2)
%3 = tail call double (double*, double*, double*, double*, double*, double*, double*, double*, double*, ...) bitcast (double (...)* @ecorltn_ to double (double*, double*, double*, double*, double*, double*, double*, double*, double*, ...)*)(double* %0, double* @ecorltn_p__.a, double* @ecorltn_p__.b, double* @ecorltn_p__.cvas, double* @ecorltn_p__.d__, double* @ecorltn_p__.x, double* @ecorltn_p__.gamma, double* @ecorltn_p__.beta1, double* @ecorltn_p__.beta2)
ret double %3
}