double greg2jul(int mon, int day, int year, int h, int mi, double se) {
  long m = mon, d = day, y = year;
  long c, ya, j;
  double seconds = h * 3600.0 + mi * 60 + se;
  double current;
  if (!(mon + day + year + h + mi + se))
    return 0.0;
  if (m > 2)
    m -= 3;
  else {
    m += 9;
    --y;
  }
  c = y / 100L;
  ya = y - (100L * c);
  j = (146097L * c) / 4L + (1461L * ya) / 4L + (153L * m + 2L) / 5L + d +
      1721119L;
  if (seconds < 12 * 3600.0) {
    j--;
    seconds += 12.0 * 3600.0;
  } else {
    seconds = seconds - 12.0 * 3600.0;
  }
  current = (j + (seconds / 3600.0) / 24.0);
  return current;
}


x86 assembly (clang, -O0):
<greg2jul>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0xc(%rbp)
mov    %esi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    %r8d,-0x1c(%rbp)
movsd  %xmm0,-0x28(%rbp)
movslq -0xc(%rbp),%rax
mov    %rax,-0x30(%rbp)
movslq -0x10(%rbp),%rax
mov    %rax,-0x38(%rbp)
movslq -0x14(%rbp),%rax
mov    %rax,-0x40(%rbp)
cvtsi2sdl -0x18(%rbp),%xmm0
imul   $0x3c,-0x1c(%rbp),%eax
cvtsi2sd %eax,%xmm1
movsd  0xeba(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
addsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
mov    -0xc(%rbp),%eax
add    -0x10(%rbp),%eax
add    -0x14(%rbp),%eax
add    -0x18(%rbp),%eax
add    -0x1c(%rbp),%eax
cvtsi2sd %eax,%xmm0
addsd  -0x28(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1190 <greg2jul+0x90>
jp     1190 <greg2jul+0x90>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    12cc <greg2jul+0x1cc>
cmpq   $0x2,-0x30(%rbp)
jle    11ac <greg2jul+0xac>
mov    -0x30(%rbp),%rax
sub    $0x3,%rax
mov    %rax,-0x30(%rbp)
jmp    11c4 <greg2jul+0xc4>
mov    -0x30(%rbp),%rax
add    $0x9,%rax
mov    %rax,-0x30(%rbp)
mov    -0x40(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x40(%rbp)
mov    -0x40(%rbp),%rax
mov    $0x64,%ecx
cqto
idiv   %rcx
mov    %rax,-0x48(%rbp)
mov    -0x40(%rbp),%rax
imul   $0x64,-0x48(%rbp),%rcx
sub    %rcx,%rax
mov    %rax,-0x50(%rbp)
imul   $0x23ab1,-0x48(%rbp),%rax
mov    $0x4,%ecx
cqto
idiv   %rcx
mov    %rax,-0x78(%rbp)
imul   $0x5b5,-0x50(%rbp),%rax
mov    $0x4,%ecx
cqto
idiv   %rcx
mov    %rax,%rcx
mov    -0x78(%rbp),%rax
add    %rcx,%rax
mov    %rax,-0x70(%rbp)
imul   $0x99,-0x30(%rbp),%rax
add    $0x2,%rax
mov    $0x5,%ecx
cqto
idiv   %rcx
mov    %rax,%rcx
mov    -0x70(%rbp),%rax
add    %rcx,%rax
add    -0x38(%rbp),%rax
add    $0x1a431f,%rax
mov    %rax,-0x58(%rbp)
movsd  0xdb6(%rip),%xmm0
ucomisd -0x60(%rbp),%xmm0
jbe    1280 <greg2jul+0x180>
mov    -0x58(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x58(%rbp)
movsd  0xd97(%rip),%xmm0
addsd  -0x60(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
jmp    1296 <greg2jul+0x196>
movsd  -0x60(%rbp),%xmm0
movsd  0xd7b(%rip),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
cvtsi2sdq -0x58(%rbp),%xmm0
movsd  -0x60(%rbp),%xmm1
movsd  0xd57(%rip),%xmm2
divsd  %xmm2,%xmm1
movsd  0xd5b(%rip),%xmm2
divsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x68(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<greg2jul>:
movapd %xmm0,%xmm1
lea    (%rsi,%rdi,1),%eax
add    %edx,%eax
add    %ecx,%eax
add    %r8d,%eax
cvtsi2sd %eax,%xmm2
addsd  %xmm0,%xmm2
xorpd  %xmm0,%xmm0
ucomisd %xmm0,%xmm2
jne    1126 <greg2jul+0x26>
jnp    122d <greg2jul+0x12d>
xorps  %xmm0,%xmm0
cvtsi2sd %ecx,%xmm0
imul   $0x3c,%r8d,%eax
xorps  %xmm2,%xmm2
cvtsi2sd %eax,%xmm2
mulsd  0xec0(%rip),%xmm0
addsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movslq %edi,%rax
movslq %edx,%rcx
lea    0x9(%rax),%r9
lea    -0x3(%rax),%r8
xor    %edx,%edx
cmp    $0x3,%eax
setl   %dl
cmovge %r8,%r9
sub    %rdx,%rcx
movabs $0xa3d70a3d70a3d70b,%rdx
0a d7 a3
mov    %rcx,%rax
imul   %rdx
add    %rcx,%rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x6,%rdx
add    %rax,%rdx
imul   $0xffffffffffffff9c,%rdx,%rax
add    %rcx,%rax
imul   $0x23ab1,%rdx,%rdx
lea    0x3(%rdx),%rcx
test   %rdx,%rdx
cmovns %rdx,%rcx
sar    $0x2,%rcx
imul   $0x5b5,%rax,%rax
lea    0x3(%rax),%rdi
test   %rax,%rax
cmovns %rax,%rdi
movslq %esi,%rsi
sar    $0x2,%rdi
imul   $0x99,%r9,%rax
add    $0x2,%rax
movabs $0x6666666666666667,%rdx
66 66 66
imul   %rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    %rdx
add    %rax,%rdx
movsd  0xe1f(%rip),%xmm1
xor    %eax,%eax
ucomisd %xmm0,%xmm1
seta   %al
add    %rsi,%rdx
add    %rcx,%rdx
add    %rdi,%rdx
sub    %rax,%rdx
add    $0x1a431f,%rdx
lea    0xe0c(%rip),%rcx
addsd  (%rcx,%rax,8),%xmm0
xorps  %xmm1,%xmm1
cvtsi2sd %rdx,%xmm1
divsd  0xddf(%rip),%xmm0
divsd  0xde7(%rip),%xmm0
addsd  %xmm1,%xmm0
ret

LLVM IR (-O0):
define double @greg2jul(i32 %0, i32 %1, i32 %2, i32 %3, i32 %4, double %5) {
%7 = alloca double
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca double
%14 = alloca i64
%15 = alloca i64
%16 = alloca i64
%17 = alloca i64
%18 = alloca i64
%19 = alloca i64
%20 = alloca double
%21 = alloca double
store i32 %0, i32* %8
store i32 %1, i32* %9
store i32 %2, i32* %10
store i32 %3, i32* %11
store i32 %4, i32* %12
store double %5, double* %13
%22 = load i32, i32* %8
%23 = sext i32 %22 to i64
store i64 %23, i64* %14
%24 = load i32, i32* %9
%25 = sext i32 %24 to i64
store i64 %25, i64* %15
%26 = load i32, i32* %10
%27 = sext i32 %26 to i64
store i64 %27, i64* %16
%28 = load i32, i32* %11
%29 = sitofp i32 %28 to double
%30 = load i32, i32* %12
%31 = mul nsw i32 %30, 60
%32 = sitofp i32 %31 to double
%33 = call double @llvm.fmuladd.f64(double %29, double 3.600000e+03, double %32)
%34 = load double, double* %13
%35 = fadd double %33, %34
store double %35, double* %20
%36 = load i32, i32* %8
%37 = load i32, i32* %9
%38 = add nsw i32 %36, %37
%39 = load i32, i32* %10
%40 = add nsw i32 %38, %39
%41 = load i32, i32* %11
%42 = add nsw i32 %40, %41
%43 = load i32, i32* %12
%44 = add nsw i32 %42, %43
%45 = sitofp i32 %44 to double
%46 = load double, double* %13
%47 = fadd double %45, %46
%48 = fcmp une double %47, 0.000000e+00
br i1 %48, label %50, label %49
49: ; preds = %6
store double 0.000000e+00, double* %7
br label %101
50: ; preds = %6
%51 = load i64, i64* %14
%52 = icmp sgt i64 %51, 2
br i1 %52, label %53, label %56
53: ; preds = %50
%54 = load i64, i64* %14
%55 = sub nsw i64 %54, 3
store i64 %55, i64* %14
br label %61
56: ; preds = %50
%57 = load i64, i64* %14
%58 = add nsw i64 %57, 9
store i64 %58, i64* %14
%59 = load i64, i64* %16
%60 = add nsw i64 %59, -1
store i64 %60, i64* %16
br label %61
61: ; preds = %56, %53
%62 = load i64, i64* %16
%63 = sdiv i64 %62, 100
store i64 %63, i64* %17
%64 = load i64, i64* %16
%65 = load i64, i64* %17
%66 = mul nsw i64 100, %65
%67 = sub nsw i64 %64, %66
store i64 %67, i64* %18
%68 = load i64, i64* %17
%69 = mul nsw i64 146097, %68
%70 = sdiv i64 %69, 4
%71 = load i64, i64* %18
%72 = mul nsw i64 1461, %71
%73 = sdiv i64 %72, 4
%74 = add nsw i64 %70, %73
%75 = load i64, i64* %14
%76 = mul nsw i64 153, %75
%77 = add nsw i64 %76, 2
%78 = sdiv i64 %77, 5
%79 = add nsw i64 %74, %78
%80 = load i64, i64* %15
%81 = add nsw i64 %79, %80
%82 = add nsw i64 %81, 1721119
store i64 %82, i64* %19
%83 = load double, double* %20
%84 = fcmp olt double %83, 4.320000e+04
br i1 %84, label %85, label %90
85: ; preds = %61
%86 = load i64, i64* %19
%87 = add nsw i64 %86, -1
store i64 %87, i64* %19
%88 = load double, double* %20
%89 = fadd double %88, 4.320000e+04
store double %89, double* %20
br label %93
90: ; preds = %61
%91 = load double, double* %20
%92 = fsub double %91, 4.320000e+04
store double %92, double* %20
br label %93
93: ; preds = %90, %85
%94 = load i64, i64* %19
%95 = sitofp i64 %94 to double
%96 = load double, double* %20
%97 = fdiv double %96, 3.600000e+03
%98 = fdiv double %97, 2.400000e+01
%99 = fadd double %95, %98
store double %99, double* %21
%100 = load double, double* %21
store double %100, double* %7
br label %101
101: ; preds = %93, %49
%102 = load double, double* %7
ret double %102
}

LLVM IR (-O2):
define double @greg2jul(i32 %0, i32 %1, i32 %2, i32 %3, i32 %4, double %5) {
%7 = sitofp i32 %3 to double
%8 = mul nsw i32 %4, 60
%9 = sitofp i32 %8 to double
%10 = tail call double @llvm.fmuladd.f64(double %7, double 3.600000e+03, double %9)
%11 = fadd double %10, %5
%12 = add nsw i32 %1, %0
%13 = add nsw i32 %12, %2
%14 = add nsw i32 %13, %3
%15 = add nsw i32 %14, %4
%16 = sitofp i32 %15 to double
%17 = fadd double %16, %5
%18 = fcmp une double %17, 0.000000e+00
br i1 %18, label %19, label %51
19: ; preds = %6
%20 = sext i32 %0 to i64
%21 = sext i32 %2 to i64
%22 = sext i32 %1 to i64
%23 = icmp sgt i32 %0, 2
%24 = xor i1 %23, true
%25 = sext i1 %24 to i64
%26 = add nsw i64 %21, %25
%27 = select i1 %23, i64 -3, i64 9
%28 = add nsw i64 %27, %20
%29 = sdiv i64 %26, 100
%30 = mul nsw i64 %29, -100
%31 = add nsw i64 %30, %26
%32 = mul nsw i64 %29, 146097
%33 = sdiv i64 %32, 4
%34 = mul nsw i64 %31, 1461
%35 = sdiv i64 %34, 4
%36 = mul nsw i64 %28, 153
%37 = add nsw i64 %36, 2
%38 = sdiv i64 %37, 5
%39 = fcmp olt double %11, 4.320000e+04
%40 = select i1 %39, i64 1721118, i64 1721119
%41 = add nsw i64 %38, %22
%42 = add nsw i64 %41, %33
%43 = add nsw i64 %42, %35
%44 = add nsw i64 %43, %40
%45 = select i1 %39, double 4.320000e+04, double -4.320000e+04
%46 = fadd double %11, %45
%47 = sitofp i64 %44 to double
%48 = fdiv double %46, 3.600000e+03
%49 = fdiv double %48, 2.400000e+01
%50 = fadd double %49, %47
br label %51
51: ; preds = %6, %19
%52 = phi double [ %50, %19 ], [ 0.000000e+00, %6 ]
ret double %52
}