Actual source code: petscsnes.h90

petsc-3.8.4 2018-03-24
Report Typos and Errors

  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