16dd63270SBarry Smith Interface 26dd63270SBarry Smith Subroutine DMSwarmGetField(dm,fieldname,blocksize,dtype,data,ierr) 3*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 46dd63270SBarry Smith use petscsys, only: ePetscDataType 56dd63270SBarry Smith import tDM 66dd63270SBarry Smith DM dm 76dd63270SBarry Smith character(len=*) :: fieldname 86dd63270SBarry Smith PetscInt blocksize 96dd63270SBarry Smith PetscDataType dtype 106dd63270SBarry Smith PetscScalar, pointer :: data(:) 116dd63270SBarry Smith PetscErrorCode ierr 126dd63270SBarry Smith End Subroutine 136dd63270SBarry Smith End Interface 146dd63270SBarry Smith 156dd63270SBarry Smith Interface 166dd63270SBarry Smith Subroutine DMSwarmRestoreField(dm,fieldname,blocksize,dtype,data,ierr) 17*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 186dd63270SBarry Smith use petscsys, only: ePetscDataType 196dd63270SBarry Smith import tDM 206dd63270SBarry Smith DM dm 216dd63270SBarry Smith character(len=*) :: fieldname 226dd63270SBarry Smith PetscInt blocksize 236dd63270SBarry Smith PetscDataType dtype 246dd63270SBarry Smith PetscScalar, pointer :: data(:) 256dd63270SBarry Smith PetscErrorCode ierr 266dd63270SBarry Smith End Subroutine 276dd63270SBarry Smith End Interface 28