Lines Matching refs:mx

34     PetscInt i, j, row, mx, my
44     mx = int(user(lmx))
48     hx = 1.0/real(mx - 1)
57       do i = 1, mx
58         row = i + (j - 1)*mx
59         if (i == 1 .or. j == 1 .or. i == mx .or. j == my) then
63           ub = xx(row - mx)
65           ut = xx(row + mx)
88     PetscInt i, j, row(1), mx, my
103     mx = int(user(lmx))
107     hx = 1.0/real(mx - 1)
115       do i = 1, mx
119         row(1) = i - 1 + (j - 1)*mx
120         if (i == 1 .or. j == 1 .or. i == mx .or. j == my) then
124           col(1) = row(1) - mx
132           col(5) = row(1) + mx
148     PetscInt i, j, row, mx, my
157     mx = int(user(lmx))
162     hx = one/(mx - 1)
168       do i = 1, mx
169         row = i + (j - 1)*mx
170         if (i == 1 .or. j == 1 .or. i == mx .or. j == my) then
173           xx(row) = temp1*sqrt(min(min(i - 1, mx - i)*hx, temp))