1 Interface 2 Subroutine DMSwarmGetField(dm,fieldname,blocksize,dtype,data,ierr) 3 use petscsys, only: ePetscDataType 4 import tDM 5 DM dm 6 character(len=*) :: fieldname 7 PetscInt blocksize 8 PetscDataType dtype 9 PetscScalar, pointer :: data(:) 10 PetscErrorCode ierr 11 End Subroutine 12 End Interface 13 14 Interface 15 Subroutine DMSwarmRestoreField(dm,fieldname,blocksize,dtype,data,ierr) 16 use petscsys, only: ePetscDataType 17 import tDM 18 DM dm 19 character(len=*) :: fieldname 20 PetscInt blocksize 21 PetscDataType dtype 22 PetscScalar, pointer :: data(:) 23 PetscErrorCode ierr 24 End Subroutine 25 End Interface 26