Lines Matching refs:gdof

53   PetscInt xs, xe, gxs, gxe, dof, gdof
107   gdof = i2*(gxe - gxs + 1)
108   PetscCallA(MatCreateShell(PETSC_COMM_WORLD, dof, dof, gdof, gdof, shell_shift, A, ierr))
149     gdof = i2*(gxe - gxs + 1)
150     call SaveSolutionToDisk(da, X, gdof, xs, xe)
486   subroutine SaveSolutionToDisk(da, X, gdof, xs, xe)  argument
493     PetscInt gdof, i
495     PetscScalar data2(2, xs:xe), data(gdof)
501     data2 = reshape(xx(gdof:gdof), (/two, xe - xs + 1/))
502     data = reshape(data2, (/gdof/))
504     do i = 1, gdof