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