#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 */
double M_PI;
double cos(int);
int i2m(int);
int indx(int, int);
int /*<<< orphan*/ printf(char *, ...);
double sin(int);
void gsm2geo(double fday, int deg_want, int deg_ext, int deg_day, int deg_ann,
             double coeff[], double gsmcoeff[], double geocoeff[]) {
  int ncoeff_want = deg_want * (deg_want + 2);
  int ncoeff_ext = deg_ext * (deg_ext + 2);
  int ncoeff_day = deg_day * 2 + 1;
  int ncoeff_ann = deg_ann * 2 + 1;
  int ncoeff = ncoeff_ext * ncoeff_ext * ncoeff_day * ncoeff_ann;
  int igeo, igsm, iday, md, ma, ic;
  int n, mgeo, mgsm, i1, i2;
  double harm_a, harm_d;
  if (0)
    for (igsm = 0; igsm < ncoeff_want; igsm++) {
      printf("gsmcoeff[%1d] = %12.3f ", igsm, gsmcoeff[igsm]);
      printf("\n");
    }
  for (igeo = 0; igeo < ncoeff_ext; igeo++) {
    geocoeff[igeo] = 0.0;
  }
  ic = 0;
  for (n = 1; n <= deg_want; n++)
    for (i1 = 0; i1 <= 2 * n; i1++) {
      mgsm = i2m(i1);
      igsm = indx(n, mgsm);
      for (i2 = 0; i2 <= 2 * n; i2++) {
        mgeo = i2m(i2);
        igeo = indx(n, mgeo);
        for (md = -deg_day; md <= deg_day; md++) {
          if (md == 0)
            harm_d = 1.0;
          if (md > 0)
            harm_d = cos(md * (2.0 * M_PI) * fday);
          if (md < 0)
            harm_d = sin(md * (2.0 * M_PI) * fday);
          for (ma = -deg_ann; ma <= deg_ann; ma++) {
            if (ma == 0)
              harm_a = 1.0;
            if (ma > 0)
              harm_a = cos(ma * (2.0 * M_PI / 365.25) * fday);
            if (ma < 0)
              harm_a = sin(ma * (2.0 * M_PI / 365.25) * fday);
            geocoeff[igeo] += gsmcoeff[igsm] * harm_d * harm_a * coeff[ic];
            ic++;
            if (0)
              printf("%d %d %d %d %d %12.5f\n", igsm, igeo, md, ma, ic,
                     coeff[ic]);
          }
        }
      }
    }
  return;
}


