#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 **dmatrix(int, int, int, int);
long find_1st_atom(char *, char **, long, long, char *);
int /*<<< orphan*/ strcpy(char *, char *);
double torsion(double **);
void syn_or_anti(long num_residue, char **AtomName, long **seidx, double **xyz,
                 long *RY, long *sugar_syn) {
  char c2c4[5], n1n9[5];
  long chi[10], ib, ie, idx, i, m, n;
  double chi_angle, **xyz4;
  xyz4 = dmatrix(1, 4, 1, 3);
  for (i = 1; i <= num_residue; i++) {
    ib = seidx[i][1];
    ie = seidx[i][2];
    chi[1] = find_1st_atom(" O4'", AtomName, ib, ie, "");
    chi[2] = find_1st_atom(" C1'", AtomName, ib, ie, "");
    if (RY[i] == 1) {
      strcpy(n1n9, " N9 ");
      strcpy(c2c4, " C4 ");
    } else if (RY[i] == 0) {
      strcpy(n1n9, " N1 ");
      strcpy(c2c4, " C2 ");
    }
    chi[3] = find_1st_atom(n1n9, AtomName, ib, ie, "");
    chi[4] = find_1st_atom(c2c4, AtomName, ib, ie, "");
    for (m = 1; m <= 4; m++) {
      idx = chi[m];
      if (!idx)
        break;
      for (n = 1; n <= 3; n++)
        xyz4[m][n] = xyz[idx][n];
    }
    if (m == 5)
      chi_angle = torsion(xyz4);
    if (chi_angle >= -90 && chi_angle <= 90)
      sugar_syn[i] = 1;
    else
      sugar_syn[i] = 0;
  }
}


