subroutine missave(ie)
      IMPLICIT REAL*8(A-H,O-Z), INTEGER (I-N)
	include 'input.inc'
	include 'elements.inc'
	include 'miss.inc'
	common /misave/dsx(2000),dsxr(2000),dsy(2000),dsyr(2000),
     &	  dsz(2000),dszr(2000),dsdel(2000),mschflg(2000)
c
	dsx(ie)=dx
	dsxr(ie)=dxr
	dsy(ie)=dy
	dsyr(ie)=dyr
	dsz(ie)=dz
	dszr(ie)=dzr
	dsdel(ie)=ddel
	mschflg(ie)=mchflg
c
	return
	end
c
	subroutine misget(ie)
      IMPLICIT REAL*8(A-H,O-Z), INTEGER (I-N)
      COMMON/INOUT/IIN,IOUT,ISOUT,ISO
	include 'elements.inc'
	include 'miss.inc'
	common /misave/dsx(2000),dsxr(2000),dsy(2000),dsyr(2000),
     &	  dsz(2000),dszr(2000),dsdel(2000),mschflg(2000)
c
	dx=dsx(ie)
	dxr=dsxr(ie)
	dy=dsy(ie)
	dyr=dsyr(ie)
	dz=dsz(ie)
	dzr=dszr(ie)
	ddel=dsdel(ie)
	mchflg=mschflg(ie)
c
	return
	end