long int juliam_KP(filename)
char *filename;
{
  static long kmo[13] = {0,   0,   31,  59,  90,  120, 151,
                         181, 212, 243, 273, 304, 334};
  long leap = 1;
  long ky;
  long km;
  long kd;
  long temp;
  long l = 0;
  long kl;
  long ky4;
  long ky1;
  long ky0;
  long khour;
  long kmin;
  char temp_str[5];
  int pos;
  if (filename[0] == '.') {
    pos = 1;
  } else {
    pos = 0;
  }
  strncpy(temp_str, filename + 2 + pos, 4);
  temp_str[4] = 0;
  ky = atol(temp_str);
  strncpy(temp_str, filename + 6 + pos, 2);
  temp_str[2] = 0;
  km = atol(temp_str);
  strncpy(temp_str, filename + 8 + pos, 2);
  temp_str[2] = 0;
  kd = atol(temp_str);
  strncpy(temp_str, filename + 10 + pos, 2);
  temp_str[2] = 0;
  khour = atol(temp_str);
  strncpy(temp_str, filename + 12 + pos, 2);
  temp_str[2] = 0;
  kmin = atol(temp_str);
  if (km <= 0)
    km = 1;
  if (kd <= 0)
    kd = 1;
  temp = 365 * ky;
  kd = kmo[(short)km] + kd;
  ky4 = ky / 4;
  ky1 = ky / 100;
  ky0 = ky / 1000;
  kl = leap * (ky4 - ky1 + ky0);
  if (((ky4 * 4) == ky) && (((ky1 * 100) != ky) || ((ky0 * 1000) == ky)))
    l = leap;
  if ((l != 0) && (km < 3))
    kl = kl - leap;
  temp = temp + kd + kl;
  temp = temp * 24 + khour;
  temp = temp * 60 + kmin;
  return (temp);
}