x86 assembly (clang, -O0):
<syn_or_anti>:
push   %rbp
mov    %rsp,%rbp
sub    $0xd0,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    $0x1,%edx
mov    $0x4,%esi
mov    $0x3,%ecx
mov    %edx,%edi
call   1050 <dmatrix@plt>
mov    %rax,-0xd0(%rbp)
movq   $0x1,-0xb0(%rbp)
mov    -0xb0(%rbp),%rax
cmp    -0x8(%rbp),%rax
jg     1447 <syn_or_anti+0x307>
mov    -0x18(%rbp),%rax
mov    -0xb0(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    0x8(%rax),%rax
mov    %rax,-0x98(%rbp)
mov    -0x18(%rbp),%rax
mov    -0xb0(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    0x10(%rax),%rax
mov    %rax,-0xa0(%rbp)
mov    -0x10(%rbp),%rsi
mov    -0x98(%rbp),%rdx
mov    -0xa0(%rbp),%rcx
lea    0xe27(%rip),%rdi
lea    0xe38(%rip),%r8
call   1040 <find_1st_atom@plt>
mov    %rax,-0x88(%rbp)
mov    -0x10(%rbp),%rsi
mov    -0x98(%rbp),%rdx
mov    -0xa0(%rbp),%rcx
lea    0xe00(%rip),%rdi
lea    0xe0c(%rip),%r8
call   1040 <find_1st_atom@plt>
mov    %rax,-0x80(%rbp)
mov    -0x28(%rbp),%rax
mov    -0xb0(%rbp),%rcx
cmpq   $0x1,(%rax,%rcx,8)
jne    1260 <syn_or_anti+0x120>
lea    -0x3a(%rbp),%rdi
lea    0xdd4(%rip),%rsi
call   1030 <strcpy@plt>
lea    -0x35(%rbp),%rdi
lea    0xdc9(%rip),%rsi
call   1030 <strcpy@plt>
jmp    129b <syn_or_anti+0x15b>
mov    -0x28(%rbp),%rax
mov    -0xb0(%rbp),%rcx
cmpq   $0x0,(%rax,%rcx,8)
jne    1296 <syn_or_anti+0x156>
lea    -0x3a(%rbp),%rdi
lea    0xda3(%rip),%rsi
call   1030 <strcpy@plt>
lea    -0x35(%rbp),%rdi
lea    0xd98(%rip),%rsi
call   1030 <strcpy@plt>
jmp    129b <syn_or_anti+0x15b>
lea    -0x3a(%rbp),%rdi
mov    -0x10(%rbp),%rsi
mov    -0x98(%rbp),%rdx
mov    -0xa0(%rbp),%rcx
lea    0xd70(%rip),%r8
call   1040 <find_1st_atom@plt>
mov    %rax,-0x78(%rbp)
lea    -0x35(%rbp),%rdi
mov    -0x10(%rbp),%rsi
mov    -0x98(%rbp),%rdx
mov    -0xa0(%rbp),%rcx
lea    0xd4a(%rip),%r8
call   1040 <find_1st_atom@plt>
mov    %rax,-0x70(%rbp)
movq   $0x1,-0xb8(%rbp)
cmpq   $0x4,-0xb8(%rbp)
04
jg     13ae <syn_or_anti+0x26e>
mov    -0xb8(%rbp),%rax
mov    -0x90(%rbp,%rax,8),%rax
ff
mov    %rax,-0xa8(%rbp)
cmpq   $0x0,-0xa8(%rbp)
jne    1329 <syn_or_anti+0x1e9>
jmp    13ae <syn_or_anti+0x26e>
movq   $0x1,-0xc0(%rbp)
cmpq   $0x3,-0xc0(%rbp)
03
jg     1392 <syn_or_anti+0x252>
mov    -0x20(%rbp),%rax
mov    -0xa8(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0xc0(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0xd0(%rbp),%rax
mov    -0xb8(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0xc0(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0xc0(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0xc0(%rbp)
jmp    1334 <syn_or_anti+0x1f4>
jmp    1397 <syn_or_anti+0x257>
mov    -0xb8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0xb8(%rbp)
jmp    12f2 <syn_or_anti+0x1b2>
cmpq   $0x5,-0xb8(%rbp)
05
jne    13d0 <syn_or_anti+0x290>
mov    -0xd0(%rbp),%rdi
call   1060 <torsion@plt>
movsd  %xmm0,-0xc8(%rbp)
ff
movsd  -0xc8(%rbp),%xmm0
ff
movsd  0xc20(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     1418 <syn_or_anti+0x2d8>
movsd  0xc16(%rip),%xmm0
ucomisd -0xc8(%rbp),%xmm0
ff
jb     1418 <syn_or_anti+0x2d8>
mov    -0x30(%rbp),%rax
mov    -0xb0(%rbp),%rcx
movq   $0x1,(%rax,%rcx,8)
jmp    142b <syn_or_anti+0x2eb>
mov    -0x30(%rbp),%rax
mov    -0xb0(%rbp),%rcx
movq   $0x0,(%rax,%rcx,8)
jmp    1430 <syn_or_anti+0x2f0>
mov    -0xb0(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0xb0(%rbp)
jmp    118b <syn_or_anti+0x4b>
add    $0xd0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<syn_or_anti>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x68,%rsp
mov    %r9,0x48(%rsp)
mov    %r8,0x40(%rsp)
mov    %rcx,0x20(%rsp)
mov    %rdx,0x38(%rsp)
mov    %rsi,%r15
mov    %rdi,%rbp
mov    $0x1,%edi
mov    $0x4,%esi
mov    $0x1,%edx
mov    $0x3,%ecx
call   1050 <dmatrix@plt>
mov    %rax,0x18(%rsp)
mov    %rbp,0x30(%rsp)
test   %rbp,%rbp
jle    139e <syn_or_anti+0x25e>
xor    %r12d,%r12d
mov    %r15,0x28(%rsp)
jmp    11de <syn_or_anti+0x9e>
xchg   %ax,%ax
movsd  0x50(%rsp),%xmm1
ucomisd 0xe52(%rip),%xmm1
setae  %al
movsd  0xe4f(%rip),%xmm0
ucomisd %xmm1,%xmm0
setae  %cl
and    %al,%cl
movzbl %cl,%eax
mov    0x48(%rsp),%rcx
mov    %rax,0x8(%rcx,%r12,8)
add    $0x1,%r12
cmp    %r12,0x30(%rsp)
je     139e <syn_or_anti+0x25e>
mov    0x38(%rsp),%rax
mov    0x8(%rax,%r12,8),%rax
mov    0x8(%rax),%rbp
mov    0x10(%rax),%r13
lea    0xe19(%rip),%rdi
mov    %r15,%rsi
mov    %rbp,%rdx
mov    %r13,%rcx
lea    0xe21(%rip),%r14
mov    %r14,%r8
call   1040 <find_1st_atom@plt>
mov    %rax,0x60(%rsp)
lea    0xdfa(%rip),%rdi
mov    %r15,%rsi
mov    %rbp,%rdx
mov    %r13,%rcx
mov    %r14,%r8
call   1040 <find_1st_atom@plt>
mov    %rax,0x58(%rsp)
mov    0x40(%rsp),%rax
mov    0x8(%rax,%r12,8),%rax
lea    0xdd8(%rip),%rsi
lea    0xdd6(%rip),%rbx
cmp    $0x1,%rax
je     1262 <syn_or_anti+0x122>
test   %rax,%rax
jne    1279 <syn_or_anti+0x139>
lea    0xdc9(%rip),%rsi
lea    0xdc7(%rip),%rbx
lea    0xe(%rsp),%rdi
call   1030 <strcpy@plt>
lea    0x13(%rsp),%rdi
mov    %rbx,%rsi
call   1030 <strcpy@plt>
lea    0xe(%rsp),%rdi
mov    0x28(%rsp),%r15
mov    %r15,%rsi
mov    %rbp,%rdx
mov    %r13,%rcx
lea    0xd95(%rip),%rbx
mov    %rbx,%r8
call   1040 <find_1st_atom@plt>
mov    %rax,%r14
lea    0x13(%rsp),%rdi
mov    %r15,%rsi
mov    %rbp,%rdx
mov    %r13,%rcx
mov    %rbx,%r8
call   1040 <find_1st_atom@plt>
mov    0x60(%rsp),%rcx
test   %rcx,%rcx
je     11a0 <syn_or_anti+0x60>
mov    0x20(%rsp),%rsi
mov    (%rsi,%rcx,8),%rcx
mov    0x18(%rsp),%rdi
mov    0x8(%rdi),%rdx
movsd  0x8(%rcx),%xmm0
movsd  %xmm0,0x8(%rdx)
movsd  0x10(%rcx),%xmm0
movsd  %xmm0,0x10(%rdx)
movsd  0x18(%rcx),%xmm0
movsd  %xmm0,0x18(%rdx)
mov    0x58(%rsp),%rcx
test   %rcx,%rcx
je     11a0 <syn_or_anti+0x60>
mov    (%rsi,%rcx,8),%rcx
mov    0x10(%rdi),%rdx
movsd  0x8(%rcx),%xmm0
movsd  %xmm0,0x8(%rdx)
movsd  0x10(%rcx),%xmm0
movsd  %xmm0,0x10(%rdx)
movsd  0x18(%rcx),%xmm0
movsd  %xmm0,0x18(%rdx)
test   %r14,%r14
je     11a0 <syn_or_anti+0x60>
mov    (%rsi,%r14,8),%rcx
mov    0x18(%rdi),%rdx
movsd  0x8(%rcx),%xmm0
movsd  %xmm0,0x8(%rdx)
movsd  0x10(%rcx),%xmm0
movsd  %xmm0,0x10(%rdx)
movsd  0x18(%rcx),%xmm0
movsd  %xmm0,0x18(%rdx)
test   %rax,%rax
je     11a0 <syn_or_anti+0x60>
mov    0x20(%rsp),%rcx
mov    (%rcx,%rax,8),%rax
mov    0x18(%rsp),%rdi
mov    0x20(%rdi),%rcx
movsd  0x8(%rax),%xmm0
movsd  %xmm0,0x8(%rcx)
movsd  0x10(%rax),%xmm0
movsd  %xmm0,0x10(%rcx)
movsd  0x18(%rax),%xmm0
movsd  %xmm0,0x18(%rcx)
call   1060 <torsion@plt>
movsd  %xmm0,0x50(%rsp)
jmp    11a0 <syn_or_anti+0x60>
add    $0x68,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [5 x i8] c" O4'\00"
@.str.1 = [1 x i8] zeroinitializer
@.str.2 = [5 x i8] c" C1'\00"
@.str.3 = [5 x i8] c" N9 \00"
@.str.4 = [5 x i8] c" C4 \00"
@.str.5 = [5 x i8] c" N1 \00"
@.str.6 = [5 x i8] c" C2 \00"
define void @syn_or_anti(i64 %0, i8** %1, i64** %2, double** %3, i64* %4, i64* %5) {
%7 = alloca i64
%8 = alloca i8**
%9 = alloca i64**
%10 = alloca double**
%11 = alloca i64*
%12 = alloca i64*
%13 = alloca [5 x i8]
%14 = alloca [5 x i8]
%15 = alloca [10 x i64]
%16 = alloca i64
%17 = alloca i64
%18 = alloca i64
%19 = alloca i64
%20 = alloca i64
%21 = alloca i64
%22 = alloca double
%23 = alloca double**
store i64 %0, i64* %7
store i8** %1, i8*** %8
store i64** %2, i64*** %9
store double** %3, double*** %10
store i64* %4, i64** %11
store i64* %5, i64** %12
%24 = call double** @dmatrix(i32 1, i32 4, i32 1, i32 3)
store double** %24, double*** %23
store i64 1, i64* %19
br label %25
25: ; preds = %143, %6
%26 = load i64, i64* %19
%27 = load i64, i64* %7
%28 = icmp sle i64 %26, %27
br i1 %28, label %29, label %146
29: ; preds = %25
%30 = load i64**, i64*** %9
%31 = load i64, i64* %19
%32 = getelementptr inbounds i64*, i64** %30, i64 %31
%33 = load i64*, i64** %32
%34 = getelementptr inbounds i64, i64* %33, i64 1
%35 = load i64, i64* %34
store i64 %35, i64* %16
%36 = load i64**, i64*** %9
%37 = load i64, i64* %19
%38 = getelementptr inbounds i64*, i64** %36, i64 %37
%39 = load i64*, i64** %38
%40 = getelementptr inbounds i64, i64* %39, i64 2
%41 = load i64, i64* %40
store i64 %41, i64* %17
%42 = load i8**, i8*** %8
%43 = load i64, i64* %16
%44 = load i64, i64* %17
%45 = call i64 @find_1st_atom(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str, i64 0, i64 0), i8** %42, i64 %43, i64 %44, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0))
%46 = getelementptr inbounds [10 x i64], [10 x i64]* %15, i64 0, i64 1
store i64 %45, i64* %46
%47 = load i8**, i8*** %8
%48 = load i64, i64* %16
%49 = load i64, i64* %17
%50 = call i64 @find_1st_atom(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.2, i64 0, i64 0), i8** %47, i64 %48, i64 %49, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0))
%51 = getelementptr inbounds [10 x i64], [10 x i64]* %15, i64 0, i64 2
store i64 %50, i64* %51
%52 = load i64*, i64** %11
%53 = load i64, i64* %19
%54 = getelementptr inbounds i64, i64* %52, i64 %53
%55 = load i64, i64* %54
%56 = icmp eq i64 %55, 1
br i1 %56, label %57, label %62
57: ; preds = %29
%58 = getelementptr inbounds [5 x i8], [5 x i8]* %14, i64 0, i64 0
%59 = call i32 @strcpy(i8* %58, i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.3, i64 0, i64 0))
%60 = getelementptr inbounds [5 x i8], [5 x i8]* %13, i64 0, i64 0
%61 = call i32 @strcpy(i8* %60, i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.4, i64 0, i64 0))
br label %74
62: ; preds = %29
%63 = load i64*, i64** %11
%64 = load i64, i64* %19
%65 = getelementptr inbounds i64, i64* %63, i64 %64
%66 = load i64, i64* %65
%67 = icmp eq i64 %66, 0
br i1 %67, label %68, label %73
68: ; preds = %62
%69 = getelementptr inbounds [5 x i8], [5 x i8]* %14, i64 0, i64 0
%70 = call i32 @strcpy(i8* %69, i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.5, i64 0, i64 0))
%71 = getelementptr inbounds [5 x i8], [5 x i8]* %13, i64 0, i64 0
%72 = call i32 @strcpy(i8* %71, i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.6, i64 0, i64 0))
br label %73
73: ; preds = %68, %62
br label %74
74: ; preds = %73, %57
%75 = getelementptr inbounds [5 x i8], [5 x i8]* %14, i64 0, i64 0
%76 = load i8**, i8*** %8
%77 = load i64, i64* %16
%78 = load i64, i64* %17
%79 = call i64 @find_1st_atom(i8* %75, i8** %76, i64 %77, i64 %78, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0))
%80 = getelementptr inbounds [10 x i64], [10 x i64]* %15, i64 0, i64 3
store i64 %79, i64* %80
%81 = getelementptr inbounds [5 x i8], [5 x i8]* %13, i64 0, i64 0
%82 = load i8**, i8*** %8
%83 = load i64, i64* %16
%84 = load i64, i64* %17
%85 = call i64 @find_1st_atom(i8* %81, i8** %82, i64 %83, i64 %84, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0))
%86 = getelementptr inbounds [10 x i64], [10 x i64]* %15, i64 0, i64 4
store i64 %85, i64* %86
store i64 1, i64* %20
br label %87
87: ; preds = %119, %74
%88 = load i64, i64* %20
%89 = icmp sle i64 %88, 4
br i1 %89, label %90, label %122
90: ; preds = %87
%91 = load i64, i64* %20
%92 = getelementptr inbounds [10 x i64], [10 x i64]* %15, i64 0, i64 %91
%93 = load i64, i64* %92
store i64 %93, i64* %18
%94 = load i64, i64* %18
%95 = icmp ne i64 %94, 0
br i1 %95, label %97, label %96
96: ; preds = %90
br label %122
97: ; preds = %90
store i64 1, i64* %21
br label %98
98: ; preds = %115, %97
%99 = load i64, i64* %21
%100 = icmp sle i64 %99, 3
br i1 %100, label %101, label %118
101: ; preds = %98
%102 = load double**, double*** %10
%103 = load i64, i64* %18
%104 = getelementptr inbounds double*, double** %102, i64 %103
%105 = load double*, double** %104
%106 = load i64, i64* %21
%107 = getelementptr inbounds double, double* %105, i64 %106
%108 = load double, double* %107
%109 = load double**, double*** %23
%110 = load i64, i64* %20
%111 = getelementptr inbounds double*, double** %109, i64 %110
%112 = load double*, double** %111
%113 = load i64, i64* %21
%114 = getelementptr inbounds double, double* %112, i64 %113
store double %108, double* %114
br label %115
115: ; preds = %101
%116 = load i64, i64* %21
%117 = add nsw i64 %116, 1
store i64 %117, i64* %21
br label %98
118: ; preds = %98
br label %119
119: ; preds = %118
%120 = load i64, i64* %20
%121 = add nsw i64 %120, 1
store i64 %121, i64* %20
br label %87
122: ; preds = %96, %87
%123 = load i64, i64* %20
%124 = icmp eq i64 %123, 5
br i1 %124, label %125, label %128
125: ; preds = %122
%126 = load double**, double*** %23
%127 = call double @torsion(double** %126)
store double %127, double* %22
br label %128
128: ; preds = %125, %122
%129 = load double, double* %22
%130 = fcmp oge double %129, -9.000000e+01
br i1 %130, label %131, label %138
131: ; preds = %128
%132 = load double, double* %22
%133 = fcmp ole double %132, 9.000000e+01
br i1 %133, label %134, label %138
134: ; preds = %131
%135 = load i64*, i64** %12
%136 = load i64, i64* %19
%137 = getelementptr inbounds i64, i64* %135, i64 %136
store i64 1, i64* %137
br label %142
138: ; preds = %131, %128
%139 = load i64*, i64** %12
%140 = load i64, i64* %19
%141 = getelementptr inbounds i64, i64* %139, i64 %140
store i64 0, i64* %141
br label %142
142: ; preds = %138, %134
br label %143
143: ; preds = %142
%144 = load i64, i64* %19
%145 = add nsw i64 %144, 1
store i64 %145, i64* %19
br label %25
146: ; preds = %25
ret void
}

