1:       Interface
  2:         Subroutine DMSwarmGetField(dm,fieldname,blocksize,dtype,data,ierr)
  3:           use petscdmdef
  4:           DM dm
  5:           character(len=*) :: fieldname
  6:           PetscInt blocksize
  7:           PetscDataType dtype
  8:           PetscScalar, pointer :: data(:)
  9:           PetscErrorCode ierr
 10:         End Subroutine
 11:       End Interface

 13:       Interface
 14:         Subroutine DMSwarmRestoreField(dm,fieldname,blocksize,dtype,data,ierr)
 15:           use petscdmdef
 16:           DM dm
 17:           character(len=*) :: fieldname
 18:           PetscInt blocksize
 19:           PetscDataType dtype
 20:           PetscScalar, pointer :: data(:)
 21:           PetscErrorCode ierr
 22:         End Subroutine
 23:       End Interface

 25:       Interface
 26:         Subroutine DMSwarmCreateGlobalVectorFromField(dm,fieldname,vec,ierr)
 27:           use petscdmdef
 28:           DM dm
 29:           character(len=*) :: fieldname
 30:           Vec vec
 31:           PetscErrorCode ierr
 32:         End Subroutine
 33:       End Interface

 35:       Interface
 36:         Subroutine DMSwarmDestroyGlobalVectorFromField(dm,fieldname,vec,ierr)
 37:           use petscdmdef
 38:           DM dm
 39:           character(len=*) :: fieldname
 40:           Vec vec
 41:           PetscErrorCode ierr
 42:         End Subroutine
 43:       End Interface