Lines Matching refs:ibeg
10 int ibeg, ifin, ifin1, jbeg, jfin, jfin1;
18 ibeg = nx + 1;
22 if ((iglob1 >= ii1) && (iglob2 < ii2+nx)) ibeg = 1;
24 if ((ii1 >= iglob1) && (ii1 <= iglob2) ) ibeg = ii1 - ipt;
51 for (i=ibeg; i<=ifin; i++) {
75 exchange_4(phi1, phi2, ibeg, ifin1, jbeg, jfin1);
80 for (i=ibeg; i<= ifin1; i++) {
114 for (i=ibeg; i<= ifin; i++) {
130 for (i=ibeg; i<= ifin; i++) {
144 if (ind1 == 1) exchange_5(phi1, ibeg, ifin1);
145 if (ind2 == 1) exchange_5(phi2, ibeg, ifin1);
149 for (i=ibeg; i<= ifin1; i++) {
178 iglob = ipt + ibeg;
185 phi1(j,k) = c2*( u(5,ibeg,j,k)
186 - 0.50 * ( u(2,ibeg,j,k) * u(2,ibeg,j,k)
187 + u(3,ibeg,j,k) * u(3,ibeg,j,k)
188 + u(4,ibeg,j,k) * u(4,ibeg,j,k) )
189 / u(1,ibeg,j,k) );