The following CALC block expression worked for me. I saved out an iteration counter so I could EXIT and resume the outer WHILE loop every 5 iterations of the outer WHILE loop.

IF IN1 = 1 THEN
rem initialize ;only run when maximize oil or maximize water is selected
rem firstpass=0 means code has not run. firstpass=1 means it has
IF firstpass=0 THEN
i := 1;
j := 1;
firstpass := 1;
'^/SAVED_I':=0;
rem - clear the output array
outpointer := 1;
WHILE outpointer <= 50 DO
'^/WC_RANK_OUT_ARR'[outpointer][1] := 0;
outpointer := outpointer +1;
END_WHILE;
ELSE
i := '^/SAVED_I';
End_IF;

counter := 0;
WHILE i <= in2 DO
rem counter :=0;
rank := IN2 ;
j := 1 ;
WHILE j <=IN2 DO
IF i<>j then rem if two wc values are identical it will give them the same ranking
IF '^/INPUT_ARRAY'[i][1] >='^/INPUT_ARRAY'[j][1] then
rank := rank -1;
END_IF ;
END_IF ;
out1:=j;
j:=j+1;
rem counter := counter + 1;
END_WHILE ;

counter := counter + 1;

'^/WC_RANK_OUT_ARR'[i][1] := rank ;
out2:=rank;
out3:=i;
i := i+1 ;
'^/SAVED_I.CV' :=i;

IF i > IN2 THEN
'^/PARAM1':=0;
firstpass :=0;
END_IF;

IF counter > 5 then
EXIT;
END_IF;

END_WHILE ;

END_IF;" }
}
}