	FUNCTION IGET(IVAR,IDIGIT)
C	ROUTINE TO PICK OFF DIGITS IN INTEGER VARIABLES
C	IVAR IS VARIABLE NAME IN CALLING PROGRAM
C	IDIGIT IS THE DIGIT, 1-5, IN IVAR
C	DIGITS NUMBERED FOR IVAR=21367 AS DIGIT 1:2, 2:1, 3:3, 4:6, 5:7
C	RETURNS 0 IF IDIGIT INVALID
	IGET=0
	IF(IDIGIT.LT.1.OR.IDIGIT.GT.5) RETURN
	I=6-IDIGIT
	ITEMP=IABS(IVAR)
	DO 10 J=1,I
	XTEMP=ITEMP*1./10
	ITEMP=ITEMP/10
10	CONTINUE
	IGET=(XTEMP-ITEMP)*10.+.1
	RETURN
	END
