#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 fabs(double);
void projgr_(int n, double *l, double *u, int *nbd, double *x, double *g,
             double *sbgnrm) {
  double d1, d2, gi;
  int i;
  *sbgnrm = 0;
  for (i = 0; i < n; ++i) {
    gi = g[i];
    if (nbd[i] != 0) {
      if (gi < 0) {
        if (nbd[i] >= 2) {
          d1 = x[i] - u[i];
          gi = ((d1) >= (gi) ? (d1) : (gi));
        }
      } else {
        if (nbd[i] <= 2) {
          d1 = x[i] - l[i];
          gi = ((d1) <= (gi) ? (d1) : (gi));
        }
      }
    }
    d1 = *sbgnrm, d2 = fabs(gi);
    *sbgnrm = ((d1) >= (d2) ? (d1) : (d2));
  }
}


x86 assembly (clang, -O0):
<projgr_>:
push   %rbp
mov    %rsp,%rbp
mov    0x10(%rbp),%rax
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    0x10(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
movl   $0x0,-0x4c(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    12b0 <projgr_+0x1b0>
mov    -0x30(%rbp),%rax
movslq -0x4c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x4c(%rbp),%rcx
cmpl   $0x0,(%rax,%rcx,4)
je     124a <projgr_+0x14a>
xorps  %xmm0,%xmm0
ucomisd -0x48(%rbp),%xmm0
jbe    11d8 <projgr_+0xd8>
mov    -0x20(%rbp),%rax
movslq -0x4c(%rbp),%rcx
cmpl   $0x2,(%rax,%rcx,4)
jl     11d3 <projgr_+0xd3>
mov    -0x28(%rbp),%rax
movslq -0x4c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x4c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm0
ucomisd -0x48(%rbp),%xmm0
jb     11bf <projgr_+0xbf>
movsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
jmp    11c9 <projgr_+0xc9>
movsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
jmp    1245 <projgr_+0x145>
mov    -0x20(%rbp),%rax
movslq -0x4c(%rbp),%rcx
cmpl   $0x2,(%rax,%rcx,4)
jg     1240 <projgr_+0x140>
mov    -0x28(%rbp),%rax
movslq -0x4c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x4c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm1
movsd  -0x48(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jb     122c <projgr_+0x12c>
movsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
jmp    1236 <projgr_+0x136>
movsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x60(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
jmp    1245 <projgr_+0x145>
jmp    124a <projgr_+0x14a>
mov    0x10(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x48(%rbp),%xmm0
movaps 0xd9d(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x38(%rbp),%xmm0
ucomisd -0x40(%rbp),%xmm0
jb     128b <projgr_+0x18b>
movsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
jmp    1295 <projgr_+0x195>
movsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x68(%rbp),%xmm0
mov    0x10(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
jmp    1131 <projgr_+0x31>
pop    %rbp
ret

x86 assembly (clang, -O2):
<projgr_>:
mov    0x8(%rsp),%r10
movq   $0x0,(%r10)
test   %edi,%edi
jle    11be <projgr_+0xbe>
mov    %edi,%r11d
xorpd  %xmm0,%xmm0
xor    %eax,%eax
movapd 0xedb(%rip),%xmm1
xorpd  %xmm2,%xmm2
jmp    1167 <projgr_+0x67>
nopl   0x0(%rax,%rax,1)
andpd  %xmm5,%xmm4
andnpd %xmm3,%xmm5
orpd   %xmm4,%xmm5
movapd %xmm5,%xmm3
andpd  %xmm1,%xmm3
movapd %xmm3,%xmm4
cmplesd %xmm2,%xmm4
andpd  %xmm4,%xmm2
andnpd %xmm3,%xmm4
orpd   %xmm4,%xmm2
movlpd %xmm2,(%r10)
add    $0x1,%rax
cmp    %rax,%r11
je     11be <projgr_+0xbe>
movsd  (%r9,%rax,8),%xmm3
mov    (%rcx,%rax,4),%edi
test   %edi,%edi
je     1140 <projgr_+0x40>
ucomisd %xmm3,%xmm0
jbe    11a0 <projgr_+0xa0>
cmp    $0x2,%edi
jl     1140 <projgr_+0x40>
movsd  (%r8,%rax,8),%xmm4
subsd  (%rdx,%rax,8),%xmm4
movapd %xmm3,%xmm5
cmplesd %xmm4,%xmm5
jmp    1130 <projgr_+0x30>
cs nopw 0x0(%rax,%rax,1)
nop
cmp    $0x2,%edi
jg     1140 <projgr_+0x40>
movsd  (%r8,%rax,8),%xmm4
subsd  (%rsi,%rax,8),%xmm4
movapd %xmm4,%xmm5
cmplesd %xmm3,%xmm5
jmp    1130 <projgr_+0x30>
ret

LLVM IR (-O0):
define void @projgr_(i32 %0, double* %1, double* %2, i32* %3, double* %4, double* %5, double* %6) {
%8 = alloca i32
%9 = alloca double*
%10 = alloca double*
%11 = alloca i32*
%12 = alloca double*
%13 = alloca double*
%14 = alloca double*
%15 = alloca double
%16 = alloca double
%17 = alloca double
%18 = alloca i32
store i32 %0, i32* %8
store double* %1, double** %9
store double* %2, double** %10
store i32* %3, i32** %11
store double* %4, double** %12
store double* %5, double** %13
store double* %6, double** %14
%19 = load double*, double** %14
store double 0.000000e+00, double* %19
store i32 0, i32* %18
br label %20
20: ; preds = %113, %7
%21 = load i32, i32* %18
%22 = load i32, i32* %8
%23 = icmp slt i32 %21, %22
br i1 %23, label %24, label %116
24: ; preds = %20
%25 = load double*, double** %13
%26 = load i32, i32* %18
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds double, double* %25, i64 %27
%29 = load double, double* %28
store double %29, double* %17
%30 = load i32*, i32** %11
%31 = load i32, i32* %18
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i32, i32* %30, i64 %32
%34 = load i32, i32* %33
%35 = icmp ne i32 %34, 0
br i1 %35, label %36, label %98
36: ; preds = %24
%37 = load double, double* %17
%38 = fcmp olt double %37, 0.000000e+00
br i1 %38, label %39, label %68
39: ; preds = %36
%40 = load i32*, i32** %11
%41 = load i32, i32* %18
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds i32, i32* %40, i64 %42
%44 = load i32, i32* %43
%45 = icmp sge i32 %44, 2
br i1 %45, label %46, label %67
46: ; preds = %39
%47 = load double*, double** %12
%48 = load i32, i32* %18
%49 = sext i32 %48 to i64
%50 = getelementptr inbounds double, double* %47, i64 %49
%51 = load double, double* %50
%52 = load double*, double** %10
%53 = load i32, i32* %18
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds double, double* %52, i64 %54
%56 = load double, double* %55
%57 = fsub double %51, %56
store double %57, double* %15
%58 = load double, double* %15
%59 = load double, double* %17
%60 = fcmp oge double %58, %59
br i1 %60, label %61, label %63
61: ; preds = %46
%62 = load double, double* %15
br label %65
63: ; preds = %46
%64 = load double, double* %17
br label %65
65: ; preds = %63, %61
%66 = phi double [ %62, %61 ], [ %64, %63 ]
store double %66, double* %17
br label %67
67: ; preds = %65, %39
br label %97
68: ; preds = %36
%69 = load i32*, i32** %11
%70 = load i32, i32* %18
%71 = sext i32 %70 to i64
%72 = getelementptr inbounds i32, i32* %69, i64 %71
%73 = load i32, i32* %72
%74 = icmp sle i32 %73, 2
br i1 %74, label %75, label %96
75: ; preds = %68
%76 = load double*, double** %12
%77 = load i32, i32* %18
%78 = sext i32 %77 to i64
%79 = getelementptr inbounds double, double* %76, i64 %78
%80 = load double, double* %79
%81 = load double*, double** %9
%82 = load i32, i32* %18
%83 = sext i32 %82 to i64
%84 = getelementptr inbounds double, double* %81, i64 %83
%85 = load double, double* %84
%86 = fsub double %80, %85
store double %86, double* %15
%87 = load double, double* %15
%88 = load double, double* %17
%89 = fcmp ole double %87, %88
br i1 %89, label %90, label %92
90: ; preds = %75
%91 = load double, double* %15
br label %94
92: ; preds = %75
%93 = load double, double* %17
br label %94
94: ; preds = %92, %90
%95 = phi double [ %91, %90 ], [ %93, %92 ]
store double %95, double* %17
br label %96
96: ; preds = %94, %68
br label %97
97: ; preds = %96, %67
br label %98
98: ; preds = %97, %24
%99 = load double*, double** %14
%100 = load double, double* %99
store double %100, double* %15
%101 = load double, double* %17
%102 = call double @llvm.fabs.f64(double %101)
store double %102, double* %16
%103 = load double, double* %15
%104 = load double, double* %16
%105 = fcmp oge double %103, %104
br i1 %105, label %106, label %108
106: ; preds = %98
%107 = load double, double* %15
br label %110
108: ; preds = %98
%109 = load double, double* %16
br label %110
110: ; preds = %108, %106
%111 = phi double [ %107, %106 ], [ %109, %108 ]
%112 = load double*, double** %14
store double %111, double* %112
br label %113
113: ; preds = %110
%114 = load i32, i32* %18
%115 = add nsw i32 %114, 1
store i32 %115, i32* %18
br label %20
116: ; preds = %20
ret void
}

LLVM IR (-O2):
define void @projgr_(i32 %0, double* nocapture %1, double* nocapture %2, i32* nocapture %3, double* nocapture %4, double* nocapture %5, double* nocapture %6) {
store double 0.000000e+00, double* %6
%8 = icmp sgt i32 %0, 0
br i1 %8, label %9, label %48
9: ; preds = %7
%10 = zext i32 %0 to i64
br label %11
11: ; preds = %9, %41
%12 = phi double [ 0.000000e+00, %9 ], [ %45, %41 ]
%13 = phi i64 [ 0, %9 ], [ %46, %41 ]
%14 = getelementptr inbounds double, double* %5, i64 %13
%15 = load double, double* %14
%16 = getelementptr inbounds i32, i32* %3, i64 %13
%17 = load i32, i32* %16
%18 = icmp eq i32 %17, 0
br i1 %18, label %41, label %19
19: ; preds = %11
%20 = fcmp olt double %15, 0.000000e+00
br i1 %20, label %21, label %31
21: ; preds = %19
%22 = icmp sgt i32 %17, 1
br i1 %22, label %23, label %41
23: ; preds = %21
%24 = getelementptr inbounds double, double* %4, i64 %13
%25 = load double, double* %24
%26 = getelementptr inbounds double, double* %2, i64 %13
%27 = load double, double* %26
%28 = fsub double %25, %27
%29 = fcmp oge double %28, %15
%30 = select i1 %29, double %28, double %15
br label %41
31: ; preds = %19
%32 = icmp slt i32 %17, 3
br i1 %32, label %33, label %41
33: ; preds = %31
%34 = getelementptr inbounds double, double* %4, i64 %13
%35 = load double, double* %34
%36 = getelementptr inbounds double, double* %1, i64 %13
%37 = load double, double* %36
%38 = fsub double %35, %37
%39 = fcmp ole double %38, %15
%40 = select i1 %39, double %38, double %15
br label %41
41: ; preds = %23, %21, %33, %31, %11
%42 = phi double [ %30, %23 ], [ %15, %21 ], [ %40, %33 ], [ %15, %31 ], [ %15, %11 ]
%43 = tail call double @llvm.fabs.f64(double %42)
%44 = fcmp oge double %12, %43
%45 = select i1 %44, double %12, double %43
store double %45, double* %6
%46 = add nuw nsw i64 %13, 1
%47 = icmp eq i64 %46, %10
br i1 %47, label %48, label %11
48: ; preds = %41, %7
ret void
}