calcdate(jd, m, d, y, h, mi, sec) double jd;
int *m, *d, *y, *h, *mi;
double *sec;
{
  static int ret[4];
  long j = jd;
  double tmp, frac = jd - j;
  if (frac >= 0.5) {
    frac = frac - 0.5;
    j++;
  } else {
    frac = frac + 0.5;
  }
  ret[3] = (j + 1L) % 7L;
  j -= 1721119L;
  *y = (4L * j - 1L) / 146097L;
  j = 4L * j - 1L - 146097L * *y;
  *d = j / 4L;
  j = (4L * *d + 3L) / 1461L;
  *d = 4L * *d + 3L - 1461L * j;
  *d = (*d + 4L) / 4L;
  *m = (5L * *d - 3L) / 153L;
  *d = 5L * *d - 3 - 153L * *m;
  *d = (*d + 5L) / 5L;
  *y = 100L * *y + j;
  if (*m < 10)
    *m += 3;
  else {
    *m -= 9;
    *y += 1;
  }
  tmp = 3600.0 * (frac * 24.0);
  *h = (int)(tmp / 3600.0);
  tmp = tmp - *h * 3600.0;
  *mi = (int)(tmp / 60.0);
  *sec = tmp - *mi * 60.0;
}


x86 assembly (clang, -O0):
<calcdate>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
mov    %rsi,-0x20(%rbp)
mov    %rdx,-0x28(%rbp)
mov    %rcx,-0x30(%rbp)
mov    %r8,-0x38(%rbp)
mov    %r9,-0x40(%rbp)
cvttsd2si -0x10(%rbp),%rax
mov    %rax,-0x48(%rbp)
movsd  -0x10(%rbp),%xmm0
cvtsi2sdq -0x48(%rbp),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x58(%rbp),%xmm0
movsd  0xeb4(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     117d <calcdate+0x7d>
movsd  -0x58(%rbp),%xmm0
movsd  0xe9d(%rip),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x58(%rbp)
mov    -0x48(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x48(%rbp)
jmp    118f <calcdate+0x8f>
movsd  0xe7b(%rip),%xmm0
addsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
mov    -0x48(%rbp),%rax
add    $0x1,%rax
mov    $0x7,%ecx
cqto
idiv   %rcx
mov    %edx,%eax
mov    %eax,0x2e93(%rip)
mov    -0x48(%rbp),%rax
sub    $0x1a431f,%rax
mov    %rax,-0x48(%rbp)
mov    -0x48(%rbp),%rax
shl    $0x2,%rax
sub    $0x1,%rax
mov    $0x23ab1,%ecx
cqto
idiv   %rcx
mov    %eax,%ecx
mov    -0x28(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x48(%rbp),%rax
shl    $0x2,%rax
sub    $0x1,%rax
mov    -0x28(%rbp),%rcx
movslq (%rcx),%rcx
imul   $0x23ab1,%rcx,%rcx
sub    %rcx,%rax
mov    %rax,-0x48(%rbp)
mov    -0x48(%rbp),%rax
mov    $0x4,%ecx
cqto
idiv   %rcx
mov    %eax,%ecx
mov    -0x20(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x20(%rbp),%rax
movslq (%rax),%rax
shl    $0x2,%rax
add    $0x3,%rax
mov    $0x5b5,%ecx
cqto
idiv   %rcx
mov    %rax,-0x48(%rbp)
mov    -0x20(%rbp),%rax
movslq (%rax),%rax
shl    $0x2,%rax
add    $0x3,%rax
imul   $0x5b5,-0x48(%rbp),%rcx
sub    %rcx,%rax
mov    %eax,%ecx
mov    -0x20(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x20(%rbp),%rax
movslq (%rax),%rax
add    $0x4,%rax
mov    $0x4,%ecx
cqto
idiv   %rcx
mov    %eax,%ecx
mov    -0x20(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x20(%rbp),%rax
movslq (%rax),%rax
imul   $0x5,%rax,%rax
sub    $0x3,%rax
mov    $0x99,%ecx
cqto
idiv   %rcx
mov    %eax,%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x20(%rbp),%rax
movslq (%rax),%rax
imul   $0x5,%rax,%rax
sub    $0x3,%rax
mov    -0x18(%rbp),%rcx
movslq (%rcx),%rcx
imul   $0x99,%rcx,%rcx
sub    %rcx,%rax
mov    %eax,%ecx
mov    -0x20(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x20(%rbp),%rax
movslq (%rax),%rax
add    $0x5,%rax
mov    $0x5,%ecx
cqto
idiv   %rcx
mov    %eax,%ecx
mov    -0x20(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x28(%rbp),%rax
movslq (%rax),%rax
imul   $0x64,%rax,%rax
add    -0x48(%rbp),%rax
mov    %eax,%ecx
mov    -0x28(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x18(%rbp),%rax
cmpl   $0xa,(%rax)
jge    1302 <calcdate+0x202>
mov    -0x18(%rbp),%rax
mov    (%rax),%ecx
add    $0x3,%ecx
mov    %ecx,(%rax)
jmp    1318 <calcdate+0x218>
mov    -0x18(%rbp),%rax
mov    (%rax),%ecx
sub    $0x9,%ecx
mov    %ecx,(%rax)
mov    -0x28(%rbp),%rax
mov    (%rax),%ecx
add    $0x1,%ecx
mov    %ecx,(%rax)
movsd  0xcf8(%rip),%xmm1
mulsd  -0x58(%rbp),%xmm1
movsd  0xce3(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm0
movsd  0xccd(%rip),%xmm1
divsd  %xmm1,%xmm0
cvttsd2si %xmm0,%ecx
mov    -0x30(%rbp),%rax
mov    %ecx,(%rax)
movsd  -0x50(%rbp),%xmm1
mov    -0x30(%rbp),%rax
cvtsi2sdl (%rax),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  0xc93(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm0
movsd  0xc71(%rip),%xmm1
divsd  %xmm1,%xmm0
cvttsd2si %xmm0,%ecx
mov    -0x38(%rbp),%rax
mov    %ecx,(%rax)
movsd  -0x50(%rbp),%xmm1
mov    -0x38(%rbp),%rax
cvtsi2sdl (%rax),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  0xc37(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x40(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<calcdate>:
push   %r14
push   %rbx
mov    %rdx,%r10
cvttsd2si %xmm0,%rbx
cvtsi2sd %rbx,%xmm1
subsd  %xmm1,%xmm0
ucomisd 0xee4(%rip),%xmm0
sbb    $0xffffffffffffffff,%rbx
lea    -0x690c7d(,%rbx,4),%rax
ff
movabs $0x396b06bcc8f862ed,%rdx
06 6b 39
imul   %rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0xf,%rdx
add    %rax,%rdx
movslq %edx,%rax
imul   $0xfffffffffffdc54f,%rax,%rax
lea    (%rax,%rbx,4),%r11
add    $0xffffffffff96f383,%r11
lea    (%rax,%rbx,4),%rax
add    $0xffffffffff96f386,%rax
test   %r11,%r11
cmovns %r11,%rax
mov    %edx,(%r10)
shr    $0x2,%rax
movslq %eax,%rbx
lea    0x3(,%rbx,4),%r11
movabs $0xb36d8397914268c9,%rdx
83 6d b3
mov    %r11,%rax
imul   %rdx
lea    (%rdx,%rbx,4),%r14
add    $0x3,%r14
mov    %r14,%rax
shr    $0x3f,%rax
shr    $0xa,%r14
add    %eax,%r14d
imul   $0xfffffa4b,%r14d,%eax
add    %eax,%r11d
movslq %r11d,%rbx
lea    0x4(%rbx),%rax
add    $0x7,%rbx
test   %rax,%rax
cmovns %rax,%rbx
sar    $0x2,%rbx
lea    (%rbx,%rbx,4),%rax
add    $0xfffffffffffffffd,%rax
movabs $0x358ae0358ae0358b,%rdx
e0 8a 35
imul   %rdx
mov    %ebx,(%rsi)
mov    %rdx,%rax
shr    $0x3f,%rax
shr    $0x5,%rdx
add    %eax,%edx
mov    %edx,(%rdi)
mov    (%rsi),%eax
lea    (%rax,%rax,4),%eax
imul   $0xffffff67,%edx,%edx
add    %edx,%eax
add    $0xfffffffd,%eax
cltq
add    $0x5,%rax
movabs $0x6666666666666667,%rdx
66 66 66
imul   %rdx
mov    %rdx,%rax
shr    $0x3f,%rax
shr    %rdx
add    %eax,%edx
mov    %edx,(%rsi)
imul   $0x64,(%r10),%eax
add    %r14d,%eax
mov    %eax,(%r10)
mov    (%rdi),%eax
cmp    $0x9,%eax
jg     1230 <calcdate+0x130>
add    $0x3,%eax
mov    %eax,(%rdi)
jmp    1239 <calcdate+0x139>
add    $0xfffffff7,%eax
mov    %eax,(%rdi)
addl   $0x1,(%r10)
xor    %eax,%eax
ucomisd 0xdbd(%rip),%xmm0
setb   %al
lea    0xdd3(%rip),%rdx
addsd  (%rdx,%rax,8),%xmm0
mulsd  0xdae(%rip),%xmm0
movsd  0xdae(%rip),%xmm1
mulsd  %xmm1,%xmm0
movapd %xmm0,%xmm2
divsd  %xmm1,%xmm2
cvttsd2si %xmm2,%eax
mov    %eax,(%rcx)
cvttpd2dq %xmm2,%xmm2
cvtdq2pd %xmm2,%xmm2
mulsd  %xmm1,%xmm2
subsd  %xmm2,%xmm0
movsd  0xd8c(%rip),%xmm1
movapd %xmm0,%xmm2
divsd  %xmm1,%xmm2
cvttsd2si %xmm2,%eax
cvttpd2dq %xmm2,%xmm2
cvtdq2pd %xmm2,%xmm2
mov    %eax,(%r8)
mulsd  %xmm1,%xmm2
subsd  %xmm2,%xmm0
movsd  %xmm0,(%r9)
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
@calcdate.ret = internal global [4 x i32] zeroinitializer
define i32 @calcdate(double %0, i32* %1, i32* %2, i32* %3, i32* %4, i32* %5, double* %6) {
%8 = alloca i32
%9 = alloca double
%10 = alloca i32*
%11 = alloca i32*
%12 = alloca i32*
%13 = alloca i32*
%14 = alloca i32*
%15 = alloca double*
%16 = alloca i64
%17 = alloca double
%18 = alloca double
store double %0, double* %9
store i32* %1, i32** %10
store i32* %2, i32** %11
store i32* %3, i32** %12
store i32* %4, i32** %13
store i32* %5, i32** %14
store double* %6, double** %15
%19 = load double, double* %9
%20 = fptosi double %19 to i64
store i64 %20, i64* %16
%21 = load double, double* %9
%22 = load i64, i64* %16
%23 = sitofp i64 %22 to double
%24 = fsub double %21, %23
store double %24, double* %18
%25 = load double, double* %18
%26 = fcmp oge double %25, 5.000000e-01
br i1 %26, label %27, label %32
27: ; preds = %7
%28 = load double, double* %18
%29 = fsub double %28, 5.000000e-01
store double %29, double* %18
%30 = load i64, i64* %16
%31 = add nsw i64 %30, 1
store i64 %31, i64* %16
br label %35
32: ; preds = %7
%33 = load double, double* %18
%34 = fadd double %33, 5.000000e-01
store double %34, double* %18
br label %35
35: ; preds = %32, %27
%36 = load i64, i64* %16
%37 = add nsw i64 %36, 1
%38 = srem i64 %37, 7
%39 = trunc i64 %38 to i32
store i32 %39, i32* getelementptr inbounds ([4 x i32], [4 x i32]* @calcdate.ret, i64 0, i64 3)
%40 = load i64, i64* %16
%41 = sub nsw i64 %40, 1721119
store i64 %41, i64* %16
%42 = load i64, i64* %16
%43 = mul nsw i64 4, %42
%44 = sub nsw i64 %43, 1
%45 = sdiv i64 %44, 146097
%46 = trunc i64 %45 to i32
%47 = load i32*, i32** %12
store i32 %46, i32* %47
%48 = load i64, i64* %16
%49 = mul nsw i64 4, %48
%50 = sub nsw i64 %49, 1
%51 = load i32*, i32** %12
%52 = load i32, i32* %51
%53 = sext i32 %52 to i64
%54 = mul nsw i64 146097, %53
%55 = sub nsw i64 %50, %54
store i64 %55, i64* %16
%56 = load i64, i64* %16
%57 = sdiv i64 %56, 4
%58 = trunc i64 %57 to i32
%59 = load i32*, i32** %11
store i32 %58, i32* %59
%60 = load i32*, i32** %11
%61 = load i32, i32* %60
%62 = sext i32 %61 to i64
%63 = mul nsw i64 4, %62
%64 = add nsw i64 %63, 3
%65 = sdiv i64 %64, 1461
store i64 %65, i64* %16
%66 = load i32*, i32** %11
%67 = load i32, i32* %66
%68 = sext i32 %67 to i64
%69 = mul nsw i64 4, %68
%70 = add nsw i64 %69, 3
%71 = load i64, i64* %16
%72 = mul nsw i64 1461, %71
%73 = sub nsw i64 %70, %72
%74 = trunc i64 %73 to i32
%75 = load i32*, i32** %11
store i32 %74, i32* %75
%76 = load i32*, i32** %11
%77 = load i32, i32* %76
%78 = sext i32 %77 to i64
%79 = add nsw i64 %78, 4
%80 = sdiv i64 %79, 4
%81 = trunc i64 %80 to i32
%82 = load i32*, i32** %11
store i32 %81, i32* %82
%83 = load i32*, i32** %11
%84 = load i32, i32* %83
%85 = sext i32 %84 to i64
%86 = mul nsw i64 5, %85
%87 = sub nsw i64 %86, 3
%88 = sdiv i64 %87, 153
%89 = trunc i64 %88 to i32
%90 = load i32*, i32** %10
store i32 %89, i32* %90
%91 = load i32*, i32** %11
%92 = load i32, i32* %91
%93 = sext i32 %92 to i64
%94 = mul nsw i64 5, %93
%95 = sub nsw i64 %94, 3
%96 = load i32*, i32** %10
%97 = load i32, i32* %96
%98 = sext i32 %97 to i64
%99 = mul nsw i64 153, %98
%100 = sub nsw i64 %95, %99
%101 = trunc i64 %100 to i32
%102 = load i32*, i32** %11
store i32 %101, i32* %102
%103 = load i32*, i32** %11
%104 = load i32, i32* %103
%105 = sext i32 %104 to i64
%106 = add nsw i64 %105, 5
%107 = sdiv i64 %106, 5
%108 = trunc i64 %107 to i32
%109 = load i32*, i32** %11
store i32 %108, i32* %109
%110 = load i32*, i32** %12
%111 = load i32, i32* %110
%112 = sext i32 %111 to i64
%113 = mul nsw i64 100, %112
%114 = load i64, i64* %16
%115 = add nsw i64 %113, %114
%116 = trunc i64 %115 to i32
%117 = load i32*, i32** %12
store i32 %116, i32* %117
%118 = load i32*, i32** %10
%119 = load i32, i32* %118
%120 = icmp slt i32 %119, 10
br i1 %120, label %121, label %125
121: ; preds = %35
%122 = load i32*, i32** %10
%123 = load i32, i32* %122
%124 = add nsw i32 %123, 3
store i32 %124, i32* %122
br label %132
125: ; preds = %35
%126 = load i32*, i32** %10
%127 = load i32, i32* %126
%128 = sub nsw i32 %127, 9
store i32 %128, i32* %126
%129 = load i32*, i32** %12
%130 = load i32, i32* %129
%131 = add nsw i32 %130, 1
store i32 %131, i32* %129
br label %132
132: ; preds = %125, %121
%133 = load double, double* %18
%134 = fmul double %133, 2.400000e+01
%135 = fmul double 3.600000e+03, %134
store double %135, double* %17
%136 = load double, double* %17
%137 = fdiv double %136, 3.600000e+03
%138 = fptosi double %137 to i32
%139 = load i32*, i32** %13
store i32 %138, i32* %139
%140 = load double, double* %17
%141 = load i32*, i32** %13
%142 = load i32, i32* %141
%143 = sitofp i32 %142 to double
%144 = fneg double %143
%145 = call double @llvm.fmuladd.f64(double %144, double 3.600000e+03, double %140)
store double %145, double* %17
%146 = load double, double* %17
%147 = fdiv double %146, 6.000000e+01
%148 = fptosi double %147 to i32
%149 = load i32*, i32** %14
store i32 %148, i32* %149
%150 = load double, double* %17
%151 = load i32*, i32** %14
%152 = load i32, i32* %151
%153 = sitofp i32 %152 to double
%154 = fneg double %153
%155 = call double @llvm.fmuladd.f64(double %154, double 6.000000e+01, double %150)
%156 = load double*, double** %15
store double %155, double* %156
%157 = load i32, i32* %8
ret i32 %157
}

LLVM IR (-O2):
define i32 @calcdate(double %0, i32* nocapture %1, i32* nocapture %2, i32* nocapture %3, i32* nocapture writeonly %4, i32* nocapture writeonly %5, double* nocapture writeonly %6) {
%8 = fptosi double %0 to i64
%9 = sitofp i64 %8 to double
%10 = fsub double %0, %9
%11 = fcmp ult double %10, 5.000000e-01
%12 = xor i1 %11, true
%13 = zext i1 %12 to i64
%14 = add nsw i64 %13, %8
%15 = shl i64 %14, 2
%16 = add i64 %15, -6884477
%17 = sdiv i64 %16, 146097
%18 = trunc i64 %17 to i32
store i32 %18, i32* %3
%19 = shl i64 %17, 32
%20 = ashr exact i64 %19, 32
%21 = mul nsw i64 %20, -146097
%22 = add i64 %21, %16
%23 = sdiv i64 %22, 4
%24 = shl i64 %23, 32
%25 = ashr exact i64 %24, 30
%26 = or i64 %25, 3
%27 = sdiv i64 %26, 1461
%28 = mul nsw i64 %27, -1461
%29 = add nsw i64 %28, %26
%30 = shl i64 %29, 32
%31 = ashr exact i64 %30, 32
%32 = add nsw i64 %31, 4
%33 = sdiv i64 %32, 4
%34 = trunc i64 %33 to i32
store i32 %34, i32* %2
%35 = mul nsw i64 %33, 5
%36 = add nsw i64 %35, -3
%37 = sdiv i64 %36, 153
%38 = trunc i64 %37 to i32
store i32 %38, i32* %1
%39 = load i32, i32* %2
%40 = zext i32 %39 to i64
%41 = mul nuw nsw i64 %40, 5
%42 = mul nsw i64 %37, -153
%43 = add nsw i64 %42, 4294967293
%44 = add nuw nsw i64 %43, %41
%45 = shl i64 %44, 32
%46 = ashr exact i64 %45, 32
%47 = add nsw i64 %46, 5
%48 = sdiv i64 %47, 5
%49 = trunc i64 %48 to i32
store i32 %49, i32* %2
%50 = load i32, i32* %3
%51 = zext i32 %50 to i64
%52 = mul nuw nsw i64 %51, 100
%53 = add nsw i64 %52, %27
%54 = trunc i64 %53 to i32
store i32 %54, i32* %3
%55 = load i32, i32* %1
%56 = icmp slt i32 %55, 10
br i1 %56, label %57, label %59
57: ; preds = %7
%58 = add nsw i32 %55, 3
store i32 %58, i32* %1
br label %63
59: ; preds = %7
%60 = add nsw i32 %55, -9
store i32 %60, i32* %1
%61 = load i32, i32* %3
%62 = add nsw i32 %61, 1
store i32 %62, i32* %3
br label %63
63: ; preds = %59, %57
%64 = select i1 %11, double 5.000000e-01, double -5.000000e-01
%65 = fadd double %10, %64
%66 = fmul double %65, 2.400000e+01
%67 = fmul double %66, 3.600000e+03
%68 = fdiv double %67, 3.600000e+03
%69 = fptosi double %68 to i32
store i32 %69, i32* %4
%70 = sitofp i32 %69 to double
%71 = fneg double %70
%72 = tail call double @llvm.fmuladd.f64(double %71, double 3.600000e+03, double %67)
%73 = fdiv double %72, 6.000000e+01
%74 = fptosi double %73 to i32
store i32 %74, i32* %5
%75 = sitofp i32 %74 to double
%76 = fneg double %75
%77 = tail call double @llvm.fmuladd.f64(double %76, double 6.000000e+01, double %72)
store double %77, double* %6
ret i32 undef
}