OpenAD/code_regress/loopwrapper.f

void cpscheme(int iter, int *iL,int *uL) { 

int levels=4; 
// increment iL 
int iLc;  // the level that changes: 
for(i=0;i<levels;i++) { 
  if (iL[i]==uL[i])
    iL[i]=0;
  else { 
    il[i]++;
    break;
  }
}


1	void cpscheme(int iter, int iL,int uL) {
2
3	int levels=4;
4	// increment iL
5	int iLc; // the level that changes:
6	for(i=0;i<levels;i++) {
7	if (iL[i]==uL[i])
8	iL[i]=0;
9	else {
10	il[i]++;
11	break;
12	}
13	}
14
15
16
17