Lines Matching refs:sdim
29 PetscInt :: sdim, d, pStart, pEnd, p, numCS, set, j
120 PetscCallA(DMGetDimension(dm, sdim, ierr))
152 select case (sdim)
176 write (IOBuffer, '("No layout for dimension ",I2)') sdim
203 allocate (pStartDepth(sdim + 1))
204 allocate (pEndDepth(sdim + 1))
205 do d = 1, sdim + 1
210 PetscCallA(PetscSectionSetFieldComponents(section, fieldU, sdim, ierr))
212 PetscCallA(PetscSectionSetFieldComponents(section, fieldS, sdim*(sdim + 1)/2, ierr))
226 select case (sdim)
232 write (IOBuffer, '("No layout for dimension ",I2)') sdim
284 do d = 1, sdim + 1
362 do i = 1, sdim
363 do j = 0, closureSize - 1, sdim
364 cval(offUA + i) = cval(offUA + i) + xyz(j/sdim + i)
366 cval(offUA + i) = cval(offUA + i)*sdim/closureSize
367 cval(offUA + sdim + 1) = cval(offUA + sdim + 1) + cval(offUA + i)**2
454 do c = 1, size(xyz), sdim
457 cval(3) = cval(3)*sdim/size(xyz)