int PB_Cnumroc(int N, int I, int INB, int NB, int PROC, int SRCPROC,
               int NPROCS) {
  int ilocblk, mydist, nblocks;
  if ((SRCPROC == -1) || (NPROCS == 1))
    return (N);
  if ((INB -= I) <= 0) {
    nblocks = (-INB) / NB + 1;
    SRCPROC += nblocks;
    SRCPROC -= (SRCPROC / NPROCS) * NPROCS;
    INB += nblocks * NB;
  }
  if (PROC == SRCPROC) {
    if (N <= INB)
      return (N);
    nblocks = (N - INB) / NB + 1;
    if (nblocks < NPROCS)
      return (INB);
    ilocblk = nblocks / NPROCS;
    return ((nblocks - ilocblk * NPROCS) ? INB + ilocblk * NB
                                         : N + (ilocblk - nblocks) * NB);
  } else {
    if (N <= INB)
      return (0);
    nblocks = (N - INB) / NB + 1;
    if ((mydist = PROC - SRCPROC) < 0)
      mydist += NPROCS;
    if (nblocks < NPROCS)
      return ((mydist < nblocks)
                  ? NB
                  : ((mydist > nblocks) ? 0 : N - INB + NB * (1 - nblocks)));
    ilocblk = nblocks / NPROCS;
    mydist -= nblocks - ilocblk * NPROCS;
    return ((mydist < 0)
                ? (ilocblk + 1) * NB
                : ((mydist > 0) ? ilocblk * NB
                                : N - INB + NB * (ilocblk - nblocks + 1)));
  }
}


