Actual source code: petscdt.h90
petsc-3.11.0 2019-03-29
2: Interface
3: Subroutine PetscQuadratureGetData(q,dim,nc,np,p,w,ierr)
4: PetscInt dim, nc, np
5: PetscReal, pointer :: p(:)
6: PetscReal, pointer :: w(:)
7: PetscErrorCode ierr
8: PetscQuadrature q
9: End Subroutine
10: End Interface
12: Interface
13: Subroutine PetscQuadratureRestoreData(q,dim,nc,np,p,w,ierr)
14: PetscInt dim, nc, np
15: PetscReal, pointer :: p(:)
16: PetscReal, pointer :: w(:)
17: PetscErrorCode ierr
18: PetscQuadrature q
19: End Subroutine
20: End Interface
22: Interface
23: Subroutine PetscQuadratureSetData(q,dim,nc,np,p,w,ierr)
24: PetscInt dim, nc, np
25: PetscReal, pointer :: p(:)
26: PetscReal, pointer :: w(:)
27: PetscErrorCode ierr
28: PetscQuadrature q
29: End Subroutine
30: End Interface
32: Interface
33: Subroutine PetscDSGetTabulation(prob,f,b,bDer,ierr)
34: PetscInt f
35: PetscReal, pointer :: b(:)
36: PetscReal, pointer :: bDer(:)
37: PetscErrorCode ierr
38: PetscDS prob
39: End Subroutine
40: End Interface
42: Interface
43: Subroutine PetscDSRestoreTabulation(prob,f,b,bDer,ierr)
44: PetscInt f
45: PetscReal, pointer :: b(:)
46: PetscReal, pointer :: bDer(:)
47: PetscErrorCode ierr
48: PetscDS prob
49: End Subroutine
50: End Interface
52: Interface
53: Subroutine PetscFECreate(c,f,ierr)
54: use petscdmdef
55: MPI_Comm, intent(in) :: c
56: PetscFE, intent(out) :: f
57: PetscErrorCode, intent(out) :: ierr
58: End Subroutine
59: End Interface
61: Interface
62: Subroutine PetscFECreateDefault(c,d,n,i,str,o,f,ierr)
63: use petscdmdef
64: MPI_Comm, intent(in) :: c
65: PetscInt, intent(in) :: d,n
66: PetscBool, intent(in) :: i
67: character(len=*), intent(in) ::str
68: PetscInt, intent(in) :: o
69: PetscFE, intent(out) :: f
70: PetscErrorCode, intent(out) :: ierr
71: End Subroutine
72: End Interface