Actual source code: petscdt.h90
petsc-3.12.5 2020-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 PetscFECreateDefault(c,d,n,i,str,o,f,ierr)
54: use petscdmdef
55: MPI_Comm, intent(in) :: c
56: PetscInt, intent(in) :: d,n
57: PetscBool, intent(in) :: i
58: character(len=*), intent(in) ::str
59: PetscInt, intent(in) :: o
60: PetscFE, intent(out) :: f
61: PetscErrorCode, intent(out) :: ierr
62: End Subroutine
63: End Interface