C  Jim Walker, Fall 1987 for a Radix interface on diffrac-500
C  These routines are used in DPMES but don't mean anything
C  for Radix we just return.
C
	SUBROUTINE GOKHI(CHI,PHI)
	REAL*4 CHI,PHI
	RETURN
	END
	SUBROUTINE SETUP
	RETURN
	END
	SUBROUTINE DCMD(TEXT, IDS, LAENGE)
	LOGICAL*1 TEXT(1)
	INTEGER*2 IDS, LEANGE
	IDS=1
	RETURN
	END
	SUBROUTINE WTRDY(IDS)
	INTEGER*2 IDS
	IDS=0
	RETURN
	END
	SUBROUTINE MCAMES
C  this routine has is never called by radixmes so I don't bother with
C  all the arguments.
	RETURN
	END
	SUBROUTINE MCASET
	RETURN
	END
	SUBROUTINE INWIND
	RETURN
	END
	SUBROUTINE OPWIND
	RETURN
	END
	SUBROUTINE CLWIND
	RETURN
	END
	SUBROUTINE D500IN
	RETURN
	END
	SUBROUTINE D501IN
	RETURN
	END
	SUBROUTINE SAMP0
	RETURN
	END
	SUBROUTINE STACHK
	RETURN
	END
	SUBROUTINE STFLGS(IFLAGS,IFORM,IDS)
	INTEGER*2 IFLAGS,IFORM,IDS
	IDS=1
	RETURN
	END
	SUBROUTINE RDFLGS(IFLAGS,IFORM,IDS)
	INTEGER*2 IFLAGS,IFORM,IDS
	IDS=1
	IFLAGS=2
	IFORM=10
	RETURN
	END
	SUBROUTINE RDSTAT(ISTAT,THETA,OMEGA,ISAMP,IEMPTY,IDS)
	INCLUDE 'INTERFACE.COM'
	INTEGER*2 ISTAT,ISAMP,IEMPTY,IDS
	REAL*4 THETA,OMEGA
C  These must set for the sample changer to work.
C  If they are wrong, job won't work.
	ISTAT=1
	THETA=CURANG
	OMEGA=0.
	ISAMP=1		! Sample number (0=reset, -1=no changer)
	IEMPTY=0	! 1=empty, 0=loaded, -1=position unknown
	IDS=1
	RETURN
	END
