Lines Matching refs:c
11 PetscInt c, firstCell, numCells
27 do c = firstCell, numCells - 1
28 PetscCallA(DMPlexSetConeSize(dm, c, i4, ierr))
36 c = 0
37 write (*, 1000) 'cell EC 0', c, EC
39 PetscCallA(DMPlexSetCone(dm, c, EC, ierr))
40 PetscCallA(DMPlexGetCone(dm, c, pEC, ierr))
41 write (*, 1000) 'cell pEC 0', c, pEC
42 PetscCallA(DMPlexRestoreCone(dm, c, pEC, ierr))
47 c = 1
48 write (*, 1000) 'cell EC 1', c, EC
49 PetscCallA(DMPlexSetCone(dm, c, EC, ierr))
50 PetscCallA(DMPlexGetCone(dm, c, pEC, ierr))
51 write (*, 1000) 'cell pEC 1', c, pEC
52 PetscCallA(DMPlexRestoreCone(dm, c, pEC, ierr))
57 PetscCallA(DMPlexGetCone(dm, c, pEC, ierr))
58 write (*, 1000) 'cell pEC 3', c, pEC
59 PetscCallA(DMPlexRestoreCone(dm, c, pEC, ierr))