Actual source code: petscsnes.h90
petsc-3.8.4 2018-03-24
2: Interface
3: Subroutine DMPlexGetCellFields(m,s,e,x,xt,a,u,ut,v,ierr)
4: use petscdmdef
5: PetscInt s, e
6: Vec x, xt, a
7: PetscScalar, pointer :: u(:)
8: PetscScalar, pointer :: ut(:)
9: PetscScalar, pointer :: v(:)
10: PetscErrorCode ierr
11: DM m
12: End Subroutine
13: End Interface
15: Interface
16: Subroutine DMPlexRestoreCellFields(m,s,e,x,xt,a,u,ut,v,ierr)
17: use petscdmdef
18: PetscInt s, e
19: Vec x, xt, a
20: PetscScalar, pointer :: u(:)
21: PetscScalar, pointer :: ut(:)
22: PetscScalar, pointer :: v(:)
23: PetscErrorCode ierr
24: DM m
25: End Subroutine
26: End Interface
28: Interface
29: Subroutine DMPlexGetFaceFields(m,s,e,x,xt,f,c,g,uL,uR,ierr)
30: use petscdmdef
31: PetscInt s, e
32: Vec x, xt, f, c, g
33: PetscScalar, pointer :: uL(:)
34: PetscScalar, pointer :: uR(:)
35: PetscErrorCode ierr
36: DM m
37: End Subroutine
38: End Interface
40: Interface
41: Subroutine DMPlexRestoreFaceFields(m,s,e,x,xt,f,c,g,uL,uR,ierr)
42: use petscdmdef
43: PetscInt s, e
44: Vec x, xt, f, c, g
45: PetscScalar, pointer :: uL(:)
46: PetscScalar, pointer :: uR(:)
47: PetscErrorCode ierr
48: DM m
49: End Subroutine
50: End Interface
52: Interface
53: Subroutine DMPlexGetFaceGeometry(m,s,e,f,c,g,v,ierr)
54: use petscdmdef
55: PetscInt s, e
56: Vec f, c
57: PetscScalar, pointer :: g(:)
58: PetscScalar, pointer :: v(:)
59: PetscErrorCode ierr
60: DM m
61: End Subroutine
62: End Interface
64: Interface
65: Subroutine DMPlexRestoreFaceGeometry(m,s,e,f,c,g,v,ierr)
66: use petscdmdef
67: PetscInt s, e
68: Vec f, c
69: PetscScalar, pointer :: g(:)
70: PetscScalar, pointer :: v(:)
71: PetscErrorCode ierr
72: DM m
73: End Subroutine
74: End Interface