LLVM IR (-O2):
@.str = [5 x i8] c" O4'\00"
@.str.1 = [1 x i8] zeroinitializer
@.str.2 = [5 x i8] c" C1'\00"
@.str.3 = [5 x i8] c" N9 \00"
@.str.4 = [5 x i8] c" C4 \00"
@.str.5 = [5 x i8] c" N1 \00"
@.str.6 = [5 x i8] c" C2 \00"
define void @syn_or_anti(i64 %0, i8** %1, i64** nocapture %2, double** nocapture %3, i64* nocapture %4, i64* nocapture writeonly %5) {
%7 = alloca [5 x i8]
%8 = alloca [5 x i8]
%9 = getelementptr inbounds [5 x i8], [5 x i8]* %7, i64 0, i64 0
%10 = getelementptr inbounds [5 x i8], [5 x i8]* %8, i64 0, i64 0
%11 = tail call double** @dmatrix(i32 1, i32 4, i32 1, i32 3)
%12 = icmp slt i64 %0, 1
br i1 %12, label %106, label %13
13: ; preds = %6
%14 = getelementptr inbounds double*, double** %11, i64 1
%15 = getelementptr inbounds double*, double** %11, i64 2
%16 = getelementptr inbounds double*, double** %11, i64 3
%17 = getelementptr inbounds double*, double** %11, i64 4
br label %18
18: ; preds = %13, %97
%19 = phi i64 [ 1, %13 ], [ %104, %97 ]
%20 = phi double [ undef, %13 ], [ %98, %97 ]
%21 = getelementptr inbounds i64*, i64** %2, i64 %19
%22 = load i64*, i64** %21
%23 = getelementptr inbounds i64, i64* %22, i64 1
%24 = load i64, i64* %23
%25 = getelementptr inbounds i64, i64* %22, i64 2
%26 = load i64, i64* %25
%27 = call i64 @find_1st_atom(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str, i64 0, i64 0), i8** %1, i64 %24, i64 %26, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0))
%28 = call i64 @find_1st_atom(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.2, i64 0, i64 0), i8** %1, i64 %24, i64 %26, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0))
%29 = getelementptr inbounds i64, i64* %4, i64 %19
%30 = load i64, i64* %29
switch i64 %30, label %37 [
i64 1, label %32
i64 0, label %31
]
31: ; preds = %18
br label %32
32: ; preds = %18, %31
%33 = phi i8* [ getelementptr inbounds ([5 x i8], [5 x i8]* @.str.5, i64 0, i64 0), %31 ], [ getelementptr inbounds ([5 x i8], [5 x i8]* @.str.3, i64 0, i64 0), %18 ]
%34 = phi i8* [ getelementptr inbounds ([5 x i8], [5 x i8]* @.str.6, i64 0, i64 0), %31 ], [ getelementptr inbounds ([5 x i8], [5 x i8]* @.str.4, i64 0, i64 0), %18 ]
%35 = call i32 @strcpy(i8* %10, i8* %33)
%36 = call i32 @strcpy(i8* %9, i8* %34)
br label %37
37: ; preds = %32, %18
%38 = call i64 @find_1st_atom(i8* %10, i8** %1, i64 %24, i64 %26, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0))
%39 = call i64 @find_1st_atom(i8* %9, i8** %1, i64 %24, i64 %26, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0))
%40 = icmp eq i64 %27, 0
br i1 %40, label %97, label %41
41: ; preds = %37
%42 = getelementptr inbounds double*, double** %3, i64 %27
%43 = load double*, double** %42
%44 = load double*, double** %14
%45 = getelementptr inbounds double, double* %43, i64 1
%46 = load double, double* %45
%47 = getelementptr inbounds double, double* %44, i64 1
store double %46, double* %47
%48 = getelementptr inbounds double, double* %43, i64 2
%49 = load double, double* %48
%50 = getelementptr inbounds double, double* %44, i64 2
store double %49, double* %50
%51 = getelementptr inbounds double, double* %43, i64 3
%52 = load double, double* %51
%53 = getelementptr inbounds double, double* %44, i64 3
store double %52, double* %53
%54 = icmp eq i64 %28, 0
br i1 %54, label %97, label %55
55: ; preds = %41
%56 = getelementptr inbounds double*, double** %3, i64 %28
%57 = load double*, double** %56
%58 = load double*, double** %15
%59 = getelementptr inbounds double, double* %57, i64 1
%60 = load double, double* %59
%61 = getelementptr inbounds double, double* %58, i64 1
store double %60, double* %61
%62 = getelementptr inbounds double, double* %57, i64 2
%63 = load double, double* %62
%64 = getelementptr inbounds double, double* %58, i64 2
store double %63, double* %64
%65 = getelementptr inbounds double, double* %57, i64 3
%66 = load double, double* %65
%67 = getelementptr inbounds double, double* %58, i64 3
store double %66, double* %67
%68 = icmp eq i64 %38, 0
br i1 %68, label %97, label %69
69: ; preds = %55
%70 = getelementptr inbounds double*, double** %3, i64 %38
%71 = load double*, double** %70
%72 = load double*, double** %16
%73 = getelementptr inbounds double, double* %71, i64 1
%74 = load double, double* %73
%75 = getelementptr inbounds double, double* %72, i64 1
store double %74, double* %75
%76 = getelementptr inbounds double, double* %71, i64 2
%77 = load double, double* %76
%78 = getelementptr inbounds double, double* %72, i64 2
store double %77, double* %78
%79 = getelementptr inbounds double, double* %71, i64 3
%80 = load double, double* %79
%81 = getelementptr inbounds double, double* %72, i64 3
store double %80, double* %81
%82 = icmp eq i64 %39, 0
br i1 %82, label %97, label %83
83: ; preds = %69
%84 = getelementptr inbounds double*, double** %3, i64 %39
%85 = load double*, double** %84
%86 = load double*, double** %17
%87 = getelementptr inbounds double, double* %85, i64 1
%88 = load double, double* %87
%89 = getelementptr inbounds double, double* %86, i64 1
store double %88, double* %89
%90 = getelementptr inbounds double, double* %85, i64 2
%91 = load double, double* %90
%92 = getelementptr inbounds double, double* %86, i64 2
store double %91, double* %92
%93 = getelementptr inbounds double, double* %85, i64 3
%94 = load double, double* %93
%95 = getelementptr inbounds double, double* %86, i64 3
store double %94, double* %95
%96 = call double @torsion(double** %11)
br label %97
97: ; preds = %37, %41, %55, %69, %83
%98 = phi double [ %96, %83 ], [ %20, %69 ], [ %20, %55 ], [ %20, %41 ], [ %20, %37 ]
%99 = fcmp oge double %98, -9.000000e+01
%100 = fcmp ole double %98, 9.000000e+01
%101 = and i1 %99, %100
%102 = zext i1 %101 to i64
%103 = getelementptr inbounds i64, i64* %5, i64 %19
store i64 %102, i64* %103
%104 = add nuw i64 %19, 1
%105 = icmp eq i64 %19, %0
br i1 %105, label %106, label %18
106: ; preds = %97, %6
ret void
}