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	utke	1.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