long grib_date_to_julian(long ddate) {
  long m1, y1, a, b, c, d, j1;
  long month, day, year;
  year = ddate / 10000;
  ddate %= 10000;
  month = ddate / 100;
  ddate %= 100;
  day = ddate;
  if (month > 2) {
    m1 = month - 3;
    y1 = year;
  } else {
    m1 = month + 9;
    y1 = year - 1;
  }
  a = 146097 * (y1 / 100) / 4;
  d = y1 % 100;
  b = 1461 * d / 4;
  c = (153 * m1 + 2) / 5 + day + 1721119;
  j1 = a + b + c;
  return (j1);
}


x86 assembly (clang, -O0):
<grib_date_to_julian>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rax
mov    $0x2710,%ecx
cqto
idiv   %rcx
mov    %rax,-0x58(%rbp)
mov    -0x8(%rbp),%rax
mov    $0x2710,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x8(%rbp)
mov    -0x8(%rbp),%rax
mov    $0x64,%ecx
cqto
idiv   %rcx
mov    %rax,-0x48(%rbp)
mov    -0x8(%rbp),%rax
mov    $0x64,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x8(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x50(%rbp)
cmpq   $0x2,-0x48(%rbp)
jle    117c <grib_date_to_julian+0x7c>
mov    -0x48(%rbp),%rax
sub    $0x3,%rax
mov    %rax,-0x10(%rbp)
mov    -0x58(%rbp),%rax
mov    %rax,-0x18(%rbp)
jmp    1194 <grib_date_to_julian+0x94>
mov    -0x48(%rbp),%rax
add    $0x9,%rax
mov    %rax,-0x10(%rbp)
mov    -0x58(%rbp),%rax
sub    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
mov    $0x64,%ecx
cqto
idiv   %rcx
imul   $0x23ab1,%rax,%rax
mov    $0x4,%ecx
cqto
idiv   %rcx
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rax
mov    $0x64,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x38(%rbp)
imul   $0x5b5,-0x38(%rbp),%rax
mov    $0x4,%ecx
cqto
idiv   %rcx
mov    %rax,-0x28(%rbp)
imul   $0x99,-0x10(%rbp),%rax
add    $0x2,%rax
mov    $0x5,%ecx
cqto
idiv   %rcx
add    -0x50(%rbp),%rax
add    $0x1a431f,%rax
mov    %rax,-0x30(%rbp)
mov    -0x20(%rbp),%rax
add    -0x28(%rbp),%rax
add    -0x30(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x40(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<grib_date_to_julian>:
movabs $0x346dc5d63886594b,%rcx
c5 6d 34
mov    %rdi,%rax
imul   %rcx
mov    %rdx,%rcx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0xb,%rcx
add    %rax,%rcx
imul   $0x2710,%rcx,%rax
sub    %rax,%rdi
movswl %di,%eax
imul   $0x147b,%eax,%eax
mov    %eax,%edx
sar    $0x13,%edx
shr    $0x1f,%eax
xor    %esi,%esi
cmp    $0x12c,%rdi
setl   %sil
lea    0xfffd(%rdx,%rax,1),%r9d
lea    0x9(%rdx,%rax,1),%r8d
cmovge %r9d,%r8d
sub    %rsi,%rcx
add    %edx,%eax
imul   $0x64,%eax,%eax
sub    %eax,%edi
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   $0x23ab1,%rdx,%rsi
lea    0x3(%rsi),%rax
test   %rsi,%rsi
cmovns %rsi,%rax
sar    $0x2,%rax
imul   $0x64,%edx,%edx
sub    %edx,%ecx
imul   $0x5b5,%ecx,%ecx
lea    0x3(%rcx),%edx
test   %ecx,%ecx
cmovns %ecx,%edx
sar    $0x2,%edx
movslq %edx,%rcx
imul   $0x99,%r8d,%edx
add    $0x2,%edx
movswl %dx,%edx
imul   $0x6667,%edx,%edx
mov    %edx,%esi
shr    $0x1f,%esi
sar    $0x11,%edx
add    %esi,%edx
add    %edi,%edx
movswq %dx,%rdx
add    %rax,%rcx
lea    (%rdx,%rcx,1),%rax
add    $0x1a431f,%rax
ret

LLVM IR (-O0):
define i64 @grib_date_to_julian(i64 %0) {
%2 = alloca i64
%3 = alloca i64
%4 = alloca i64
%5 = alloca i64
%6 = alloca i64
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
%11 = alloca i64
%12 = alloca i64
store i64 %0, i64* %2
%13 = load i64, i64* %2
%14 = sdiv i64 %13, 10000
store i64 %14, i64* %12
%15 = load i64, i64* %2
%16 = srem i64 %15, 10000
store i64 %16, i64* %2
%17 = load i64, i64* %2
%18 = sdiv i64 %17, 100
store i64 %18, i64* %10
%19 = load i64, i64* %2
%20 = srem i64 %19, 100
store i64 %20, i64* %2
%21 = load i64, i64* %2
store i64 %21, i64* %11
%22 = load i64, i64* %10
%23 = icmp sgt i64 %22, 2
br i1 %23, label %24, label %28
24: ; preds = %1
%25 = load i64, i64* %10
%26 = sub nsw i64 %25, 3
store i64 %26, i64* %3
%27 = load i64, i64* %12
store i64 %27, i64* %4
br label %33
28: ; preds = %1
%29 = load i64, i64* %10
%30 = add nsw i64 %29, 9
store i64 %30, i64* %3
%31 = load i64, i64* %12
%32 = sub nsw i64 %31, 1
store i64 %32, i64* %4
br label %33
33: ; preds = %28, %24
%34 = load i64, i64* %4
%35 = sdiv i64 %34, 100
%36 = mul nsw i64 146097, %35
%37 = sdiv i64 %36, 4
store i64 %37, i64* %5
%38 = load i64, i64* %4
%39 = srem i64 %38, 100
store i64 %39, i64* %8
%40 = load i64, i64* %8
%41 = mul nsw i64 1461, %40
%42 = sdiv i64 %41, 4
store i64 %42, i64* %6
%43 = load i64, i64* %3
%44 = mul nsw i64 153, %43
%45 = add nsw i64 %44, 2
%46 = sdiv i64 %45, 5
%47 = load i64, i64* %11
%48 = add nsw i64 %46, %47
%49 = add nsw i64 %48, 1721119
store i64 %49, i64* %7
%50 = load i64, i64* %5
%51 = load i64, i64* %6
%52 = add nsw i64 %50, %51
%53 = load i64, i64* %7
%54 = add nsw i64 %52, %53
store i64 %54, i64* %9
%55 = load i64, i64* %9
ret i64 %55
}

LLVM IR (-O2):
define i64 @grib_date_to_julian(i64 %0) {
%2 = sdiv i64 %0, 10000
%3 = srem i64 %0, 10000
%4 = trunc i64 %3 to i16
%5 = sdiv i16 %4, 100
%6 = icmp sgt i64 %3, 299
%7 = xor i1 %6, true
%8 = sext i1 %7 to i64
%9 = add nsw i64 %2, %8
%10 = select i1 %6, i16 -3, i16 9
%11 = add nsw i16 %10, %5
%12 = srem i16 %4, 100
%13 = sdiv i64 %9, 100
%14 = mul nsw i64 %13, 146097
%15 = sdiv i64 %14, 4
%16 = srem i64 %9, 100
%17 = trunc i64 %16 to i32
%18 = mul nsw i32 %17, 1461
%19 = sdiv i32 %18, 4
%20 = sext i32 %19 to i64
%21 = mul nsw i16 %11, 153
%22 = add nsw i16 %21, 2
%23 = sdiv i16 %22, 5
%24 = add nsw i16 %23, %12
%25 = sext i16 %24 to i64
%26 = add nsw i64 %15, 1721119
%27 = add nsw i64 %26, %20
%28 = add nsw i64 %27, %25
ret i64 %28
}