Lines Matching refs:my

122     PetscInt mx, my
124     common/params/lambda, mx, my, fd_coloring
127     PetscScalar x(mx, my)
139     hy = one/(my - 1)
142     do j = 1, my
143       temp = min(j - 1, my - j)*hy
145         if (i == 1 .or. j == 1 .or. i == mx .or. j == my) then
186     PetscInt mx, my
188     common/params/lambda, mx, my, fd_coloring
211     PetscCallA(PetscLogFlops(11.0d0*mx*my, ierr))
244     PetscInt mx, my
246     common/params/lambda, mx, my, fd_coloring
249     PetscScalar x(mx, my), f(mx, my)
262     hy = one/(my - 1)
269     do j = 1, my
271         if (i == 1 .or. j == 1 .or. i == mx .or. j == my) then
317     PetscInt mx, my
319     common/params/lambda, mx, my, fd_coloring
362     PetscInt mx, my
364     common/params/lambda, mx, my, fd_coloring
367     PetscScalar x(mx, my)
383     hy = one/(my - 1)
393     do j = 1, my
398         if (i == 1 .or. j == 1 .or. i == mx .or. j == my) then
446   PetscInt its, N, mx, my, i5
459   common/params/lambda, mx, my, fd_coloring
477   my = 4
479   PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-my', my, flg, ierr))
482   N = mx*my
619   imy = int(my, kind=kind(imy))