x86 assembly (clang, -O0):
<gsm2geo>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
mov    0x10(%rbp),%rax
movsd  %xmm0,-0x8(%rbp)
mov    %edi,-0xc(%rbp)
mov    %esi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    %r8,-0x20(%rbp)
mov    %r9,-0x28(%rbp)
mov    -0xc(%rbp),%eax
mov    -0xc(%rbp),%ecx
add    $0x2,%ecx
imul   %ecx,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x10(%rbp),%eax
mov    -0x10(%rbp),%ecx
add    $0x2,%ecx
imul   %ecx,%eax
mov    %eax,-0x30(%rbp)
mov    -0x14(%rbp),%eax
shl    $0x1,%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
mov    -0x18(%rbp),%eax
shl    $0x1,%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
mov    -0x30(%rbp),%eax
imul   -0x30(%rbp),%eax
imul   -0x34(%rbp),%eax
imul   -0x38(%rbp),%eax
mov    %eax,-0x3c(%rbp)
movl   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%eax
cmp    -0x30(%rbp),%eax
jge    11e1 <gsm2geo+0xa1>
mov    0x10(%rbp),%rax
movslq -0x40(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    11b7 <gsm2geo+0x77>
movl   $0x0,-0x54(%rbp)
movl   $0x1,-0x58(%rbp)
mov    -0x58(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     1450 <gsm2geo+0x310>
movl   $0x0,-0x64(%rbp)
mov    -0x64(%rbp),%eax
mov    -0x58(%rbp),%ecx
shl    $0x1,%ecx
cmp    %ecx,%eax
jg     143d <gsm2geo+0x2fd>
mov    -0x64(%rbp),%edi
call   1040 <i2m@plt>
mov    %eax,-0x60(%rbp)
mov    -0x58(%rbp),%edi
mov    -0x60(%rbp),%esi
call   1030 <indx@plt>
mov    %eax,-0x44(%rbp)
movl   $0x0,-0x68(%rbp)
mov    -0x68(%rbp),%eax
mov    -0x58(%rbp),%ecx
shl    $0x1,%ecx
cmp    %ecx,%eax
jg     142a <gsm2geo+0x2ea>
mov    -0x68(%rbp),%edi
call   1040 <i2m@plt>
mov    %eax,-0x5c(%rbp)
mov    -0x58(%rbp),%edi
mov    -0x5c(%rbp),%esi
call   1030 <indx@plt>
mov    %eax,-0x40(%rbp)
xor    %eax,%eax
sub    -0x14(%rbp),%eax
mov    %eax,-0x4c(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     1417 <gsm2geo+0x2d7>
cmpl   $0x0,-0x4c(%rbp)
jne    1288 <gsm2geo+0x148>
movsd  0xd7d(%rip),%xmm0
movsd  %xmm0,-0x78(%rbp)
cmpl   $0x0,-0x4c(%rbp)
jle    12c1 <gsm2geo+0x181>
cvtsi2sdl -0x4c(%rbp),%xmm0
movsd  0xd69(%rip),%xmm1
mov    0x2d42(%rip),%rax
mulsd  (%rax),%xmm1
mulsd  %xmm1,%xmm0
mulsd  -0x8(%rbp),%xmm0
cvttsd2si %xmm0,%edi
call   1060 <cos@plt>
movsd  %xmm0,-0x78(%rbp)
cmpl   $0x0,-0x4c(%rbp)
jge    12fa <gsm2geo+0x1ba>
cvtsi2sdl -0x4c(%rbp),%xmm0
movsd  0xd30(%rip),%xmm1
mov    0x2d09(%rip),%rax
mulsd  (%rax),%xmm1
mulsd  %xmm1,%xmm0
mulsd  -0x8(%rbp),%xmm0
cvttsd2si %xmm0,%edi
call   1050 <sin@plt>
movsd  %xmm0,-0x78(%rbp)
xor    %eax,%eax
sub    -0x18(%rbp),%eax
mov    %eax,-0x50(%rbp)
mov    -0x50(%rbp),%eax
cmp    -0x18(%rbp),%eax
jg     1404 <gsm2geo+0x2c4>
cmpl   $0x0,-0x50(%rbp)
jne    1325 <gsm2geo+0x1e5>
movsd  0xce0(%rip),%xmm0
movsd  %xmm0,-0x70(%rbp)
cmpl   $0x0,-0x50(%rbp)
jle    136a <gsm2geo+0x22a>
cvtsi2sdl -0x50(%rbp),%xmm0
movsd  0xccc(%rip),%xmm1
mov    0x2ca5(%rip),%rax
mulsd  (%rax),%xmm1
movsd  0xcc1(%rip),%xmm2
divsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
mulsd  -0x8(%rbp),%xmm0
cvttsd2si %xmm0,%edi
call   1060 <cos@plt>
movsd  %xmm0,-0x70(%rbp)
cmpl   $0x0,-0x50(%rbp)
jge    13af <gsm2geo+0x26f>
cvtsi2sdl -0x50(%rbp),%xmm0
movsd  0xc87(%rip),%xmm1
mov    0x2c60(%rip),%rax
mulsd  (%rax),%xmm1
movsd  0xc7c(%rip),%xmm2
divsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
mulsd  -0x8(%rbp),%xmm0
cvttsd2si %xmm0,%edi
call   1050 <sin@plt>
movsd  %xmm0,-0x70(%rbp)
mov    -0x28(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mulsd  -0x78(%rbp),%xmm0
mulsd  -0x70(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x54(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    0x10(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x54(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x54(%rbp)
mov    -0x50(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x50(%rbp)
jmp    1302 <gsm2geo+0x1c2>
jmp    1409 <gsm2geo+0x2c9>
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
jmp    1265 <gsm2geo+0x125>
jmp    141c <gsm2geo+0x2dc>
mov    -0x68(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x68(%rbp)
jmp    1233 <gsm2geo+0xf3>
jmp    142f <gsm2geo+0x2ef>
mov    -0x64(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x64(%rbp)
jmp    1202 <gsm2geo+0xc2>
jmp    1442 <gsm2geo+0x302>
mov    -0x58(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x58(%rbp)
jmp    11ef <gsm2geo+0xaf>
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<gsm2geo>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x68,%rsp
mov    %r9,0x60(%rsp)
mov    %r8,0x50(%rsp)
mov    %ecx,0x1c(%rsp)
mov    %edx,0x18(%rsp)
mov    %edi,0x14(%rsp)
movsd  %xmm0,0x28(%rsp)
mov    0xa0(%rsp),%rdi
lea    0x2(%rsi),%eax
imul   %esi,%eax
test   %eax,%eax
jle    1199 <gsm2geo+0x49>
mov    %eax,%edx
shl    $0x3,%rdx
xor    %esi,%esi
call   1040 <memset@plt>
cmpl   $0x0,0x14(%rsp)
jle    1428 <gsm2geo+0x2d8>
mov    0x1c(%rsp),%r13d
mov    %r13d,%eax
neg    %eax
mov    %eax,0x48(%rsp)
cmovns %eax,%r13d
mov    0x18(%rsp),%eax
mov    %eax,%ecx
neg    %ecx
mov    %ecx,0x40(%rsp)
cmovns %ecx,%eax
mov    %eax,0x4c(%rsp)
add    $0x1,%r13d
xor    %r15d,%r15d
mov    $0x1,%eax
mov    %rax,0x20(%rsp)
movl   $0x3,0x4(%rsp)
jmp    120c <gsm2geo+0xbc>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    0x20(%rsp),%rcx
lea    0x1(%rcx),%eax
addl   $0x2,0x4(%rsp)
cmp    0x14(%rsp),%ecx
mov    %rax,0x20(%rsp)
je     1428 <gsm2geo+0x2d8>
xor    %edi,%edi
jmp    121d <gsm2geo+0xcd>
mov    0x3c(%rsp),%edi
add    $0x1,%edi
cmp    0x4(%rsp),%edi
je     11f0 <gsm2geo+0xa0>
mov    %edi,0x3c(%rsp)
call   1050 <i2m@plt>
mov    0x20(%rsp),%rdi
mov    %eax,%esi
call   1030 <indx@plt>
movslq %eax,%r14
xor    %ebx,%ebx
jmp    1259 <gsm2geo+0x109>
nopl   0x0(%rax)
movsd  0x8(%rsp),%xmm1
movsd  %xmm1,0x8(%rsp)
mov    0x44(%rsp),%ebx
add    $0x1,%ebx
cmp    0x4(%rsp),%ebx
je     1210 <gsm2geo+0xc0>
mov    %ebx,%edi
call   1050 <i2m@plt>
mov    0x20(%rsp),%rdi
mov    %eax,%esi
call   1030 <indx@plt>
cmpl   $0x0,0x18(%rsp)
mov    %ebx,0x44(%rsp)
js     1240 <gsm2geo+0xf0>
movslq %eax,%r12
mov    0x40(%rsp),%eax
mov    %eax,%ebx
mov    0xa0(%rsp),%rdx
movsd  0x8(%rsp),%xmm1
jmp    12a0 <gsm2geo+0x150>
mov    0x58(%rsp),%rcx
lea    0x1(%rcx),%eax
cmp    0x4c(%rsp),%ecx
mov    %eax,%ebx
je     1246 <gsm2geo+0xf6>
test   %ebx,%ebx
jle    12f0 <gsm2geo+0x1a0>
xorps  %xmm0,%xmm0
cvtsi2sd %ebx,%xmm0
mov    0x2d36(%rip),%rax
movsd  %xmm1,0x8(%rsp)
movsd  (%rax),%xmm1
addsd  %xmm1,%xmm1
mulsd  %xmm0,%xmm1
mulsd  0x28(%rsp),%xmm1
cvttsd2si %xmm1,%edi
call   1070 <cos@plt>
movsd  0x8(%rsp),%xmm1
mov    0xa0(%rsp),%rdx
movsd  %xmm0,0x30(%rsp)
jmp    130c <gsm2geo+0x1bc>
nopl   0x0(%rax)
movsd  0xd08(%rip),%xmm0
je     1300 <gsm2geo+0x1b0>
movsd  0x30(%rsp),%xmm0
movsd  %xmm0,0x30(%rsp)
js     13f4 <gsm2geo+0x2a4>
cmpl   $0x0,0x1c(%rsp)
mov    %rbx,0x58(%rsp)
js     1290 <gsm2geo+0x140>
movslq %r15d,%rax
mov    0x50(%rsp),%rcx
lea    (%rcx,%rax,8),%rbx
mov    0x48(%rsp),%ebp
jmp    13a6 <gsm2geo+0x256>
xchg   %ax,%ax
xorps  %xmm0,%xmm0
cvtsi2sd %ebp,%xmm0
mov    0x2caa(%rip),%rax
movsd  (%rax),%xmm1
addsd  %xmm1,%xmm1
divsd  0xcba(%rip),%xmm1
mulsd  %xmm0,%xmm1
mulsd  0x28(%rsp),%xmm1
cvttsd2si %xmm1,%edi
call   1070 <cos@plt>
mov    0xa0(%rsp),%rdx
movapd %xmm0,%xmm1
mov    0x60(%rsp),%rax
movsd  (%rax,%r14,8),%xmm0
mulsd  0x30(%rsp),%xmm0
mulsd  %xmm1,%xmm0
mulsd  (%rbx),%xmm0
addsd  (%rdx,%r12,8),%xmm0
movsd  %xmm0,(%rdx,%r12,8)
add    $0x1,%ebp
add    $0x8,%rbx
add    $0x1,%r15d
cmp    %ebp,%r13d
je     1290 <gsm2geo+0x140>
test   %ebp,%ebp
jg     1330 <gsm2geo+0x1e0>
movsd  0xc4e(%rip),%xmm0
je     13b8 <gsm2geo+0x268>
movapd %xmm1,%xmm0
movapd %xmm0,%xmm1
jns    136d <gsm2geo+0x21d>
xorps  %xmm0,%xmm0
cvtsi2sd %ebp,%xmm0
mov    0x2c1c(%rip),%rax
movsd  (%rax),%xmm1
addsd  %xmm1,%xmm1
divsd  0xc2c(%rip),%xmm1
mulsd  %xmm0,%xmm1
mulsd  0x28(%rsp),%xmm1
cvttsd2si %xmm1,%edi
call   1060 <sin@plt>
jmp    1361 <gsm2geo+0x211>
xorps  %xmm0,%xmm0
cvtsi2sd %ebx,%xmm0
mov    0x2be6(%rip),%rax
movsd  %xmm1,0x8(%rsp)
movsd  (%rax),%xmm1
addsd  %xmm1,%xmm1
mulsd  %xmm0,%xmm1
mulsd  0x28(%rsp),%xmm1
cvttsd2si %xmm1,%edi
call   1060 <sin@plt>
jmp    12d3 <gsm2geo+0x183>
add    $0x68,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@M_PI = global double 0.000000e+00
define void @gsm2geo(double %0, i32 %1, i32 %2, i32 %3, i32 %4, double* %5, double* %6, double* %7) {
%9 = alloca double
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca double*
%15 = alloca double*
%16 = alloca double*
%17 = alloca i32
%18 = alloca i32
%19 = alloca i32
%20 = alloca i32
%21 = alloca i32
%22 = alloca i32
%23 = alloca i32
%24 = alloca i32
%25 = alloca i32
%26 = alloca i32
%27 = alloca i32
%28 = alloca i32
%29 = alloca i32
%30 = alloca i32
%31 = alloca i32
%32 = alloca i32
%33 = alloca double
%34 = 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 double* %5, double** %14
store double* %6, double** %15
store double* %7, double** %16
%35 = load i32, i32* %10
%36 = load i32, i32* %10
%37 = add nsw i32 %36, 2
%38 = mul nsw i32 %35, %37
store i32 %38, i32* %17
%39 = load i32, i32* %11
%40 = load i32, i32* %11
%41 = add nsw i32 %40, 2
%42 = mul nsw i32 %39, %41
store i32 %42, i32* %18
%43 = load i32, i32* %12
%44 = mul nsw i32 %43, 2
%45 = add nsw i32 %44, 1
store i32 %45, i32* %19
%46 = load i32, i32* %13
%47 = mul nsw i32 %46, 2
%48 = add nsw i32 %47, 1
store i32 %48, i32* %20
%49 = load i32, i32* %18
%50 = load i32, i32* %18
%51 = mul nsw i32 %49, %50
%52 = load i32, i32* %19
%53 = mul nsw i32 %51, %52
%54 = load i32, i32* %20
%55 = mul nsw i32 %53, %54
store i32 %55, i32* %21
store i32 0, i32* %22
br label %56
56: ; preds = %65, %8
%57 = load i32, i32* %22
%58 = load i32, i32* %18
%59 = icmp slt i32 %57, %58
br i1 %59, label %60, label %68
60: ; preds = %56
%61 = load double*, double** %16
%62 = load i32, i32* %22
%63 = sext i32 %62 to i64
%64 = getelementptr inbounds double, double* %61, i64 %63
store double 0.000000e+00, double* %64
br label %65
65: ; preds = %60
%66 = load i32, i32* %22
%67 = add nsw i32 %66, 1
store i32 %67, i32* %22
br label %56
68: ; preds = %56
store i32 0, i32* %27
store i32 1, i32* %28
br label %69
69: ; preds = %210, %68
%70 = load i32, i32* %28
%71 = load i32, i32* %10
%72 = icmp sle i32 %70, %71
br i1 %72, label %73, label %213
73: ; preds = %69
store i32 0, i32* %31
br label %74
74: ; preds = %206, %73
%75 = load i32, i32* %31
%76 = load i32, i32* %28
%77 = mul nsw i32 2, %76
%78 = icmp sle i32 %75, %77
br i1 %78, label %79, label %209
79: ; preds = %74
%80 = load i32, i32* %31
%81 = call i32 @i2m(i32 %80)
store i32 %81, i32* %30
%82 = load i32, i32* %28
%83 = load i32, i32* %30
%84 = call i32 @indx(i32 %82, i32 %83)
store i32 %84, i32* %23
store i32 0, i32* %32
br label %85
85: ; preds = %202, %79
%86 = load i32, i32* %32
%87 = load i32, i32* %28
%88 = mul nsw i32 2, %87
%89 = icmp sle i32 %86, %88
br i1 %89, label %90, label %205
90: ; preds = %85
%91 = load i32, i32* %32
%92 = call i32 @i2m(i32 %91)
store i32 %92, i32* %29
%93 = load i32, i32* %28
%94 = load i32, i32* %29
%95 = call i32 @indx(i32 %93, i32 %94)
store i32 %95, i32* %22
%96 = load i32, i32* %12
%97 = sub nsw i32 0, %96
store i32 %97, i32* %25
br label %98
98: ; preds = %198, %90
%99 = load i32, i32* %25
%100 = load i32, i32* %12
%101 = icmp sle i32 %99, %100
br i1 %101, label %102, label %201
102: ; preds = %98
%103 = load i32, i32* %25
%104 = icmp eq i32 %103, 0
br i1 %104, label %105, label %106
105: ; preds = %102
store double 1.000000e+00, double* %34
br label %106
106: ; preds = %105, %102
%107 = load i32, i32* %25
%108 = icmp sgt i32 %107, 0
br i1 %108, label %109, label %119
109: ; preds = %106
%110 = load i32, i32* %25
%111 = sitofp i32 %110 to double
%112 = load double, double* @M_PI
%113 = fmul double 2.000000e+00, %112
%114 = fmul double %111, %113
%115 = load double, double* %9
%116 = fmul double %114, %115
%117 = fptosi double %116 to i32
%118 = call double @cos(i32 %117)
store double %118, double* %34
br label %119
119: ; preds = %109, %106
%120 = load i32, i32* %25
%121 = icmp slt i32 %120, 0
br i1 %121, label %122, label %132
122: ; preds = %119
%123 = load i32, i32* %25
%124 = sitofp i32 %123 to double
%125 = load double, double* @M_PI
%126 = fmul double 2.000000e+00, %125
%127 = fmul double %124, %126
%128 = load double, double* %9
%129 = fmul double %127, %128
%130 = fptosi double %129 to i32
%131 = call double @sin(i32 %130)
store double %131, double* %34
br label %132
132: ; preds = %122, %119
%133 = load i32, i32* %13
%134 = sub nsw i32 0, %133
store i32 %134, i32* %26
br label %135
135: ; preds = %194, %132
%136 = load i32, i32* %26
%137 = load i32, i32* %13
%138 = icmp sle i32 %136, %137
br i1 %138, label %139, label %197
139: ; preds = %135
%140 = load i32, i32* %26
%141 = icmp eq i32 %140, 0
br i1 %141, label %142, label %143
142: ; preds = %139
store double 1.000000e+00, double* %33
br label %143
143: ; preds = %142, %139
%144 = load i32, i32* %26
%145 = icmp sgt i32 %144, 0
br i1 %145, label %146, label %157
146: ; preds = %143
%147 = load i32, i32* %26
%148 = sitofp i32 %147 to double
%149 = load double, double* @M_PI
%150 = fmul double 2.000000e+00, %149
%151 = fdiv double %150, 3.652500e+02
%152 = fmul double %148, %151
%153 = load double, double* %9
%154 = fmul double %152, %153
%155 = fptosi double %154 to i32
%156 = call double @cos(i32 %155)
store double %156, double* %33
br label %157
157: ; preds = %146, %143
%158 = load i32, i32* %26
%159 = icmp slt i32 %158, 0
br i1 %159, label %160, label %171
160: ; preds = %157
%161 = load i32, i32* %26
%162 = sitofp i32 %161 to double
%163 = load double, double* @M_PI
%164 = fmul double 2.000000e+00, %163
%165 = fdiv double %164, 3.652500e+02
%166 = fmul double %162, %165
%167 = load double, double* %9
%168 = fmul double %166, %167
%169 = fptosi double %168 to i32
%170 = call double @sin(i32 %169)
store double %170, double* %33
br label %171
171: ; preds = %160, %157
%172 = load double*, double** %15
%173 = load i32, i32* %23
%174 = sext i32 %173 to i64
%175 = getelementptr inbounds double, double* %172, i64 %174
%176 = load double, double* %175
%177 = load double, double* %34
%178 = fmul double %176, %177
%179 = load double, double* %33
%180 = fmul double %178, %179
%181 = load double*, double** %14
%182 = load i32, i32* %27
%183 = sext i32 %182 to i64
%184 = getelementptr inbounds double, double* %181, i64 %183
%185 = load double, double* %184
%186 = load double*, double** %16
%187 = load i32, i32* %22
%188 = sext i32 %187 to i64
%189 = getelementptr inbounds double, double* %186, i64 %188
%190 = load double, double* %189
%191 = call double @llvm.fmuladd.f64(double %180, double %185, double %190)
store double %191, double* %189
%192 = load i32, i32* %27
%193 = add nsw i32 %192, 1
store i32 %193, i32* %27
br label %194
194: ; preds = %171
%195 = load i32, i32* %26
%196 = add nsw i32 %195, 1
store i32 %196, i32* %26
br label %135
197: ; preds = %135
br label %198
198: ; preds = %197
%199 = load i32, i32* %25
%200 = add nsw i32 %199, 1
store i32 %200, i32* %25
br label %98
201: ; preds = %98
br label %202
202: ; preds = %201
%203 = load i32, i32* %32
%204 = add nsw i32 %203, 1
store i32 %204, i32* %32
br label %85
205: ; preds = %85
br label %206
206: ; preds = %205
%207 = load i32, i32* %31
%208 = add nsw i32 %207, 1
store i32 %208, i32* %31
br label %74
209: ; preds = %74
br label %210
210: ; preds = %209
%211 = load i32, i32* %28
%212 = add nsw i32 %211, 1
store i32 %212, i32* %28
br label %69
213: ; preds = %69
ret void
}

LLVM IR (-O2):
@M_PI = global double 0.000000e+00
define void @gsm2geo(double %0, i32 %1, i32 %2, i32 %3, i32 %4, double* nocapture %5, double* nocapture %6, double* nocapture %7) {
%9 = add nsw i32 %2, 2
%10 = mul i32 %9, %2
%11 = icmp sgt i32 %10, 0
br i1 %11, label %12, label %16
12: ; preds = %8
%13 = bitcast double* %7 to i8*
%14 = zext i32 %10 to i64
%15 = shl nuw nsw i64 %14, 3
br label %16
16: ; preds = %12, %8
%17 = icmp slt i32 %1, 1
br i1 %17, label %139, label %18
18: ; preds = %16
%19 = sub i32 0, %3
%20 = icmp slt i32 %3, 0
%21 = sub i32 0, %4
%22 = icmp slt i32 %4, 0
%23 = call i32 @llvm.abs.i32(i32 %4, i1 false)
%24 = call i32 @llvm.abs.i32(i32 %3, i1 false)
br label %25
25: ; preds = %18, %135
%26 = phi i32 [ 3, %18 ], [ %137, %135 ]
%27 = phi double [ undef, %18 ], [ %129, %135 ]
%28 = phi double [ undef, %18 ], [ %128, %135 ]
%29 = phi i32 [ 1, %18 ], [ %136, %135 ]
%30 = phi i32 [ 0, %18 ], [ %127, %135 ]
br label %31
31: ; preds = %25, %132
%32 = phi double [ %27, %25 ], [ %129, %132 ]
%33 = phi double [ %28, %25 ], [ %128, %132 ]
%34 = phi i32 [ 0, %25 ], [ %133, %132 ]
%35 = phi i32 [ %30, %25 ], [ %127, %132 ]
%36 = tail call i32 @i2m(i32 %34)
%37 = tail call i32 @indx(i32 %29, i32 %36)
%38 = sext i32 %37 to i64
%39 = getelementptr inbounds double, double* %6, i64 %38
br label %40
40: ; preds = %31, %126
%41 = phi double [ %32, %31 ], [ %129, %126 ]
%42 = phi double [ %33, %31 ], [ %128, %126 ]
%43 = phi i32 [ 0, %31 ], [ %130, %126 ]
%44 = phi i32 [ %35, %31 ], [ %127, %126 ]
%45 = tail call i32 @i2m(i32 %43)
%46 = tail call i32 @indx(i32 %29, i32 %45)
br i1 %20, label %126, label %47
47: ; preds = %40
%48 = sext i32 %46 to i64
%49 = getelementptr inbounds double, double* %7, i64 %48
br label %50
50: ; preds = %47, %121
%51 = phi double [ %41, %47 ], [ %77, %121 ]
%52 = phi double [ %42, %47 ], [ %123, %121 ]
%53 = phi i32 [ %19, %47 ], [ %124, %121 ]
%54 = phi i32 [ %44, %47 ], [ %122, %121 ]
%55 = icmp sgt i32 %53, 0
br i1 %55, label %56, label %64
56: ; preds = %50
%57 = sitofp i32 %53 to double
%58 = load double, double* @M_PI
%59 = fmul double %58, 2.000000e+00
%60 = fmul double %59, %57
%61 = fmul double %60, %0
%62 = fptosi double %61 to i32
%63 = tail call double @cos(i32 %62)
br label %76
64: ; preds = %50
%65 = icmp eq i32 %53, 0
%66 = select i1 %65, double 1.000000e+00, double %51
%67 = icmp slt i32 %53, 0
br i1 %67, label %68, label %76
68: ; preds = %64
%69 = sitofp i32 %53 to double
%70 = load double, double* @M_PI
%71 = fmul double %70, 2.000000e+00
%72 = fmul double %71, %69
%73 = fmul double %72, %0
%74 = fptosi double %73 to i32
%75 = tail call double @sin(i32 %74)
br label %76
76: ; preds = %56, %68, %64
%77 = phi double [ %75, %68 ], [ %66, %64 ], [ %63, %56 ]
br i1 %22, label %121, label %78
78: ; preds = %76
%79 = sext i32 %54 to i64
br label %80
80: ; preds = %78, %107
%81 = phi i64 [ %79, %78 ], [ %116, %107 ]
%82 = phi double [ %52, %78 ], [ %108, %107 ]
%83 = phi i32 [ %21, %78 ], [ %117, %107 ]
%84 = icmp sgt i32 %83, 0
br i1 %84, label %85, label %94
85: ; preds = %80
%86 = sitofp i32 %83 to double
%87 = load double, double* @M_PI
%88 = fmul double %87, 2.000000e+00
%89 = fdiv double %88, 3.652500e+02
%90 = fmul double %89, %86
%91 = fmul double %90, %0
%92 = fptosi double %91 to i32
%93 = tail call double @cos(i32 %92)
br label %107
94: ; preds = %80
%95 = icmp eq i32 %83, 0
%96 = select i1 %95, double 1.000000e+00, double %82
%97 = icmp slt i32 %83, 0
br i1 %97, label %98, label %107
98: ; preds = %94
%99 = sitofp i32 %83 to double
%100 = load double, double* @M_PI
%101 = fmul double %100, 2.000000e+00
%102 = fdiv double %101, 3.652500e+02
%103 = fmul double %102, %99
%104 = fmul double %103, %0
%105 = fptosi double %104 to i32
%106 = tail call double @sin(i32 %105)
br label %107
107: ; preds = %85, %98, %94
%108 = phi double [ %106, %98 ], [ %96, %94 ], [ %93, %85 ]
%109 = load double, double* %39
%110 = fmul double %77, %109
%111 = fmul double %108, %110
%112 = getelementptr inbounds double, double* %5, i64 %81
%113 = load double, double* %112
%114 = load double, double* %49
%115 = tail call double @llvm.fmuladd.f64(double %111, double %113, double %114)
store double %115, double* %49
%116 = add nsw i64 %81, 1
%117 = add i32 %83, 1
%118 = icmp eq i32 %83, %23
br i1 %118, label %119, label %80
119: ; preds = %107
%120 = trunc i64 %116 to i32
br label %121
121: ; preds = %119, %76
%122 = phi i32 [ %54, %76 ], [ %120, %119 ]
%123 = phi double [ %52, %76 ], [ %108, %119 ]
%124 = add i32 %53, 1
%125 = icmp eq i32 %53, %24
br i1 %125, label %126, label %50
126: ; preds = %121, %40
%127 = phi i32 [ %44, %40 ], [ %122, %121 ]
%128 = phi double [ %42, %40 ], [ %123, %121 ]
%129 = phi double [ %41, %40 ], [ %77, %121 ]
%130 = add nuw i32 %43, 1
%131 = icmp eq i32 %130, %26
br i1 %131, label %132, label %40
132: ; preds = %126
%133 = add nuw i32 %34, 1
%134 = icmp eq i32 %133, %26
br i1 %134, label %135, label %31
135: ; preds = %132
%136 = add nuw i32 %29, 1
%137 = add i32 %26, 2
%138 = icmp eq i32 %29, %1
br i1 %138, label %139, label %25
139: ; preds = %135, %16
ret void
}