x86 assembly (clang, -O0):
<PB_Cnumroc>:
push   %rbp
mov    %rsp,%rbp
mov    0x10(%rbp),%eax
mov    %edi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    %r8d,-0x18(%rbp)
mov    %r9d,-0x1c(%rbp)
cmpl   $0xffffffff,-0x1c(%rbp)
je     112f <PB_Cnumroc+0x2f>
cmpl   $0x1,0x10(%rbp)
jne    113a <PB_Cnumroc+0x3a>
mov    -0x8(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1341 <PB_Cnumroc+0x241>
mov    -0xc(%rbp),%ecx
mov    -0x10(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x10(%rbp)
cmp    $0x0,%eax
jg     1188 <PB_Cnumroc+0x88>
xor    %eax,%eax
sub    -0x10(%rbp),%eax
cltd
idivl  -0x14(%rbp)
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
add    -0x1c(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cltd
idivl  0x10(%rbp)
mov    %eax,%ecx
imul   0x10(%rbp),%ecx
mov    -0x1c(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x28(%rbp),%eax
imul   -0x14(%rbp),%eax
add    -0x10(%rbp),%eax
mov    %eax,-0x10(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jne    1222 <PB_Cnumroc+0x122>
mov    -0x8(%rbp),%eax
cmp    -0x10(%rbp),%eax
jg     11ab <PB_Cnumroc+0xab>
mov    -0x8(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1341 <PB_Cnumroc+0x241>
mov    -0x8(%rbp),%eax
sub    -0x10(%rbp),%eax
cltd
idivl  -0x14(%rbp)
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    0x10(%rbp),%eax
jge    11d2 <PB_Cnumroc+0xd2>
mov    -0x10(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1341 <PB_Cnumroc+0x241>
mov    -0x28(%rbp),%eax
cltd
idivl  0x10(%rbp)
mov    %eax,-0x20(%rbp)
mov    -0x28(%rbp),%eax
mov    -0x20(%rbp),%ecx
imul   0x10(%rbp),%ecx
sub    %ecx,%eax
cmp    $0x0,%eax
je     1205 <PB_Cnumroc+0x105>
mov    -0x10(%rbp),%eax
mov    -0x20(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x2c(%rbp)
jmp    1217 <PB_Cnumroc+0x117>
mov    -0x8(%rbp),%eax
mov    -0x20(%rbp),%ecx
sub    -0x28(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1341 <PB_Cnumroc+0x241>
mov    -0x8(%rbp),%eax
cmp    -0x10(%rbp),%eax
jg     123a <PB_Cnumroc+0x13a>
movl   $0x0,-0x4(%rbp)
jmp    1341 <PB_Cnumroc+0x241>
mov    -0x8(%rbp),%eax
sub    -0x10(%rbp),%eax
cltd
idivl  -0x14(%rbp)
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x18(%rbp),%eax
sub    -0x1c(%rbp),%eax
mov    %eax,-0x24(%rbp)
cmp    $0x0,%eax
jge    1265 <PB_Cnumroc+0x165>
mov    0x10(%rbp),%eax
add    -0x24(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x28(%rbp),%eax
cmp    0x10(%rbp),%eax
jge    12c8 <PB_Cnumroc+0x1c8>
mov    -0x24(%rbp),%eax
cmp    -0x28(%rbp),%eax
jge    1288 <PB_Cnumroc+0x188>
mov    -0x14(%rbp),%eax
mov    %eax,-0x30(%rbp)
jmp    12bd <PB_Cnumroc+0x1bd>
mov    -0x24(%rbp),%eax
cmp    -0x28(%rbp),%eax
jle    129e <PB_Cnumroc+0x19e>
xor    %eax,%eax
mov    %eax,-0x34(%rbp)
jmp    12b7 <PB_Cnumroc+0x1b7>
mov    -0x8(%rbp),%eax
sub    -0x10(%rbp),%eax
mov    -0x14(%rbp),%ecx
mov    $0x1,%edx
sub    -0x28(%rbp),%edx
imul   %edx,%ecx
add    %ecx,%eax
mov    %eax,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1341 <PB_Cnumroc+0x241>
mov    -0x28(%rbp),%eax
cltd
idivl  0x10(%rbp)
mov    %eax,-0x20(%rbp)
mov    -0x28(%rbp),%ecx
mov    -0x20(%rbp),%eax
imul   0x10(%rbp),%eax
sub    %eax,%ecx
mov    -0x24(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x24(%rbp)
cmpl   $0x0,-0x24(%rbp)
jge    1302 <PB_Cnumroc+0x202>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
imul   -0x14(%rbp),%eax
mov    %eax,-0x38(%rbp)
jmp    133b <PB_Cnumroc+0x23b>
cmpl   $0x0,-0x24(%rbp)
jle    131b <PB_Cnumroc+0x21b>
mov    -0x20(%rbp),%eax
imul   -0x14(%rbp),%eax
mov    %eax,-0x3c(%rbp)
jmp    1335 <PB_Cnumroc+0x235>
mov    -0x8(%rbp),%eax
sub    -0x10(%rbp),%eax
mov    -0x14(%rbp),%ecx
mov    -0x20(%rbp),%edx
sub    -0x28(%rbp),%edx
add    $0x1,%edx
imul   %edx,%ecx
add    %ecx,%eax
mov    %eax,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<PB_Cnumroc>:
push   %rbx
cmp    $0xffffffff,%r9d
je     113b <PB_Cnumroc+0x3b>
mov    0x10(%rsp),%r11d
cmp    $0x1,%r11d
je     113b <PB_Cnumroc+0x3b>
mov    %edx,%r10d
sub    %esi,%r10d
jle    113f <PB_Cnumroc+0x3f>
cmp    %r8d,%r9d
jne    1164 <PB_Cnumroc+0x64>
cmp    %edi,%r10d
jge    113b <PB_Cnumroc+0x3b>
mov    %edi,%eax
sub    %r10d,%eax
cltd
idiv   %ecx
mov    %eax,%esi
add    $0x1,%esi
cmp    %r11d,%esi
jge    11a0 <PB_Cnumroc+0xa0>
mov    %r10d,%eax
pop    %rbx
ret
mov    %edi,%eax
pop    %rbx
ret
mov    %r10d,%eax
cltd
idiv   %ecx
mov    $0x1,%esi
sub    %eax,%esi
add    %esi,%r9d
mov    %r9d,%eax
cltd
idiv   %r11d
imul   %ecx,%esi
add    %esi,%r10d
mov    %edx,%r9d
cmp    %r8d,%r9d
je     111f <PB_Cnumroc+0x1f>
xor    %eax,%eax
cmp    %edi,%r10d
jge    11cf <PB_Cnumroc+0xcf>
sub    %r10d,%edi
mov    %edi,%eax
cltd
idiv   %ecx
mov    %eax,%r10d
lea    0x1(%r10),%ebx
sub    %r9d,%r8d
mov    %r8d,%esi
sar    $0x1f,%esi
and    %r11d,%esi
add    %r8d,%esi
cmp    %r11d,%ebx
jge    11b3 <PB_Cnumroc+0xb3>
mov    %ecx,%eax
cmp    %r10d,%esi
jle    11cf <PB_Cnumroc+0xcf>
xor    %eax,%eax
cmp    %ebx,%esi
cmovg  %eax,%edx
mov    %edx,%eax
pop    %rbx
ret
mov    %esi,%eax
cltd
idiv   %r11d
imul   %eax,%r11d
cmp    %r11d,%esi
jne    11d1 <PB_Cnumroc+0xd1>
sub    %esi,%eax
jmp    11ca <PB_Cnumroc+0xca>
mov    %ebx,%eax
cltd
idiv   %r11d
imul   %eax,%r11d
sub    %ebx,%r11d
add    %esi,%r11d
js     11d9 <PB_Cnumroc+0xd9>
jne    11dc <PB_Cnumroc+0xdc>
sub    %r10d,%eax
imul   %ecx,%eax
add    %edi,%eax
pop    %rbx
ret
imul   %ecx,%eax
add    %r10d,%eax
pop    %rbx
ret
add    $0x1,%eax
imul   %ecx,%eax
pop    %rbx
ret

LLVM IR (-O0):
define i32 @PB_Cnumroc(i32 %0, i32 %1, i32 %2, i32 %3, i32 %4, i32 %5, i32 %6) {
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
%18 = alloca i32
store i32 %0, i32* %9
store i32 %1, i32* %10
store i32 %2, i32* %11
store i32 %3, i32* %12
store i32 %4, i32* %13
store i32 %5, i32* %14
store i32 %6, i32* %15
%19 = load i32, i32* %14
%20 = icmp eq i32 %19, -1
br i1 %20, label %24, label %21
21: ; preds = %7
%22 = load i32, i32* %15
%23 = icmp eq i32 %22, 1
br i1 %23, label %24, label %26
24: ; preds = %21, %7
%25 = load i32, i32* %9
store i32 %25, i32* %8
br label %188
26: ; preds = %21
%27 = load i32, i32* %10
%28 = load i32, i32* %11
%29 = sub nsw i32 %28, %27
store i32 %29, i32* %11
%30 = icmp sle i32 %29, 0
br i1 %30, label %31, label %52
31: ; preds = %26
%32 = load i32, i32* %11
%33 = sub nsw i32 0, %32
%34 = load i32, i32* %12
%35 = sdiv i32 %33, %34
%36 = add nsw i32 %35, 1
store i32 %36, i32* %18
%37 = load i32, i32* %18
%38 = load i32, i32* %14
%39 = add nsw i32 %38, %37
store i32 %39, i32* %14
%40 = load i32, i32* %14
%41 = load i32, i32* %15
%42 = sdiv i32 %40, %41
%43 = load i32, i32* %15
%44 = mul nsw i32 %42, %43
%45 = load i32, i32* %14
%46 = sub nsw i32 %45, %44
store i32 %46, i32* %14
%47 = load i32, i32* %18
%48 = load i32, i32* %12
%49 = mul nsw i32 %47, %48
%50 = load i32, i32* %11
%51 = add nsw i32 %50, %49
store i32 %51, i32* %11
br label %52
52: ; preds = %31, %26
%53 = load i32, i32* %13
%54 = load i32, i32* %14
%55 = icmp eq i32 %53, %54
br i1 %55, label %56, label %100
56: ; preds = %52
%57 = load i32, i32* %9
%58 = load i32, i32* %11
%59 = icmp sle i32 %57, %58
br i1 %59, label %60, label %62
60: ; preds = %56
%61 = load i32, i32* %9
store i32 %61, i32* %8
br label %188
62: ; preds = %56
%63 = load i32, i32* %9
%64 = load i32, i32* %11
%65 = sub nsw i32 %63, %64
%66 = load i32, i32* %12
%67 = sdiv i32 %65, %66
%68 = add nsw i32 %67, 1
store i32 %68, i32* %18
%69 = load i32, i32* %18
%70 = load i32, i32* %15
%71 = icmp slt i32 %69, %70
br i1 %71, label %72, label %74
72: ; preds = %62
%73 = load i32, i32* %11
store i32 %73, i32* %8
br label %188
74: ; preds = %62
%75 = load i32, i32* %18
%76 = load i32, i32* %15
%77 = sdiv i32 %75, %76
store i32 %77, i32* %16
%78 = load i32, i32* %18
%79 = load i32, i32* %16
%80 = load i32, i32* %15
%81 = mul nsw i32 %79, %80
%82 = sub nsw i32 %78, %81
%83 = icmp ne i32 %82, 0
br i1 %83, label %84, label %90
84: ; preds = %74
%85 = load i32, i32* %11
%86 = load i32, i32* %16
%87 = load i32, i32* %12
%88 = mul nsw i32 %86, %87
%89 = add nsw i32 %85, %88
br label %98
90: ; preds = %74
%91 = load i32, i32* %9
%92 = load i32, i32* %16
%93 = load i32, i32* %18
%94 = sub nsw i32 %92, %93
%95 = load i32, i32* %12
%96 = mul nsw i32 %94, %95
%97 = add nsw i32 %91, %96
br label %98
98: ; preds = %90, %84
%99 = phi i32 [ %89, %84 ], [ %97, %90 ]
store i32 %99, i32* %8
br label %188
100: ; preds = %52
%101 = load i32, i32* %9
%102 = load i32, i32* %11
%103 = icmp sle i32 %101, %102
br i1 %103, label %104, label %105
104: ; preds = %100
store i32 0, i32* %8
br label %188
105: ; preds = %100
%106 = load i32, i32* %9
%107 = load i32, i32* %11
%108 = sub nsw i32 %106, %107
%109 = load i32, i32* %12
%110 = sdiv i32 %108, %109
%111 = add nsw i32 %110, 1
store i32 %111, i32* %18
%112 = load i32, i32* %13
%113 = load i32, i32* %14
%114 = sub nsw i32 %112, %113
store i32 %114, i32* %17
%115 = icmp slt i32 %114, 0
br i1 %115, label %116, label %120
116: ; preds = %105
%117 = load i32, i32* %15
%118 = load i32, i32* %17
%119 = add nsw i32 %118, %117
store i32 %119, i32* %17
br label %120
120: ; preds = %116, %105
%121 = load i32, i32* %18
%122 = load i32, i32* %15
%123 = icmp slt i32 %121, %122
br i1 %123, label %124, label %148
124: ; preds = %120
%125 = load i32, i32* %17
%126 = load i32, i32* %18
%127 = icmp slt i32 %125, %126
br i1 %127, label %128, label %130
128: ; preds = %124
%129 = load i32, i32* %12
br label %146
130: ; preds = %124
%131 = load i32, i32* %17
%132 = load i32, i32* %18
%133 = icmp sgt i32 %131, %132
br i1 %133, label %134, label %135
134: ; preds = %130
br label %144
135: ; preds = %130
%136 = load i32, i32* %9
%137 = load i32, i32* %11
%138 = sub nsw i32 %136, %137
%139 = load i32, i32* %12
%140 = load i32, i32* %18
%141 = sub nsw i32 1, %140
%142 = mul nsw i32 %139, %141
%143 = add nsw i32 %138, %142
br label %144
144: ; preds = %135, %134
%145 = phi i32 [ 0, %134 ], [ %143, %135 ]
br label %146
146: ; preds = %144, %128
%147 = phi i32 [ %129, %128 ], [ %145, %144 ]
store i32 %147, i32* %8
br label %188
148: ; preds = %120
%149 = load i32, i32* %18
%150 = load i32, i32* %15
%151 = sdiv i32 %149, %150
store i32 %151, i32* %16
%152 = load i32, i32* %18
%153 = load i32, i32* %16
%154 = load i32, i32* %15
%155 = mul nsw i32 %153, %154
%156 = sub nsw i32 %152, %155
%157 = load i32, i32* %17
%158 = sub nsw i32 %157, %156
store i32 %158, i32* %17
%159 = load i32, i32* %17
%160 = icmp slt i32 %159, 0
br i1 %160, label %161, label %166
161: ; preds = %148
%162 = load i32, i32* %16
%163 = add nsw i32 %162, 1
%164 = load i32, i32* %12
%165 = mul nsw i32 %163, %164
br label %186
166: ; preds = %148
%167 = load i32, i32* %17
%168 = icmp sgt i32 %167, 0
br i1 %168, label %169, label %173
169: ; preds = %166
%170 = load i32, i32* %16
%171 = load i32, i32* %12
%172 = mul nsw i32 %170, %171
br label %184
173: ; preds = %166
%174 = load i32, i32* %9
%175 = load i32, i32* %11
%176 = sub nsw i32 %174, %175
%177 = load i32, i32* %12
%178 = load i32, i32* %16
%179 = load i32, i32* %18
%180 = sub nsw i32 %178, %179
%181 = add nsw i32 %180, 1
%182 = mul nsw i32 %177, %181
%183 = add nsw i32 %176, %182
br label %184
184: ; preds = %173, %169
%185 = phi i32 [ %172, %169 ], [ %183, %173 ]
br label %186
186: ; preds = %184, %161
%187 = phi i32 [ %165, %161 ], [ %185, %184 ]
store i32 %187, i32* %8
br label %188
188: ; preds = %186, %146, %104, %98, %72, %60, %24
%189 = load i32, i32* %8
ret i32 %189
}

LLVM IR (-O2):
define i32 @PB_Cnumroc(i32 %0, i32 %1, i32 %2, i32 %3, i32 %4, i32 %5, i32 %6) {
%8 = icmp eq i32 %5, -1
%9 = icmp eq i32 %6, 1
%10 = or i1 %8, %9
br i1 %10, label %77, label %11
11: ; preds = %7
%12 = sub nsw i32 %2, %1
%13 = icmp slt i32 %12, 1
br i1 %13, label %14, label %21
14: ; preds = %11
%15 = sdiv i32 %12, %3
%16 = sub i32 1, %15
%17 = add nsw i32 %16, %5
%18 = srem i32 %17, %6
%19 = mul nsw i32 %16, %3
%20 = add nsw i32 %19, %12
br label %21
21: ; preds = %14, %11
%22 = phi i32 [ %20, %14 ], [ %12, %11 ]
%23 = phi i32 [ %18, %14 ], [ %5, %11 ]
%24 = icmp eq i32 %23, %4
%25 = icmp slt i32 %22, %0
br i1 %24, label %26, label %43
26: ; preds = %21
br i1 %25, label %27, label %77
27: ; preds = %26
%28 = sub nsw i32 %0, %22
%29 = sdiv i32 %28, %3
%30 = add nsw i32 %29, 1
%31 = icmp slt i32 %30, %6
br i1 %31, label %77, label %32
32: ; preds = %27
%33 = sdiv i32 %30, %6
%34 = mul nsw i32 %33, %6
%35 = icmp eq i32 %30, %34
br i1 %35, label %39, label %36
36: ; preds = %32
%37 = mul nsw i32 %33, %3
%38 = add nsw i32 %37, %22
br label %77
39: ; preds = %32
%40 = sub nsw i32 %33, %30
%41 = mul nsw i32 %40, %3
%42 = add nsw i32 %41, %0
br label %77
43: ; preds = %21
br i1 %25, label %44, label %77
44: ; preds = %43
%45 = sub nsw i32 %0, %22
%46 = sdiv i32 %45, %3
%47 = srem i32 %45, %3
%48 = add nsw i32 %46, 1
%49 = sub nsw i32 %4, %23
%50 = icmp slt i32 %49, 0
%51 = select i1 %50, i32 %6, i32 0
%52 = add nsw i32 %51, %49
%53 = icmp slt i32 %48, %6
br i1 %53, label %54, label %60
54: ; preds = %44
%55 = icmp sgt i32 %52, %46
br i1 %55, label %56, label %77
56: ; preds = %54
%57 = icmp sgt i32 %52, %48
%58 = mul i32 %46, %3
%59 = select i1 %57, i32 0, i32 %47
br label %77
60: ; preds = %44
%61 = sdiv i32 %48, %6
%62 = mul nsw i32 %61, %6
%63 = sub i32 %62, %48
%64 = add i32 %63, %52
%65 = icmp slt i32 %64, 0
br i1 %65, label %66, label %69
66: ; preds = %60
%67 = add nsw i32 %61, 1
%68 = mul nsw i32 %67, %3
br label %77
69: ; preds = %60
%70 = icmp eq i32 %64, 0
br i1 %70, label %73, label %71
71: ; preds = %69
%72 = mul nsw i32 %61, %3
br label %77
73: ; preds = %69
%74 = sub i32 %61, %46
%75 = mul nsw i32 %74, %3
%76 = add nsw i32 %75, %45
br label %77
77: ; preds = %56, %66, %73, %71, %54, %43, %36, %39, %27, %26, %7
%78 = phi i32 [ %0, %7 ], [ %0, %26 ], [ %22, %27 ], [ %38, %36 ], [ %42, %39 ], [ 0, %43 ], [ %3, %54 ], [ %68, %66 ], [ %72, %71 ], [ %76, %73 ], [ %59, %56 ]
ret i32 %78
}