Lines Matching refs:mx

122     PetscInt mx, my
124     common/params/lambda, mx, my, fd_coloring
127     PetscScalar x(mx, my)
138     hx = one/(mx - 1)
144       do i = 1, mx
145         if (i == 1 .or. j == 1 .or. i == mx .or. j == my) then
148           x(i, j) = temp1*sqrt(min(min(i - 1, mx - i)*hx, temp))
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)
261     hx = one/(mx - 1)
270       do i = 1, mx
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)
382     hx = one/(mx - 1)
394       row(1) = (j - 1)*mx - 1
395       do i = 1, mx
398         if (i == 1 .or. j == 1 .or. i == mx .or. j == my) then
407           col(1) = row(1) - mx
411           col(5) = row(1) + mx
446   PetscInt its, N, mx, my, i5
459   common/params/lambda, mx, my, fd_coloring
476   mx = 4
478   PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-mx', mx, flg, ierr))
482   N = mx*my
618   imx = int(mx, kind=kind(imx))