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


x86 assembly (clang, -O0):
<PB_Cnnxtroc>:
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_Cnnxtroc+0x2f>
cmpl   $0x1,0x10(%rbp)
jne    113b <PB_Cnnxtroc+0x3b>
movl   $0x0,-0x4(%rbp)
jmp    12fd <PB_Cnnxtroc+0x1fd>
mov    -0xc(%rbp),%ecx
mov    -0x10(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x10(%rbp)
cmp    $0x0,%eax
jg     1189 <PB_Cnnxtroc+0x89>
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    -0x8(%rbp),%eax
cmp    -0x10(%rbp),%eax
jg     11a1 <PB_Cnnxtroc+0xa1>
movl   $0x0,-0x4(%rbp)
jmp    12fd <PB_Cnnxtroc+0x1fd>
mov    -0x8(%rbp),%eax
sub    -0x10(%rbp),%eax
cltd
idivl  -0x14(%rbp)
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jne    1225 <PB_Cnnxtroc+0x125>
mov    -0x28(%rbp),%eax
cmp    0x10(%rbp),%eax
jge    11d7 <PB_Cnnxtroc+0xd7>
mov    -0x8(%rbp),%eax
sub    -0x10(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    12fd <PB_Cnnxtroc+0x1fd>
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     120d <PB_Cnnxtroc+0x10d>
mov    -0x8(%rbp),%eax
sub    -0x10(%rbp),%eax
mov    -0x20(%rbp),%ecx
imul   -0x14(%rbp),%ecx
sub    %ecx,%eax
mov    %eax,-0x2c(%rbp)
jmp    121a <PB_Cnnxtroc+0x11a>
mov    -0x28(%rbp),%eax
sub    -0x20(%rbp),%eax
imul   -0x14(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    12fd <PB_Cnnxtroc+0x1fd>
mov    -0x18(%rbp),%eax
sub    -0x1c(%rbp),%eax
mov    %eax,-0x24(%rbp)
cmp    $0x0,%eax
jge    1240 <PB_Cnnxtroc+0x140>
mov    0x10(%rbp),%eax
add    -0x24(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
mov    0x10(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jne    125d <PB_Cnnxtroc+0x15d>
movl   $0x0,-0x4(%rbp)
jmp    12fd <PB_Cnnxtroc+0x1fd>
mov    -0x28(%rbp),%eax
cmp    0x10(%rbp),%eax
jge    12a1 <PB_Cnnxtroc+0x1a1>
mov    -0x24(%rbp),%eax
cmp    -0x28(%rbp),%eax
jge    128c <PB_Cnnxtroc+0x18c>
mov    -0x8(%rbp),%eax
mov    -0x24(%rbp),%ecx
imul   -0x14(%rbp),%ecx
sub    %ecx,%eax
sub    -0x10(%rbp),%eax
mov    %eax,-0x30(%rbp)
jmp    1296 <PB_Cnnxtroc+0x196>
xor    %eax,%eax
mov    %eax,-0x30(%rbp)
jmp    1296 <PB_Cnnxtroc+0x196>
mov    -0x30(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    12fd <PB_Cnnxtroc+0x1fd>
mov    -0x28(%rbp),%eax
cltd
idivl  0x10(%rbp)
mov    %eax,-0x20(%rbp)
mov    -0x24(%rbp),%eax
mov    -0x28(%rbp),%ecx
mov    -0x20(%rbp),%edx
imul   0x10(%rbp),%edx
sub    %edx,%ecx
cmp    %ecx,%eax
jl     12db <PB_Cnnxtroc+0x1db>
mov    0x10(%rbp),%eax
sub    $0x1,%eax
sub    -0x24(%rbp),%eax
imul   -0x20(%rbp),%eax
imul   -0x14(%rbp),%eax
mov    %eax,-0x34(%rbp)
jmp    12f7 <PB_Cnnxtroc+0x1f7>
mov    -0x8(%rbp),%eax
sub    -0x10(%rbp),%eax
mov    -0x20(%rbp),%ecx
imul   -0x24(%rbp),%ecx
add    -0x20(%rbp),%ecx
add    -0x24(%rbp),%ecx
imul   -0x14(%rbp),%ecx
sub    %ecx,%eax
mov    %eax,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<PB_Cnnxtroc>:
push   %rbp
push   %r14
push   %rbx
xor    %ebp,%ebp
cmp    $0xffffffff,%r9d
je     11db <PB_Cnnxtroc+0xdb>
mov    0x20(%rsp),%ebx
cmp    $0x1,%ebx
je     11db <PB_Cnnxtroc+0xdb>
mov    %edx,%r10d
sub    %esi,%r10d
jle    112f <PB_Cnnxtroc+0x2f>
cmp    %edi,%r10d
jl     1157 <PB_Cnnxtroc+0x57>
jmp    11db <PB_Cnnxtroc+0xdb>
mov    %r10d,%eax
cltd
idiv   %ecx
mov    $0x1,%esi
sub    %eax,%esi
add    %esi,%r9d
mov    %r9d,%eax
cltd
idiv   %ebx
imul   %ecx,%esi
add    %esi,%r10d
mov    %edx,%r9d
cmp    %edi,%r10d
jge    11db <PB_Cnnxtroc+0xdb>
mov    %edi,%r11d
sub    %r10d,%r11d
mov    %r11d,%eax
cltd
idiv   %ecx
lea    0x1(%rax),%r14d
cmp    %r8d,%r9d
jne    1191 <PB_Cnnxtroc+0x91>
cmp    %ebx,%r14d
jl     11d8 <PB_Cnnxtroc+0xd8>
mov    %r14d,%eax
cltd
idiv   %ebx
imul   %eax,%ebx
mov    %r14d,%ebp
sub    %eax,%ebp
imul   %ecx,%eax
sub    %eax,%r11d
imul   %ecx,%ebp
cmp    %ebx,%r14d
cmovne %r11d,%ebp
jmp    11db <PB_Cnnxtroc+0xdb>
sub    %r9d,%r8d
mov    %r8d,%esi
sar    $0x1f,%esi
and    %ebx,%esi
add    %r8d,%esi
lea    -0x1(%rbx),%r8d
sub    %esi,%r8d
je     11db <PB_Cnnxtroc+0xdb>
cmp    %ebx,%r14d
jge    11bf <PB_Cnnxtroc+0xbf>
imul   %esi,%ecx
add    %ecx,%r10d
sub    %r10d,%edi
xor    %ebp,%ebp
cmp    %eax,%esi
cmovle %edi,%ebp
jmp    11db <PB_Cnnxtroc+0xdb>
mov    %r14d,%eax
cltd
idiv   %ebx
cmp    %edx,%esi
jge    11e2 <PB_Cnnxtroc+0xe2>
mov    %eax,%edx
imul   %esi,%edx
add    %esi,%eax
add    %edx,%eax
imul   %ecx,%eax
sub    %eax,%r11d
mov    %r11d,%ebp
mov    %ebp,%eax
pop    %rbx
pop    %r14
pop    %rbp
ret
imul   %ecx,%r8d
imul   %eax,%r8d
mov    %r8d,%ebp
jmp    11db <PB_Cnnxtroc+0xdb>

LLVM IR (-O0):
define i32 @PB_Cnnxtroc(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 %25
24: ; preds = %21, %7
store i32 0, i32* %8
br label %170
25: ; preds = %21
%26 = load i32, i32* %10
%27 = load i32, i32* %11
%28 = sub nsw i32 %27, %26
store i32 %28, i32* %11
%29 = icmp sle i32 %28, 0
br i1 %29, label %30, label %51
30: ; preds = %25
%31 = load i32, i32* %11
%32 = sub nsw i32 0, %31
%33 = load i32, i32* %12
%34 = sdiv i32 %32, %33
%35 = add nsw i32 %34, 1
store i32 %35, i32* %18
%36 = load i32, i32* %18
%37 = load i32, i32* %14
%38 = add nsw i32 %37, %36
store i32 %38, i32* %14
%39 = load i32, i32* %14
%40 = load i32, i32* %15
%41 = sdiv i32 %39, %40
%42 = load i32, i32* %15
%43 = mul nsw i32 %41, %42
%44 = load i32, i32* %14
%45 = sub nsw i32 %44, %43
store i32 %45, i32* %14
%46 = load i32, i32* %18
%47 = load i32, i32* %12
%48 = mul nsw i32 %46, %47
%49 = load i32, i32* %11
%50 = add nsw i32 %49, %48
store i32 %50, i32* %11
br label %51
51: ; preds = %30, %25
%52 = load i32, i32* %9
%53 = load i32, i32* %11
%54 = icmp sle i32 %52, %53
br i1 %54, label %55, label %56
55: ; preds = %51
store i32 0, i32* %8
br label %170
56: ; preds = %51
%57 = load i32, i32* %9
%58 = load i32, i32* %11
%59 = sub nsw i32 %57, %58
%60 = load i32, i32* %12
%61 = sdiv i32 %59, %60
%62 = add nsw i32 %61, 1
store i32 %62, i32* %18
%63 = load i32, i32* %13
%64 = load i32, i32* %14
%65 = icmp eq i32 %63, %64
br i1 %65, label %66, label %100
66: ; preds = %56
%67 = load i32, i32* %18
%68 = load i32, i32* %15
%69 = icmp slt i32 %67, %68
br i1 %69, label %70, label %74
70: ; preds = %66
%71 = load i32, i32* %9
%72 = load i32, i32* %11
%73 = sub nsw i32 %71, %72
store i32 %73, i32* %8
br label %170
74: ; preds = %66
%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 %92
84: ; preds = %74
%85 = load i32, i32* %9
%86 = load i32, i32* %11
%87 = sub nsw i32 %85, %86
%88 = load i32, i32* %16
%89 = load i32, i32* %12
%90 = mul nsw i32 %88, %89
%91 = sub nsw i32 %87, %90
br label %98
92: ; preds = %74
%93 = load i32, i32* %18
%94 = load i32, i32* %16
%95 = sub nsw i32 %93, %94
%96 = load i32, i32* %12
%97 = mul nsw i32 %95, %96
br label %98
98: ; preds = %92, %84
%99 = phi i32 [ %91, %84 ], [ %97, %92 ]
store i32 %99, i32* %8
br label %170
100: ; preds = %56
%101 = load i32, i32* %13
%102 = load i32, i32* %14
%103 = sub nsw i32 %101, %102
store i32 %103, i32* %17
%104 = icmp slt i32 %103, 0
br i1 %104, label %105, label %109
105: ; preds = %100
%106 = load i32, i32* %15
%107 = load i32, i32* %17
%108 = add nsw i32 %107, %106
store i32 %108, i32* %17
br label %109
109: ; preds = %105, %100
%110 = load i32, i32* %17
%111 = load i32, i32* %15
%112 = sub nsw i32 %111, 1
%113 = icmp eq i32 %110, %112
br i1 %113, label %114, label %115
114: ; preds = %109
store i32 0, i32* %8
br label %170
115: ; preds = %109
%116 = load i32, i32* %18
%117 = load i32, i32* %15
%118 = icmp slt i32 %116, %117
br i1 %118, label %119, label %134
119: ; preds = %115
%120 = load i32, i32* %17
%121 = load i32, i32* %18
%122 = icmp slt i32 %120, %121
br i1 %122, label %123, label %131
123: ; preds = %119
%124 = load i32, i32* %9
%125 = load i32, i32* %17
%126 = load i32, i32* %12
%127 = mul nsw i32 %125, %126
%128 = sub nsw i32 %124, %127
%129 = load i32, i32* %11
%130 = sub nsw i32 %128, %129
br label %132
131: ; preds = %119
br label %132
132: ; preds = %131, %123
%133 = phi i32 [ %130, %123 ], [ 0, %131 ]
store i32 %133, i32* %8
br label %170
134: ; preds = %115
%135 = load i32, i32* %18
%136 = load i32, i32* %15
%137 = sdiv i32 %135, %136
store i32 %137, i32* %16
%138 = load i32, i32* %17
%139 = load i32, i32* %18
%140 = load i32, i32* %16
%141 = load i32, i32* %15
%142 = mul nsw i32 %140, %141
%143 = sub nsw i32 %139, %142
%144 = icmp sge i32 %138, %143
br i1 %144, label %145, label %154
145: ; preds = %134
%146 = load i32, i32* %15
%147 = sub nsw i32 %146, 1
%148 = load i32, i32* %17
%149 = sub nsw i32 %147, %148
%150 = load i32, i32* %16
%151 = mul nsw i32 %149, %150
%152 = load i32, i32* %12
%153 = mul nsw i32 %151, %152
br label %168
154: ; preds = %134
%155 = load i32, i32* %9
%156 = load i32, i32* %11
%157 = sub nsw i32 %155, %156
%158 = load i32, i32* %16
%159 = load i32, i32* %17
%160 = mul nsw i32 %158, %159
%161 = load i32, i32* %16
%162 = add nsw i32 %160, %161
%163 = load i32, i32* %17
%164 = add nsw i32 %162, %163
%165 = load i32, i32* %12
%166 = mul nsw i32 %164, %165
%167 = sub nsw i32 %157, %166
br label %168
168: ; preds = %154, %145
%169 = phi i32 [ %153, %145 ], [ %167, %154 ]
store i32 %169, i32* %8
br label %170
170: ; preds = %168, %132, %114, %98, %70, %55, %24
%171 = load i32, i32* %8
ret i32 %171
}

LLVM IR (-O2):
define i32 @PB_Cnnxtroc(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 %71, 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 slt i32 %22, %0
br i1 %24, label %25, label %71
25: ; preds = %21
%26 = sub nsw i32 %0, %22
%27 = sdiv i32 %26, %3
%28 = add nsw i32 %27, 1
%29 = icmp eq i32 %23, %4
br i1 %29, label %30, label %41
30: ; preds = %25
%31 = icmp slt i32 %28, %6
br i1 %31, label %71, label %32
32: ; preds = %30
%33 = sdiv i32 %28, %6
%34 = mul nsw i32 %33, %6
%35 = icmp eq i32 %28, %34
%36 = mul nsw i32 %33, %3
%37 = sub nsw i32 %26, %36
%38 = sub nsw i32 %28, %33
%39 = mul nsw i32 %38, %3
%40 = select i1 %35, i32 %39, i32 %37
br label %71
41: ; preds = %25
%42 = sub nsw i32 %4, %23
%43 = icmp slt i32 %42, 0
%44 = select i1 %43, i32 %6, i32 0
%45 = add nsw i32 %44, %42
%46 = add nsw i32 %6, -1
%47 = icmp eq i32 %46, %45
br i1 %47, label %71, label %48
48: ; preds = %41
%49 = icmp slt i32 %28, %6
br i1 %49, label %50, label %56
50: ; preds = %48
%51 = icmp sgt i32 %45, %27
%52 = mul nsw i32 %45, %3
%53 = add i32 %22, %52
%54 = sub i32 %0, %53
%55 = select i1 %51, i32 0, i32 %54
br label %71
56: ; preds = %48
%57 = sdiv i32 %28, %6
%58 = mul nsw i32 %57, %6
%59 = srem i32 %28, %6
%60 = icmp slt i32 %45, %59
br i1 %60, label %65, label %61
61: ; preds = %56
%62 = sub nsw i32 %46, %45
%63 = mul i32 %62, %3
%64 = mul i32 %63, %57
br label %71
65: ; preds = %56
%66 = mul nsw i32 %57, %45
%67 = add i32 %57, %45
%68 = add i32 %67, %66
%69 = mul nsw i32 %68, %3
%70 = sub nsw i32 %26, %69
br label %71
71: ; preds = %61, %65, %41, %30, %21, %7, %50, %32
%72 = phi i32 [ %40, %32 ], [ %55, %50 ], [ 0, %7 ], [ 0, %21 ], [ %26, %30 ], [ 0, %41 ], [ %64, %61 ], [ %70, %65 ]
ret i32 %72
}