Date: 2022-08-02T03:14:22+00:00

Actual source code: petscdt.h90

      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:           MPI_Comm, intent(in) :: c
     55:           PetscInt, intent(in) :: d,n
     56:           PetscBool, intent(in) :: i
     57:           character(len=*), intent(in) ::str
     58:           PetscInt, intent(in) :: o
     59:           PetscFE, intent(out) :: f
     60:           PetscErrorCode, intent(out) ::  ierr
     61:         End Subroutine
     62:       End Interface