Lines Matching refs:my

34     PetscInt i, j, row, mx, my
45     my = int(user(lmy))
49     hy = 1.0/real(my - 1)
56     do j = 1, my
59         if (i == 1 .or. j == 1 .or. i == mx .or. j == my) then
88     PetscInt i, j, row(1), mx, my
104     my = int(user(lmy))
108     hy = 1.0/real(my - 1)
114     do j = 1, my
120         if (i == 1 .or. j == 1 .or. i == mx .or. j == my) then
148     PetscInt i, j, row, mx, my
158     my = int(user(lmy))
161     hy = one/(my - 1)
166     do j = 1, my
167       temp = min(j - 1, my - j)*hy
170         if (i == 1 .or. j == 1 .or. i == mx .or. j == my) then