Actual source code: petscdmswarm.h90

      1:       Interface
      2:         Subroutine DMSwarmGetField(dm,fieldname,blocksize,dtype,data,ierr)
      3:           import tDM
      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:           import tDM
     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:           import tDM,tVec
     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:           import tDM,tVec
     38:           DM dm
     39:           character(len=*) :: fieldname
     40:           Vec vec
     41:           PetscErrorCode ierr
     42:         End Subroutine
     43:       End Interface