#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
float logLogisticCDF(float, float *);
int /*<<< orphan*/ logLogisticFit(float *, float *);
int /*<<< orphan*/ pwm(float *, int, float *, int /*<<< orphan*/,
                       int /*<<< orphan*/, int /*<<< orphan*/);
float standardGaussianInvCDF(float);
int /*<<< orphan*/ upward(float *, int);
void spei(float dataSeries[], int n, int seasons, float speiSeries[]) {
  int i, j, k, nSeason;
  float seasonSeries[5000], beta[3], logLogisticParams[12][3];
  for (j = 1; j <= seasons; j++) {
    k = 0;
    for (i = j - 1; i < n; i += seasons) {
      seasonSeries[k] = dataSeries[i];
      k++;
    }
    nSeason = k;
    upward(seasonSeries, nSeason);
    pwm(seasonSeries, nSeason, beta, 0, 0, 0);
    logLogisticFit(beta, logLogisticParams[j]);
    for (i = j - 1; i < n; i += seasons) {
      speiSeries[i] = logLogisticCDF(dataSeries[i], logLogisticParams[j]);
      speiSeries[i] = -standardGaussianInvCDF(speiSeries[i]);
    }
  }
}


x86 assembly (clang, -O0):
<spei>:
push   %rbp
mov    %rsp,%rbp
sub    $0x4ef0,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
movl   $0x1,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x10(%rbp),%eax
jg     12ae <spei+0x15e>
movl   $0x0,-0x24(%rbp)
mov    -0x20(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11c9 <spei+0x79>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movslq -0x24(%rbp),%rax
movss  %xmm0,-0x4e50(%rbp,%rax,4)
ff ff
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x10(%rbp),%eax
add    -0x1c(%rbp),%eax
mov    %eax,-0x1c(%rbp)
jmp    118c <spei+0x3c>
mov    -0x24(%rbp),%eax
mov    %eax,-0x28(%rbp)
lea    -0x4e50(%rbp),%rdi
mov    -0x28(%rbp),%esi
call   1040 <upward@plt>
lea    -0x4e50(%rbp),%rdi
mov    -0x28(%rbp),%esi
lea    -0x4e5c(%rbp),%rdx
xor    %r9d,%r9d
mov    %r9d,%ecx
mov    %r9d,%r8d
call   1060 <pwm@plt>
lea    -0x4e5c(%rbp),%rdi
movslq -0x20(%rbp),%rax
lea    -0x4ef0(%rbp),%rsi
imul   $0xc,%rax,%rax
add    %rax,%rsi
call   1050 <logLogisticFit@plt>
mov    -0x20(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    129b <spei+0x14b>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movslq -0x20(%rbp),%rax
lea    -0x4ef0(%rbp),%rdi
imul   $0xc,%rax,%rax
add    %rax,%rdi
call   1030 <logLogisticCDF@plt>
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
call   1070 <standardGaussianInvCDF@plt>
movd   %xmm0,%eax
xor    $0x80000000,%eax
movd   %eax,%xmm0
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x10(%rbp),%eax
add    -0x1c(%rbp),%eax
mov    %eax,-0x1c(%rbp)
jmp    1224 <spei+0xd4>
jmp    12a0 <spei+0x150>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1170 <spei+0x20>
add    $0x4ef0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<spei>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x4ed8,%rsp
test   %edx,%edx
jle    1264 <spei+0x114>
mov    %rcx,%r14
mov    %rdi,%r13
mov    %edx,%ebp
movslq %esi,%r15
mov    $0x1,%r12d
xor    %ecx,%ecx
jmp    119a <spei+0x4a>
xchg   %ax,%ax
mov    0x8(%rsp),%r12
add    $0x1,%r12
mov    (%rsp),%rcx
add    $0x1,%rcx
cmp    %rbp,%rcx
je     1264 <spei+0x114>
mov    $0x0,%ebx
cmp    %r15,%r12
jg     11cc <spei+0x7c>
xor    %ebx,%ebx
mov    %rcx,%rax
nopl   0x0(%rax)
movss  0x0(%r13,%rax,4),%xmm0
movss  %xmm0,0xb0(%rsp,%rbx,4)
add    $0x1,%rbx
add    %rbp,%rax
cmp    %r15,%rax
jl     11b0 <spei+0x60>
mov    %rcx,(%rsp)
lea    0xb0(%rsp),%rdi
mov    %ebx,%esi
call   1040 <upward@plt>
lea    0xb0(%rsp),%rdi
mov    %ebx,%esi
lea    0x14(%rsp),%rdx
xor    %ecx,%ecx
xor    %r8d,%r8d
xor    %r9d,%r9d
call   1060 <pwm@plt>
lea    (%r12,%r12,2),%rax
lea    (%rsp,%rax,4),%rbx
add    $0x20,%rbx
lea    0x14(%rsp),%rdi
mov    %rbx,%rsi
call   1050 <logLogisticFit@plt>
mov    %r12,0x8(%rsp)
cmp    %r15,%r12
jg     1180 <spei+0x30>
mov    (%rsp),%r12
cs nopw 0x0(%rax,%rax,1)
movss  0x0(%r13,%r12,4),%xmm0
mov    %rbx,%rdi
call   1030 <logLogisticCDF@plt>
movss  %xmm0,(%r14,%r12,4)
call   1070 <standardGaussianInvCDF@plt>
xorps  0xdaf(%rip),%xmm0
movss  %xmm0,(%r14,%r12,4)
add    %rbp,%r12
cmp    %r15,%r12
jl     1230 <spei+0xe0>
jmp    1180 <spei+0x30>
add    $0x4ed8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @spei(float* %0, i32 %1, i32 %2, float* %3) {
%5 = alloca float*
%6 = alloca i32
%7 = alloca i32
%8 = alloca float*
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca [5000 x float]
%14 = alloca [3 x float]
%15 = alloca [12 x [3 x float]]
store float* %0, float** %5
store i32 %1, i32* %6
store i32 %2, i32* %7
store float* %3, float** %8
store i32 1, i32* %10
br label %16
16: ; preds = %94, %4
%17 = load i32, i32* %10
%18 = load i32, i32* %7
%19 = icmp sle i32 %17, %18
br i1 %19, label %20, label %97
20: ; preds = %16
store i32 0, i32* %11
%21 = load i32, i32* %10
%22 = sub nsw i32 %21, 1
store i32 %22, i32* %9
br label %23
23: ; preds = %38, %20
%24 = load i32, i32* %9
%25 = load i32, i32* %6
%26 = icmp slt i32 %24, %25
br i1 %26, label %27, label %42
27: ; preds = %23
%28 = load float*, float** %5
%29 = load i32, i32* %9
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds float, float* %28, i64 %30
%32 = load float, float* %31
%33 = load i32, i32* %11
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds [5000 x float], [5000 x float]* %13, i64 0, i64 %34
store float %32, float* %35
%36 = load i32, i32* %11
%37 = add nsw i32 %36, 1
store i32 %37, i32* %11
br label %38
38: ; preds = %27
%39 = load i32, i32* %7
%40 = load i32, i32* %9
%41 = add nsw i32 %40, %39
store i32 %41, i32* %9
br label %23
42: ; preds = %23
%43 = load i32, i32* %11
store i32 %43, i32* %12
%44 = getelementptr inbounds [5000 x float], [5000 x float]* %13, i64 0, i64 0
%45 = load i32, i32* %12
%46 = call i32 @upward(float* %44, i32 %45)
%47 = getelementptr inbounds [5000 x float], [5000 x float]* %13, i64 0, i64 0
%48 = load i32, i32* %12
%49 = getelementptr inbounds [3 x float], [3 x float]* %14, i64 0, i64 0
%50 = call i32 @pwm(float* %47, i32 %48, float* %49, i32 0, i32 0, i32 0)
%51 = getelementptr inbounds [3 x float], [3 x float]* %14, i64 0, i64 0
%52 = load i32, i32* %10
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds [12 x [3 x float]], [12 x [3 x float]]* %15, i64 0, i64 %53
%55 = getelementptr inbounds [3 x float], [3 x float]* %54, i64 0, i64 0
%56 = call i32 @logLogisticFit(float* %51, float* %55)
%57 = load i32, i32* %10
%58 = sub nsw i32 %57, 1
store i32 %58, i32* %9
br label %59
59: ; preds = %89, %42
%60 = load i32, i32* %9
%61 = load i32, i32* %6
%62 = icmp slt i32 %60, %61
br i1 %62, label %63, label %93
63: ; preds = %59
%64 = load float*, float** %5
%65 = load i32, i32* %9
%66 = sext i32 %65 to i64
%67 = getelementptr inbounds float, float* %64, i64 %66
%68 = load float, float* %67
%69 = load i32, i32* %10
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds [12 x [3 x float]], [12 x [3 x float]]* %15, i64 0, i64 %70
%72 = getelementptr inbounds [3 x float], [3 x float]* %71, i64 0, i64 0
%73 = call float @logLogisticCDF(float %68, float* %72)
%74 = load float*, float** %8
%75 = load i32, i32* %9
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds float, float* %74, i64 %76
store float %73, float* %77
%78 = load float*, float** %8
%79 = load i32, i32* %9
%80 = sext i32 %79 to i64
%81 = getelementptr inbounds float, float* %78, i64 %80
%82 = load float, float* %81
%83 = call float @standardGaussianInvCDF(float %82)
%84 = fneg float %83
%85 = load float*, float** %8
%86 = load i32, i32* %9
%87 = sext i32 %86 to i64
%88 = getelementptr inbounds float, float* %85, i64 %87
store float %84, float* %88
br label %89
89: ; preds = %63
%90 = load i32, i32* %7
%91 = load i32, i32* %9
%92 = add nsw i32 %91, %90
store i32 %92, i32* %9
br label %59
93: ; preds = %59
br label %94
94: ; preds = %93
%95 = load i32, i32* %10
%96 = add nsw i32 %95, 1
store i32 %96, i32* %10
br label %16
97: ; preds = %16
ret void
}

LLVM IR (-O2):
define void @spei(float* nocapture %0, i32 %1, i32 %2, float* nocapture writeonly %3) {
%5 = alloca [5000 x float]
%6 = alloca [3 x float]
%7 = alloca [12 x [3 x float]]
%8 = bitcast [5000 x float]* %5 to i8*
%9 = bitcast [3 x float]* %6 to i8*
%10 = bitcast [12 x [3 x float]]* %7 to i8*
%11 = icmp slt i32 %2, 1
br i1 %11, label %53, label %12
12: ; preds = %4
%13 = getelementptr inbounds [5000 x float], [5000 x float]* %5, i64 0, i64 0
%14 = getelementptr inbounds [3 x float], [3 x float]* %6, i64 0, i64 0
%15 = zext i32 %2 to i64
%16 = sext i32 %1 to i64
%17 = zext i32 %2 to i64
br label %18
18: ; preds = %12, %49
%19 = phi i64 [ 1, %12 ], [ %50, %49 ]
%20 = phi i64 [ 0, %12 ], [ %51, %49 ]
%21 = icmp sgt i64 %19, %16
br i1 %21, label %33, label %22
22: ; preds = %18, %22
%23 = phi i64 [ %28, %22 ], [ 0, %18 ]
%24 = phi i64 [ %29, %22 ], [ %20, %18 ]
%25 = getelementptr inbounds float, float* %0, i64 %24
%26 = load float, float* %25
%27 = getelementptr inbounds [5000 x float], [5000 x float]* %5, i64 0, i64 %23
store float %26, float* %27
%28 = add nuw nsw i64 %23, 1
%29 = add i64 %24, %15
%30 = icmp slt i64 %29, %16
br i1 %30, label %22, label %31
31: ; preds = %22
%32 = trunc i64 %28 to i32
br label %33
33: ; preds = %31, %18
%34 = phi i32 [ 0, %18 ], [ %32, %31 ]
%35 = call i32 @upward(float* %13, i32 %34)
%36 = call i32 @pwm(float* %13, i32 %34, float* %14, i32 0, i32 0, i32 0)
%37 = getelementptr inbounds [12 x [3 x float]], [12 x [3 x float]]* %7, i64 0, i64 %19, i64 0
%38 = call i32 @logLogisticFit(float* %14, float* %37)
br i1 %21, label %49, label %39
39: ; preds = %33, %39
%40 = phi i64 [ %47, %39 ], [ %20, %33 ]
%41 = getelementptr inbounds float, float* %0, i64 %40
%42 = load float, float* %41
%43 = call float @logLogisticCDF(float %42, float* %37)
%44 = getelementptr inbounds float, float* %3, i64 %40
store float %43, float* %44
%45 = call float @standardGaussianInvCDF(float %43)
%46 = fneg float %45
store float %46, float* %44
%47 = add i64 %40, %15
%48 = icmp slt i64 %47, %16
br i1 %48, label %39, label %49
49: ; preds = %39, %33
%50 = add nuw nsw i64 %19, 1
%51 = add nuw nsw i64 %20, 1
%52 = icmp eq i64 %51, %17
br i1 %52, label %53, label %18
53: ; preds = %49, %4
ret void
}