Lines Matching refs:sdim
28 PetscInt :: sdim, d, pStart, pEnd, p, numCS, set, i, j
103 PetscCallA(DMGetDimension(dm, sdim, ierr))
135 select case (sdim)
147 write (IOBuffer, '("No layout for dimension ",I2)') sdim
190 allocate (pStartDepth(sdim + 1))
191 allocate (pEndDepth(sdim + 1))
192 do d = 1, sdim + 1
197 PetscCallA(PetscSectionSetFieldComponents(section, fieldU, sdim, ierr))
199 PetscCallA(PetscSectionSetFieldComponents(section, fieldS, sdim*(sdim + 1)/2, ierr))
209 select case (sdim)
215 write (IOBuffer, '("No layout for dimension ",I2)') sdim
267 do d = 1, sdim + 1
346 do i = 1, sdim
347 do j = 0, closureSize - 1, sdim
348 cval(offUA + i) = cval(offUA + i) + xyz(j/sdim + i)
350 cval(offUA + i) = cval(offUA + i)*sdim/closureSize
351 cval(offUA + sdim + 1) = cval(offUA + sdim + 1) + cval(offUA + i)**2
438 do c = 1, size(xyz), sdim
441 cval(3) = cval(3)*sdim/size(xyz)