x86 assembly (clang, -O0):
<juliam_KP>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
mov    %rdi,-0x8(%rbp)
movq   $0x1,-0x10(%rbp)
movq   $0x0,-0x38(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    115b <juliam_KP+0x3b>
movl   $0x1,-0x74(%rbp)
jmp    1162 <juliam_KP+0x42>
movl   $0x0,-0x74(%rbp)
lea    -0x6d(%rbp),%rdi
mov    -0x8(%rbp),%rsi
add    $0x2,%rsi
movslq -0x74(%rbp),%rax
add    %rax,%rsi
mov    $0x4,%edx
call   1030 <strncpy@plt>
movb   $0x0,-0x69(%rbp)
lea    -0x6d(%rbp),%rdi
mov    $0x0,%al
call   1040 <atol@plt>
cltq
mov    %rax,-0x18(%rbp)
lea    -0x6d(%rbp),%rdi
mov    -0x8(%rbp),%rsi
add    $0x6,%rsi
movslq -0x74(%rbp),%rax
add    %rax,%rsi
mov    $0x2,%edx
call   1030 <strncpy@plt>
movb   $0x0,-0x6b(%rbp)
lea    -0x6d(%rbp),%rdi
mov    $0x0,%al
call   1040 <atol@plt>
cltq
mov    %rax,-0x20(%rbp)
lea    -0x6d(%rbp),%rdi
mov    -0x8(%rbp),%rsi
add    $0x8,%rsi
movslq -0x74(%rbp),%rax
add    %rax,%rsi
mov    $0x2,%edx
call   1030 <strncpy@plt>
movb   $0x0,-0x6b(%rbp)
lea    -0x6d(%rbp),%rdi
mov    $0x0,%al
call   1040 <atol@plt>
cltq
mov    %rax,-0x28(%rbp)
lea    -0x6d(%rbp),%rdi
mov    -0x8(%rbp),%rsi
add    $0xa,%rsi
movslq -0x74(%rbp),%rax
add    %rax,%rsi
mov    $0x2,%edx
call   1030 <strncpy@plt>
movb   $0x0,-0x6b(%rbp)
lea    -0x6d(%rbp),%rdi
mov    $0x0,%al
call   1040 <atol@plt>
cltq
mov    %rax,-0x60(%rbp)
lea    -0x6d(%rbp),%rdi
mov    -0x8(%rbp),%rsi
add    $0xc,%rsi
movslq -0x74(%rbp),%rax
add    %rax,%rsi
mov    $0x2,%edx
call   1030 <strncpy@plt>
movb   $0x0,-0x6b(%rbp)
lea    -0x6d(%rbp),%rdi
mov    $0x0,%al
call   1040 <atol@plt>
cltq
mov    %rax,-0x68(%rbp)
cmpq   $0x0,-0x20(%rbp)
jg     126f <juliam_KP+0x14f>
movq   $0x1,-0x20(%rbp)
cmpq   $0x0,-0x28(%rbp)
jg     1282 <juliam_KP+0x162>
movq   $0x1,-0x28(%rbp)
imul   $0x16d,-0x18(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x20(%rbp),%rax
movswq %ax,%rcx
lea    0x2da3(%rip),%rax
mov    (%rax,%rcx,8),%rax
add    -0x28(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x18(%rbp),%rax
mov    $0x4,%ecx
cqto
idiv   %rcx
mov    %rax,-0x48(%rbp)
mov    -0x18(%rbp),%rax
mov    $0x64,%ecx
cqto
idiv   %rcx
mov    %rax,-0x50(%rbp)
mov    -0x18(%rbp),%rax
mov    $0x3e8,%ecx
cqto
idiv   %rcx
mov    %rax,-0x58(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x48(%rbp),%rcx
sub    -0x50(%rbp),%rcx
add    -0x58(%rbp),%rcx
imul   %rcx,%rax
mov    %rax,-0x40(%rbp)
mov    -0x48(%rbp),%rax
shl    $0x2,%rax
cmp    -0x18(%rbp),%rax
jne    1332 <juliam_KP+0x212>
imul   $0x64,-0x50(%rbp),%rax
cmp    -0x18(%rbp),%rax
jne    132a <juliam_KP+0x20a>
imul   $0x3e8,-0x58(%rbp),%rax
cmp    -0x18(%rbp),%rax
jne    1332 <juliam_KP+0x212>
mov    -0x10(%rbp),%rax
mov    %rax,-0x38(%rbp)
cmpq   $0x0,-0x38(%rbp)
je     1354 <juliam_KP+0x234>
cmpq   $0x3,-0x20(%rbp)
jge    1354 <juliam_KP+0x234>
mov    -0x40(%rbp),%rax
sub    -0x10(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x30(%rbp),%rax
add    -0x28(%rbp),%rax
add    -0x40(%rbp),%rax
mov    %rax,-0x30(%rbp)
imul   $0x18,-0x30(%rbp),%rax
add    -0x60(%rbp),%rax
mov    %rax,-0x30(%rbp)
imul   $0x3c,-0x30(%rbp),%rax
add    -0x68(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<juliam_KP>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %rdi,%rbx
xor    %r12d,%r12d
cmpb   $0x2e,(%rdi)
sete   %r12b
lea    (%rdi,%r12,1),%rsi
add    $0x2,%rsi
lea    0xf(%rsp),%r15
mov    $0x4,%edx
mov    %r15,%rdi
call   1030 <strncpy@plt>
movb   $0x0,0x13(%rsp)
mov    %r15,%rdi
xor    %eax,%eax
call   1040 <atol@plt>
movslq %eax,%rbp
lea    (%rbx,%r12,1),%rsi
add    $0x6,%rsi
mov    $0x2,%edx
mov    %r15,%rdi
call   1030 <strncpy@plt>
movb   $0x0,0x11(%rsp)
mov    %r15,%rdi
xor    %eax,%eax
call   1040 <atol@plt>
movslq %eax,%r13
lea    (%rbx,%r12,1),%rsi
add    $0x8,%rsi
mov    $0x2,%edx
mov    %r15,%rdi
call   1030 <strncpy@plt>
movb   $0x0,0x11(%rsp)
mov    %r15,%rdi
xor    %eax,%eax
call   1040 <atol@plt>
movslq %eax,%r14
lea    (%rbx,%r12,1),%rsi
add    $0xa,%rsi
mov    $0x2,%edx
mov    %r15,%rdi
call   1030 <strncpy@plt>
movb   $0x0,0x11(%rsp)
mov    %r15,%rdi
xor    %eax,%eax
call   1040 <atol@plt>
mov    %eax,0x14(%rsp)
lea    (%rbx,%r12,1),%rsi
add    $0xc,%rsi
mov    $0x2,%edx
mov    %r15,%rdi
call   1030 <strncpy@plt>
movb   $0x0,0x11(%rsp)
mov    %r15,%rdi
xor    %eax,%eax
call   1040 <atol@plt>
test   %r13,%r13
mov    $0x1,%ecx
cmovle %rcx,%r13
movswq %r13w,%rdx
lea    0xde8(%rip),%rsi
mov    (%rsi,%rdx,8),%r8
lea    0x3(%rbp),%esi
test   %ebp,%ebp
cmovns %ebp,%esi
sar    $0x2,%esi
movslq %esi,%rsi
imul   $0x51eb851f,%rbp,%rdi
mov    %rdi,%rbx
shr    $0x3f,%rbx
sar    $0x25,%rdi
add    %ebx,%edi
movslq %edi,%r10
xor    %edi,%edi
imul   $0x10624dd3,%rbp,%rbx
mov    %rbx,%rdx
shr    $0x3f,%rdx
sar    $0x26,%rbx
add    %edx,%ebx
movslq %ebx,%rbx
lea    0x0(,%rsi,4),%rdx
cmp    %rbp,%rdx
jne    1283 <juliam_KP+0x163>
imul   $0x64,%r10,%rdx
cmp    %rbp,%rdx
setne  %r9b
imul   $0x3e8,%rbx,%rdx
cmp    %rbp,%rdx
sete   %dil
or     %r9b,%dil
cmp    $0x3,%r13
setb   %dl
and    %dil,%dl
test   %r14,%r14
cmovg  %r14,%rcx
imul   $0x16d,%rbp,%rbp
movslq %eax,%rdi
movslq 0x14(%rsp),%rax
sub    %r10,%rbp
add    %rsi,%rbp
add    %rbx,%rbp
add    %rcx,%rbp
add    %r8,%rbp
movzbl %dl,%ecx
sub    %rcx,%rbp
lea    0x0(,%rbp,2),%rcx
add    %rbp,%rcx
lea    (%rax,%rcx,8),%rax
imul   $0x3c,%rax,%rax
add    %rdi,%rax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@juliam_KP.kmo = internal global [13 x i64] [i64 0, i64 0, i64 31, i64 59, i64 90, i64 120, i64 151, i64 181, i64 212, i64 243, i64 273, i64 304, i64 334]
define i64 @juliam_KP(i8* %0) {
%2 = alloca i8*
%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
%13 = alloca i64
%14 = alloca i64
%15 = alloca [5 x i8]
%16 = alloca i32
store i8* %0, i8** %2
store i64 1, i64* %3
store i64 0, i64* %8
%17 = load i8*, i8** %2
%18 = getelementptr inbounds i8, i8* %17, i64 0
%19 = load i8, i8* %18
%20 = sext i8 %19 to i32
%21 = icmp eq i32 %20, 46
br i1 %21, label %22, label %23
22: ; preds = %1
store i32 1, i32* %16
br label %24
23: ; preds = %1
store i32 0, i32* %16
br label %24
24: ; preds = %23, %22
%25 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 0
%26 = load i8*, i8** %2
%27 = getelementptr inbounds i8, i8* %26, i64 2
%28 = load i32, i32* %16
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds i8, i8* %27, i64 %29
%31 = call i8* @strncpy(i8* %25, i8* %30, i64 4)
%32 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 4
store i8 0, i8* %32
%33 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 0
%34 = call i32 (i8*, ...) bitcast (i32 (...)* @atol to i32 (i8*, ...)*)(i8* %33)
%35 = sext i32 %34 to i64
store i64 %35, i64* %4
%36 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 0
%37 = load i8*, i8** %2
%38 = getelementptr inbounds i8, i8* %37, i64 6
%39 = load i32, i32* %16
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds i8, i8* %38, i64 %40
%42 = call i8* @strncpy(i8* %36, i8* %41, i64 2)
%43 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 2
store i8 0, i8* %43
%44 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 0
%45 = call i32 (i8*, ...) bitcast (i32 (...)* @atol to i32 (i8*, ...)*)(i8* %44)
%46 = sext i32 %45 to i64
store i64 %46, i64* %5
%47 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 0
%48 = load i8*, i8** %2
%49 = getelementptr inbounds i8, i8* %48, i64 8
%50 = load i32, i32* %16
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds i8, i8* %49, i64 %51
%53 = call i8* @strncpy(i8* %47, i8* %52, i64 2)
%54 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 2
store i8 0, i8* %54
%55 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 0
%56 = call i32 (i8*, ...) bitcast (i32 (...)* @atol to i32 (i8*, ...)*)(i8* %55)
%57 = sext i32 %56 to i64
store i64 %57, i64* %6
%58 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 0
%59 = load i8*, i8** %2
%60 = getelementptr inbounds i8, i8* %59, i64 10
%61 = load i32, i32* %16
%62 = sext i32 %61 to i64
%63 = getelementptr inbounds i8, i8* %60, i64 %62
%64 = call i8* @strncpy(i8* %58, i8* %63, i64 2)
%65 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 2
store i8 0, i8* %65
%66 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 0
%67 = call i32 (i8*, ...) bitcast (i32 (...)* @atol to i32 (i8*, ...)*)(i8* %66)
%68 = sext i32 %67 to i64
store i64 %68, i64* %13
%69 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 0
%70 = load i8*, i8** %2
%71 = getelementptr inbounds i8, i8* %70, i64 12
%72 = load i32, i32* %16
%73 = sext i32 %72 to i64
%74 = getelementptr inbounds i8, i8* %71, i64 %73
%75 = call i8* @strncpy(i8* %69, i8* %74, i64 2)
%76 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 2
store i8 0, i8* %76
%77 = getelementptr inbounds [5 x i8], [5 x i8]* %15, i64 0, i64 0
%78 = call i32 (i8*, ...) bitcast (i32 (...)* @atol to i32 (i8*, ...)*)(i8* %77)
%79 = sext i32 %78 to i64
store i64 %79, i64* %14
%80 = load i64, i64* %5
%81 = icmp sle i64 %80, 0
br i1 %81, label %82, label %83
82: ; preds = %24
store i64 1, i64* %5
br label %83
83: ; preds = %82, %24
%84 = load i64, i64* %6
%85 = icmp sle i64 %84, 0
br i1 %85, label %86, label %87
86: ; preds = %83
store i64 1, i64* %6
br label %87
87: ; preds = %86, %83
%88 = load i64, i64* %4
%89 = mul nsw i64 365, %88
store i64 %89, i64* %7
%90 = load i64, i64* %5
%91 = trunc i64 %90 to i16
%92 = sext i16 %91 to i64
%93 = getelementptr inbounds [13 x i64], [13 x i64]* @juliam_KP.kmo, i64 0, i64 %92
%94 = load i64, i64* %93
%95 = load i64, i64* %6
%96 = add nsw i64 %94, %95
store i64 %96, i64* %6
%97 = load i64, i64* %4
%98 = sdiv i64 %97, 4
store i64 %98, i64* %10
%99 = load i64, i64* %4
%100 = sdiv i64 %99, 100
store i64 %100, i64* %11
%101 = load i64, i64* %4
%102 = sdiv i64 %101, 1000
store i64 %102, i64* %12
%103 = load i64, i64* %3
%104 = load i64, i64* %10
%105 = load i64, i64* %11
%106 = sub nsw i64 %104, %105
%107 = load i64, i64* %12
%108 = add nsw i64 %106, %107
%109 = mul nsw i64 %103, %108
store i64 %109, i64* %9
%110 = load i64, i64* %10
%111 = mul nsw i64 %110, 4
%112 = load i64, i64* %4
%113 = icmp eq i64 %111, %112
br i1 %113, label %114, label %126
114: ; preds = %87
%115 = load i64, i64* %11
%116 = mul nsw i64 %115, 100
%117 = load i64, i64* %4
%118 = icmp ne i64 %116, %117
br i1 %118, label %124, label %119
119: ; preds = %114
%120 = load i64, i64* %12
%121 = mul nsw i64 %120, 1000
%122 = load i64, i64* %4
%123 = icmp eq i64 %121, %122
br i1 %123, label %124, label %126
124: ; preds = %119, %114
%125 = load i64, i64* %3
store i64 %125, i64* %8
br label %126
126: ; preds = %124, %119, %87
%127 = load i64, i64* %8
%128 = icmp ne i64 %127, 0
br i1 %128, label %129, label %136
129: ; preds = %126
%130 = load i64, i64* %5
%131 = icmp slt i64 %130, 3
br i1 %131, label %132, label %136
132: ; preds = %129
%133 = load i64, i64* %9
%134 = load i64, i64* %3
%135 = sub nsw i64 %133, %134
store i64 %135, i64* %9
br label %136
136: ; preds = %132, %129, %126
%137 = load i64, i64* %7
%138 = load i64, i64* %6
%139 = add nsw i64 %137, %138
%140 = load i64, i64* %9
%141 = add nsw i64 %139, %140
store i64 %141, i64* %7
%142 = load i64, i64* %7
%143 = mul nsw i64 %142, 24
%144 = load i64, i64* %13
%145 = add nsw i64 %143, %144
store i64 %145, i64* %7
%146 = load i64, i64* %7
%147 = mul nsw i64 %146, 60
%148 = load i64, i64* %14
%149 = add nsw i64 %147, %148
store i64 %149, i64* %7
%150 = load i64, i64* %7
ret i64 %150
}

LLVM IR (-O2):
@juliam_KP.kmo = internal unnamed_addr constant [13 x i64] [i64 0, i64 0, i64 31, i64 59, i64 90, i64 120, i64 151, i64 181, i64 212, i64 243, i64 273, i64 304, i64 334]
define i64 @juliam_KP(i8* nocapture %0) {
%2 = alloca [5 x i8]
%3 = getelementptr inbounds [5 x i8], [5 x i8]* %2, i64 0, i64 0
%4 = load i8, i8* %0
%5 = icmp eq i8 %4, 46
%6 = zext i1 %5 to i64
%7 = getelementptr inbounds i8, i8* %0, i64 2
%8 = getelementptr inbounds i8, i8* %7, i64 %6
%9 = call i8* @strncpy(i8* %3, i8* %8, i64 4)
%10 = getelementptr inbounds [5 x i8], [5 x i8]* %2, i64 0, i64 4
store i8 0, i8* %10
%11 = call i32 (i8*, ...) bitcast (i32 (...)* @atol to i32 (i8*, ...)*)(i8* %3)
%12 = sext i32 %11 to i64
%13 = getelementptr inbounds i8, i8* %0, i64 6
%14 = getelementptr inbounds i8, i8* %13, i64 %6
%15 = call i8* @strncpy(i8* %3, i8* %14, i64 2)
%16 = getelementptr inbounds [5 x i8], [5 x i8]* %2, i64 0, i64 2
store i8 0, i8* %16
%17 = call i32 (i8*, ...) bitcast (i32 (...)* @atol to i32 (i8*, ...)*)(i8* %3)
%18 = sext i32 %17 to i64
%19 = getelementptr inbounds i8, i8* %0, i64 8
%20 = getelementptr inbounds i8, i8* %19, i64 %6
%21 = call i8* @strncpy(i8* %3, i8* %20, i64 2)
store i8 0, i8* %16
%22 = call i32 (i8*, ...) bitcast (i32 (...)* @atol to i32 (i8*, ...)*)(i8* %3)
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds i8, i8* %0, i64 10
%25 = getelementptr inbounds i8, i8* %24, i64 %6
%26 = call i8* @strncpy(i8* %3, i8* %25, i64 2)
store i8 0, i8* %16
%27 = call i32 (i8*, ...) bitcast (i32 (...)* @atol to i32 (i8*, ...)*)(i8* %3)
%28 = getelementptr inbounds i8, i8* %0, i64 12
%29 = getelementptr inbounds i8, i8* %28, i64 %6
%30 = call i8* @strncpy(i8* %3, i8* %29, i64 2)
store i8 0, i8* %16
%31 = call i32 (i8*, ...) bitcast (i32 (...)* @atol to i32 (i8*, ...)*)(i8* %3)
%32 = icmp sgt i64 %18, 1
%33 = select i1 %32, i64 %18, i64 1
%34 = shl i64 %33, 48
%35 = ashr exact i64 %34, 48
%36 = getelementptr inbounds [13 x i64], [13 x i64]* @juliam_KP.kmo, i64 0, i64 %35
%37 = load i64, i64* %36
%38 = sdiv i32 %11, 4
%39 = sext i32 %38 to i64
%40 = sdiv i32 %11, 100
%41 = sext i32 %40 to i64
%42 = sdiv i32 %11, 1000
%43 = sext i32 %42 to i64
%44 = shl nsw i64 %39, 2
%45 = icmp eq i64 %44, %12
br i1 %45, label %46, label %52
46: ; preds = %1
%47 = mul nsw i64 %41, 100
%48 = icmp ne i64 %47, %12
%49 = mul nsw i64 %43, 1000
%50 = icmp eq i64 %49, %12
%51 = select i1 %48, i1 true, i1 %50
br label %52
52: ; preds = %46, %1
%53 = phi i1 [ false, %1 ], [ %51, %46 ]
%54 = icmp ult i64 %33, 3
%55 = select i1 %53, i1 %54, i1 false
%56 = sext i1 %55 to i64
%57 = icmp sgt i64 %23, 1
%58 = select i1 %57, i64 %23, i64 1
%59 = mul nsw i64 %12, 365
%60 = sext i32 %31 to i64
%61 = sext i32 %27 to i64
%62 = sub nsw i64 %59, %41
%63 = add nsw i64 %62, %39
%64 = add nsw i64 %63, %43
%65 = add nsw i64 %64, %58
%66 = add i64 %65, %37
%67 = add i64 %66, %56
%68 = mul nsw i64 %67, 24
%69 = add nsw i64 %68, %61
%70 = mul nsw i64 %69, 60
%71 = add nsw i64 %70, %60
ret i64 %71
}