void fk524e(ra, dec, epoch) double *ra;
double *dec;
double epoch;
{
  double rapm;
  double decpm;
  rapm = (double)0.0;
  decpm = (double)0.0;
  fk524m(ra, dec, &rapm, &decpm);
  *ra = *ra + (rapm * (epoch - 1950.0));
  *dec = *dec + (decpm * (epoch - 1950.0));
  return;
}


x86 assembly (clang, -O0):
<fk524e>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x20(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
lea    -0x20(%rbp),%rdx
lea    -0x28(%rbp),%rcx
mov    $0x0,%al
call   1030 <fk524m@plt>
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm1
movsd  -0x20(%rbp),%xmm0
movsd  -0x18(%rbp),%xmm2
movsd  0xe9a(%rip),%xmm3
subsd  %xmm3,%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x10(%rbp),%rax
movsd  (%rax),%xmm1
movsd  -0x28(%rbp),%xmm0
movsd  -0x18(%rbp),%xmm2
movsd  0xe6c(%rip),%xmm3
subsd  %xmm3,%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x10(%rbp),%rax
movsd  %xmm0,(%rax)
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<fk524e>:
push   %r14
push   %rbx
sub    $0x18,%rsp
movsd  %xmm0,0x10(%rsp)
mov    %rsi,%r14
mov    %rdi,%rbx
movq   $0x0,0x8(%rsp)
movq   $0x0,(%rsp)
lea    0x8(%rsp),%rdx
mov    %rsp,%rcx
xor    %eax,%eax
call   1030 <fk524m@plt>
movsd  0x10(%rsp),%xmm1
addsd  0xeaf(%rip),%xmm1
movsd  0x8(%rsp),%xmm0
mulsd  %xmm1,%xmm0
addsd  (%rbx),%xmm0
movsd  %xmm0,(%rbx)
mulsd  (%rsp),%xmm1
addsd  (%r14),%xmm1
movsd  %xmm1,(%r14)
add    $0x18,%rsp
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define void @fk524e(double* %0, double* %1, double %2) {
%4 = alloca double*
%5 = alloca double*
%6 = alloca double
%7 = alloca double
%8 = alloca double
store double* %0, double** %4
store double* %1, double** %5
store double %2, double* %6
store double 0.000000e+00, double* %7
store double 0.000000e+00, double* %8
%9 = load double*, double** %4
%10 = load double*, double** %5
%11 = call i32 (double*, double*, double*, double*, ...) bitcast (i32 (...)* @fk524m to i32 (double*, double*, double*, double*, ...)*)(double* %9, double* %10, double* %7, double* %8)
%12 = load double*, double** %4
%13 = load double, double* %12
%14 = load double, double* %7
%15 = load double, double* %6
%16 = fsub double %15, 1.950000e+03
%17 = call double @llvm.fmuladd.f64(double %14, double %16, double %13)
%18 = load double*, double** %4
store double %17, double* %18
%19 = load double*, double** %5
%20 = load double, double* %19
%21 = load double, double* %8
%22 = load double, double* %6
%23 = fsub double %22, 1.950000e+03
%24 = call double @llvm.fmuladd.f64(double %21, double %23, double %20)
%25 = load double*, double** %5
store double %24, double* %25
ret void
}

LLVM IR (-O2):
define void @fk524e(double* %0, double* %1, double %2) {
%4 = alloca double
%5 = alloca double
%6 = bitcast double* %4 to i8*
%7 = bitcast double* %5 to i8*
store double 0.000000e+00, double* %4
store double 0.000000e+00, double* %5
%8 = call i32 (double*, double*, double*, double*, ...) bitcast (i32 (...)* @fk524m to i32 (double*, double*, double*, double*, ...)*)(double* %0, double* %1, double* %4, double* %5)
%9 = load double, double* %0
%10 = load double, double* %4
%11 = fadd double %2, -1.950000e+03
%12 = call double @llvm.fmuladd.f64(double %10, double %11, double %9)
store double %12, double* %0
%13 = load double, double* %1
%14 = load double, double* %5
%15 = call double @llvm.fmuladd.f64(double %14, double %11, double %13)
store double %15, double* %1
ret void
}